anchor.diff:          |> evalTestList beforeRun onPassed onIgnored onFailed onException map
           |> Seq.toList
   
  -    let printStartTest = cprintf ConsoleColor.Gray "Running '%s'\n"
  -    let printPassed x = cprintf ConsoleColor.DarkGreen "%s: Passed (%A)\n" x
  -    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 printStartTest = cprintf ConsoleColor.Gray "Running '%s'\n"
  +//    let printPassed x = cprintf ConsoleColor.DarkGreen "%s: Passed (%A)\n" x
  +//    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 printStartTest = tprintf "Running '%s'\n"
  +    let printPassed x = tprintf "%s: Passed (%A)\n" x
  +    let printIgnored = tprintf "%s: Ignored: %s\n"
  +    let printFailed = tprintf "%s: Failed: %s (%A)\n"
  +    let printException name ex = tprintf "%s: Exception: %s (%A)\n" name (exnToString ex)
   
       let evalSeq = eval ignore ignore2 ignore2 printFailed printException Seq.map
   
  
positive.code:             | Passed -> "Passed"
              | Ignored reason -> "Ignored: " + reason
              | Failed error -> "Failed: " + error
              | Exception e -> "Exception: " + e.ToString()
          static member isPassed =
              function
              | Passed -> true
  
negative.code:             if summary.Errored > 0 || summary.Failed > 0
                  then ConsoleColor.Red
                  else ConsoleColor.Green
          //cprintf color "%s" (summary.ToString())
          tprintf "%s" (summary.ToString())
          summary.ToErrorLevel()
  
      [<Extension>]
  