anchor.diff:      do pin()
          
       let mutable context = System.String.Empty
  -    let mutable test = System.String.Empty
       let mutable canQuit = false
       let mutable contexts : string list = []
       let mutable environment = System.String.Empty
  
positive.code:             then System.IO.Directory.CreateDirectory(directory) |> ignore
          IO.File.WriteAllText(System.IO.Path.Combine(directory,filename + ".html"), this.reportHtml())
      
      interface IReporter with               
          member this.pass () =
              this.swallowedJS (sprintf "updateTestInContext('%s', 'Pass', '%s');" context "")
              consoleReporter.pass ()
  
          member this.fail ex id ss url =
              this.swallowedJS (sprintf "updateTestInContext('%s', 'Fail', '%s');" context (Convert.ToBase64String(ss)))
              let stack = sprintf "%s%s%s" ex.Message System.Environment.NewLine ex.StackTrace
              let stack = jsEncode stack
              this.swallowedJS (sprintf "addStackToTest ('%s', '%s');" context stack)
              this.swallowedJS (sprintf "addUrlToTest ('%s', '%s');" context url)
              consoleReporter.fail ex id ss url
  
          member this.describe d =
              let encoded = jsEncode d
              this.swallowedJS (sprintf "addMessageToTest ('%s', '%s');" context encoded) 
  
negative.code:         member this.testStart id = 
              testStopWatch.Reset()
              testStopWatch.Start()
              let test = jsEncode id
              this.swallowedJS (sprintf "addToContext ('%s', '%s');" context test)
              consoleReporter.testStart id
              
  