Skip to content

Instantly share code, notes, and snippets.

@DotNetNerd
Created May 8, 2013 07:35
Show Gist options
  • Save DotNetNerd/5538841 to your computer and use it in GitHub Desktop.
Save DotNetNerd/5538841 to your computer and use it in GitHub Desktop.
Basic webtest with canopy
open canopy
open runner
start firefox
"Go to fona and add to basket" &&& fun _ ->
url "http://www.fona.dk"
let numberOfLineItems = (elements "#miniCartProducts li").Length
let total = read ".miniCartValue"
click (first "a.addToCart")
waitFor (fun _ ->
(elements "#miniCartProducts li").Length > numberOfLineItems)
".miniCartValue" != total
run()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment