anchor.diff:          let r = Test.toTestCodeList tests |> evalTestList beforeRun onPassed onIgnored onFailed onException map
           Seq.toList r
   
  -    let printStartTest = printfn "Running '%s'"
  -    let printPassed = printfn "%s: Passed (%A)"
  -    let printIgnored = printfn "%s: Ignored: %s"
  -    let printFailed = printfn "%s: Failed: %s (%A)"
  -    let printException = printfn "%s: Exception: %A (%A)"
  +    let printStartTest = cprintf ConsoleColor.Gray "Running '%s'\n"
  +    let printPassed = cprintf ConsoleColor.DarkGreen "%s: Passed (%A)\n"
  +    let printIgnored = cprintf ConsoleColor.DarkYellow "%s: Ignored: %s\n"
  +    let printFailed = cprintf ConsoleColor.DarkRed "%s: Failed: %s (%A)\n"
  +    let printException = cprintf ConsoleColor.DarkRed "%s: Exception: %A (%A)\n"
   
       let evalSeq = eval printStartTest printPassed printIgnored printFailed printException Seq.map
   
  
positive.code: type AssertException(msg) =
      inherit Exception(msg)
  
  [<CompilationRepresentationAttribute(CompilationRepresentationFlags.ModuleSuffix)>]
  module Test =
      let toTestCodeList =
  
negative.code:     let runEval eval tests = 
          let results = eval tests
          let summary = sumTestResults results
          let color =
              if summary.Errored > 0 || summary.Failed > 0
                  then ConsoleColor.Red
                  else ConsoleColor.Green
          cprintf color "%s" (summary.ToString())
          summary.ToErrorLevel()
  
      [<Extension>]
  