anchor.diff:                      ctx |> TestContext.getSubject
                       |> withAnExample
                       |> run |> ignore
  -                    ctx?disposed |> should equal true
  +                    ctx?disposed |> should be.True
   
                   it "is disposed if test fails" <| fun ctx ->
                       ctx |> TestContext.getSubject
                       |> withExampleCode (fun _ -> failwith "dummy")
                       |> run |> ignore
  -                    ctx?disposed |> should equal true
  +                    ctx?disposed |> should be.True
   
                   it "is disposed if teardown fails" <| fun ctx ->
                       ctx |> TestContext.getSubject
                       |> withTearDownCode (fun _ -> failwith "dummy")
                       |> withAnExample
                       |> run |> ignore
  -                    ctx?disposed |> should equal true
  +                    ctx?disposed |> should be.True
   
                   it "is not disposed in teardown code" <| fun ctx ->
                       ctx |> TestContext.getSubject
  
positive.code: 
  let shouldRecord expected grp =
      grp |> run |> ignore
      actualCallList() |> should equal expected
  
  let specs =
      describe "Test runner" [
  
negative.code:                         ctx?disposedDuringTearDown <- disposed)
                      |> withAnExample
                      |> run |> ignore
                      ctx?disposedDuringTearDown |> should be.False
              ]
          ]
      ]
  