anchor.diff:                  let ts = TimeSpan.FromMilliseconds (float timeout)
                   raise <| AssertException(sprintf "Timeout (%A)" ts)
   
  +open Helpers
   
   [<AutoOpen>]
   [<Extension>]
   module Fuchu =
  -    open Helpers
  -
  -    let inline internal (==) x y = LanguagePrimitives.PhysicalEquality x y
  -
  -    type internal TimeSpan with
  -        static member sum = Seq.fold (+) TimeSpan.Zero
   
       let withLabel label test = TestLabel (label, test)
   
  
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:                 finally
                    System.Console.ForegroundColor <- old) 
              fmt
      
      open System.Diagnostics
      Trace.AutoFlush <- true
      Trace.Listeners.Add(new ConsoleTraceListener()) |> ignore
      let tprintf fmt = Printf.kprintf Trace.Write fmt
  
      open System.Text.RegularExpressions
      let exnToString =
          let rx = lazy Regex(" at (.*) in (.*):line (\d+)", RegexOptions.Compiled ||| RegexOptions.Multiline)
          fun (e: Exception) -> 
              rx.Value.Replace(e.ToString(), "$2($3,1): $1")
  
  
      type MemberInfo with
          member m.HasAttributePred (pred: Type -> bool) =
  