anchor.diff:      url "http://resizemybrowser.com/"
       resize screenSizes.iPhone4
       rotate()
  -    "#cHeight" == "320"
  +    "#cHeight" == "357"
       "#cWidth" == "480"
       quit browser
       switchTo mainBrowser
  
positive.code:     start chrome
      url "http://resizemybrowser.com/"
      resize screenSizes.iPhone4
      "#cWidth" == "320"
      "#cHeight" == "480"
      quit browser
      switchTo mainBrowser
  
negative.code: 
  "write a test that tests the whole internet!" &&& todo
  
  let createTest n =
      let testName = sprintf "Testing welcome %i" n
  
      let testBody _ = 
          url testpage
          "#welcome" == "Welcome"
  
      testName &&& todo
  
  
  let createTestSuite contextName n =
      context contextName
  
      [1..n]
      |> Seq.iter createTest
  
  start chrome
  
  createTestSuite "Add test performance" 100000
  
  run ()
          
  switchTo mainBrowser
  