anchor.diff:                      ["outer setup"; "outer test";
                        "outer setup"; "inner setup"; "inner test 1";
                        "outer setup"; "inner setup"; "inner test 2"]
  +        ]
   
  -        describe "tear down" <| fun _ ->
  +        context "tear down" [
               it "runs if test fail" <| fun _ ->
                   anExampleGroup
                   |> withTearDownCode (fun _ -> addToCallList "tearDown")
  
positive.code: module FSpec.SelfTests.RunnerSpecs
  open FSpec.Core
  open Dsl
  open Matchers
  open ExampleHelper
  
  
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")
  