anchor.diff:  
       testProperty "arb register" <|
         fun (FsCheckType i) ->
  -        Expect.isGreaterThanOrEqual i System.Int32.MinValue "arb"
  +        Expect.equal i 7 "arb"
     ]
   
   [<Tests>]
   let runFsCheckTests =
  -  testCaseAsync "run" <| async {
  +  ftestCaseAsync "run" <| async {
       let! results = Impl.evalTestsSilent properties
       Expect.equal results.Length 5 "results length"
   
  
positive.code: type FsCheckType = FsCheckType of int
  
  type ArbRegisterType() =
      member __.Test() = Arb.convert (fun (FsCheckType i) -> i) FsCheckType Arb.from
  
  let properties =
  
  
negative.code:     | x ->
        failtestf "Expected Ignored, actual %A" x
  
      //Expect.equal (getResult "FsCheck/arb register").result
      //             TestResult.Passed "arb"
    }
  
  let focused =
  