anchor.diff:                      | _ ->
                           onException name e w.Elapsed
                           { Name = name
  -                          Result = Failed e.Message
  +                          Result = TestResult.Exception e
                             Time = w.Elapsed }
               map execOne
   
  
positive.code:         |> 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 evalSeq = eval ignore ignore2 ignore2 printFailed printException Seq.map
  
  
negative.code:     inherit Attribute()
  
  module Helpers =
      let internal (==) x y = LanguagePrimitives.PhysicalEquality x y
  
      type TimeSpan with
          static member sum = Seq.fold (+) TimeSpan.Zero
  
      let ignore2 _ _ = ()
      let ignore3 _ _ _ = ()
  
  