anchor.diff:                      w.Stop()
                       match e with
                       | ExceptionInList failExceptions ->
  -                        onFailed name e.Message w.Elapsed
  +                        let msg =
  +                            let firstLine = 
  +                                (stackTraceToString e.StackTrace).Split('\n') 
  +                                |> Seq.filter (fun q -> q.Contains ",1): ") 
  +                                |> Enumerable.FirstOrDefault
  +                            sprintf "%s%s\n" e.Message firstLine
  +                        onFailed name msg w.Elapsed
                           { Name = name
  -                          Result = Failed e.Message
  +                          Result = Failed msg
                             Time = w.Elapsed }
                       | ExceptionInList ignoreExceptions ->
                           onIgnored name e.Message
  
positive.code:     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) =
  
negative.code:             let execOne (name: string, test) = 
                  beforeRun name
                  let w = System.Diagnostics.Stopwatch.StartNew()
                  try
                      test()
                      w.Stop()
                      onPassed name w.Elapsed
  