anchor.diff:              ]
           ]
   
  -        describe "equal matcher" [
  -            describe "should be.EqualTo" [
  -                it "succeeds when equal" <| fun _ ->
  -                    let test () = 5 |> should (equal 5)
  -                    test.Should succeed
  -
  -                it "fails when not equal" <| fun _ ->
  -                    let test () = 5 |> should (equal 6)
  -                    test.Should (failWithAssertionError "5 was expected to equal 6")
  -            ]
  -
  -            describe "shouldNot equal" [
  -                it "succeeds when not equal" <| fun _ ->
  -                    5 |> shouldNot (equal 6)
  -
  -                it "fails when equal" <| fun _ ->
  -                    let test () = 5 |> shouldNot (equal 5)
  -                    test.Should (failWithAssertionError "5 was expected to not equal 5")
  +        ("matcher", be.equalTo 42) **>
  +        describe "be.equalTo matcher" [
  +            ("actual", 43) **>
  +            context "when values are not equal" [
  +                itWorksAsAFailingMatcher
  +            ]
  +
  +            ("actual", 42) **>
  +            context "when values are equal" [
  +                itWorksAsAPassingMatcher
               ]
           ]
   
  
positive.code: open Dsl
  open Matchers
  open CustomMatchers
  
  let specs = [
      describe "System.Object extesions" [
  
negative.code:             ]
          ]
      ]
  ]
  