anchor.diff:  module FSpec.SelfTests.SuiteBuilderSpecs
   open FSpec.Core
  -open Dsl
  +open DslV2
   open Matchers
   open ExampleHelper
   
   let getFailed (report : Report.T) = report.failed |> List.reduce (+)
   let specs =
  -    describe "Reporting" <| fun _ ->
  -        describe "summary" <| fun _ ->
  +    describe "Reporting" [
  +        context "summary" [
               it "reports test success" <| fun _ ->
                   aPassingExample
                   |> runSingleExample
  
positive.code:                 |> runSingleExample
                  |> Report.failed |> List.length
                  |> should equal 0
  
          describe "Tests with errors" <| fun _ ->
              it "writes the exception name" <| fun _ ->
                  anExample (fun _ -> raise (new System.NotImplementedException()))
                  |> runSingleExample
                  |> Report.failed |> List.reduce (+)
                  |> should matchRegex "NotImplementedException"
  
negative.code:                 aPendingExample
                  |> runSingleExample 
                  |> Report.summary |> should equal "1 run, 0 failed, 1 pending"
          ]
  
          context "Running status" [
              it "Is reported while running" <| fun _ ->
                  anExampleGroupNamed "Some context"
                  |> withAnExampleNamed "has some behavior"
  