anchor.diff:                  |> run |> ignore
                   actualCallList() |> should equal ["test 1"; "test 2"]
               )
  +        ]
   
  -        describe "General setup/test/teardown handling" <| fun _ ->
  +        context "General setup/test/teardown handling" [
               it "runs the sequence before, spec, teardown" <| fun _ ->
                   anExampleGroup
                   |> withSetupCode (recordFunctionCall "setup")
  
positive.code:                     ["outer setup"; "outer test";
                       "outer setup"; "inner setup"; "inner test 1";
                       "outer setup"; "inner setup"; "inner test 2"]
  
          describe "tear down" <| fun _ ->
              it "runs if test fail" <| fun _ ->
                  anExampleGroup
                  |> withTearDownCode (fun _ -> addToCallList "tearDown")
  
negative.code: let recordFunctionCall name = fun _ -> addToCallList name
  
  let specs =
      describe "Test runner" [
          before <| clearCallList
  
          context "test execution order" [
              it "tests execute in the order they appear" (fun _ ->
                  anExampleGroup
                  |> withExampleCode (recordFunctionCall "test 1")
  