anchor.diff:                  |> run
                   |> Report.output |> List.reduce (+)
                   |> should matchRegex "Some context in some special state has some special behavior"
  +        ]
   
  -        describe "Failed tests" <| fun _ ->
  +        context "Failed tests" [
               it "handles test failures in setup code" (fun _ ->
                   anExampleGroup
                   |> withSetupCode (fun _ -> failwith "error")
  
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"
  