anchor.diff:      )
   
   url actions
  -[0 .. (elements ".source").Length]
  -|> List.iter sourceLinkCorrect
  +[0 .. (elements ".source").Length - 1]
  +|> List.iter (fun index -> 
  +    let e = nth index ".source"
  +    let datafor = e.GetAttribute("data-for")
  +    sourceLinkCorrect index datafor)
   |> ignore
   ()
       
  
positive.code: 
  context "test source links"
  
  let sourceLinkCorrect index = 
      test(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 
  
negative.code: open configuration
  open reporters
  reporter <- new LiveHtmlReporter() :> IReporter
  elementTimeout <- 2.0
  compareTimeout <- 2.0
  
  start chrome
  
  