anchor.diff:      interface IRunner with
           override __.OnStartFixture _ = ()
           override __.OnArguments (ntest,args, every) =
  -            printf "%s" (every ntest args)
  +            every ntest args |> ignore
           override __.OnShrink(args, everyShrink) =
  -            printf "%s" (everyShrink args)
  +            everyShrink args |> ignore
           override __.OnFinished(_ ,testResult) =
               result <- Some testResult
   
  
positive.code: 
      new() = new PropertyTestCase(null, TestMethodDisplay.ClassAndMethod, null)
  
      member this.Init() =
          let factAttribute = this.TestMethod.Method.GetCustomAttributes(typeof<PropertyAttribute>) |> Seq.head
          let arbitrariesOnMethod = factAttribute.GetNamedArgument "Arbitrary"
          let arbitrariesOnClass =
  
negative.code:                 StartSize = factAttribute.GetNamedArgument("StartSize")
                  EndSize = factAttribute.GetNamedArgument("EndSize")
                  QuietOnSuccess = factAttribute.GetNamedArgument("QuietOnSuccess")
                  Every = if factAttribute.GetNamedArgument("Verbose") then 
                              fun n args -> output.WriteLine (Config.Verbose.Every n args); ""
                          else 
                              Config.Quick.Every
                  EveryShrink = if factAttribute.GetNamedArgument("Verbose") then 
                                  fun args -> output.WriteLine (Config.Verbose.EveryShrink args); ""
                                  else 
                                      Config.Quick.EveryShrink
                  Arbitrary = arbitraries
                  Runner = new XunitRunner()
              }
  