anchor.diff:  
   open Helpers
   
  -[<AutoOpen>]
  -[<Extension>]
  +[<AutoOpen; Extension>]
   module Fuchu =
   
       let withLabel label test = TestLabel (label, test)
  
positive.code:         let printException = flock3 printException
          eval ignore ignore2 ignore2 printFailed printException pmap
  
      let evalSilent = 
          eval ignore ignore2 ignore2 ignore3 ignore3 Seq.map
  
      let runEval eval tests = 
          let results = eval tests
  
negative.code:         tprintf "%s" (summary.ToString())
          summary.ToErrorLevel()
  
      [<Extension; CompiledName("Run")>]
      let run tests = runEval evalSeq tests
      
      [<Extension; CompiledName("RunParallel")>]
      let runParallel tests = runEval evalPar tests
  
      let testFromMember (m: MemberInfo): Test option =
  