anchor.diff:          describe "be.equalTo matcher" [
               ("actual", 43) **>
               context "when values are not equal" [
  -                itWorksAsAFailingMatcher
  +                MatchOf<int>.ShouldFail
               ]
   
               ("actual", 42) **>
               context "when values are equal" [
  -                itWorksAsAPassingMatcher
  +                MatchOf<int>.ShouldPass
               ]
           ]
   
  
positive.code:         describe "be.greaterThan matcher" [
              ("actual", 41) **>
              context "when actual is less than expected" [
                  itWorksAsAFailingMatcher
              ]
              
              ("actual", 42) **>
              context "when actual is equal to expected" [
                  itWorksAsAFailingMatcher
              ]
  
              ("actual", 43) **>
              context "when actual is equal to expected" [
                  itWorksAsAPassingMatcher
              ]
          ]
  
  
negative.code: open Matchers
  open CustomMatchers
  
  type MatchOf<'T> =
      static member createMatcherTest (ctx:TestContext) f =
          let actual = ctx.MetaData.Get<'T> "actual"
          fun () -> actual |> f ctx?matcher
   
      static member ShouldPass =
          examples [
              it "succeeds when used with 'should'" (fun ctx ->
                  let test = MatchOf<'T>.createMatcherTest ctx should
                  test.Should succeed)
              
              it "fails when used with 'shouldNot'" (fun ctx ->
                  let test = MatchOf<'T>.createMatcherTest ctx shouldNot
                  test.Should fail)
          ]
  
      static member ShouldFail =
          examples [
              it "succeeds when used with 'shouldNot'" (fun ctx ->
                  let test = MatchOf<'T>.createMatcherTest ctx shouldNot
                  test.Should succeed)
  
              it "fails when used with 'should'" (fun ctx ->
                  let test = MatchOf<'T>.createMatcherTest ctx should
                  test.Should fail)
          ]
  
  let specs = [
      describe "System.Object extesions" [
  