anchor.diff:          tprintf "%s" (summary.ToString())
           summary.ToErrorLevel()
   
  -    [<Extension>]
  -    [<CompiledName("Run")>]
  +    [<Extension; CompiledName("Run")>]
       let run tests = runEval evalSeq tests
       
  -    [<Extension>]
  -    [<CompiledName("RunParallel")>]
  +    [<Extension; CompiledName("RunParallel")>]
       let runParallel tests = runEval evalPar tests
   
       let testFromMember (m: MemberInfo): Test option =
  
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: 
  open Helpers
  
  [<AutoOpen; Extension>]
  module Fuchu =
  
      let withLabel label test = TestLabel (label, test)
  