Basic webtest with canopy

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()