anchor.diff:  
   context "test source links"
   
  -let sourceLinkCorrect index = 
  -    test(fun _ ->
  +let sourceLinkCorrect index datafor = 
  +    
  +    ntest ("Test for " + datafor) (fun _ ->        
           url actions
           let e = nth index ".source"
  -        let datafor = e.GetAttribute("data-for")
           let dataline = e.GetAttribute("data-line")
           let lineSelector = "#LC" + dataline + " span"
           if datafor <> null && dataline <> null then
  -            describe ("Test for " + datafor)
               click e
               on "https://github.com/lefthandedgoat/canopy/blob/master/canopy/canopy.fs"
               lineSelector *= datafor 
  
positive.code: open configuration
  open reporters
  reporter <- new LiveHtmlReporter() :> IReporter
  
  start chrome
  
  
negative.code:     )
  
  url actions
  [0 .. (elements ".source").Length - 1]
  |> List.iter (fun index -> 
      let e = nth index ".source"
      let datafor = e.GetAttribute("data-for")
      sourceLinkCorrect index datafor)
  |> ignore
  ()
      
  