CanopyExtensions.fs

module CanopyExtensions

open VCanopy.Functions
open VCanopy.Types
open OpenQA.Selenium
open System

let private _placeholder value = sprintf "[placeholder = '%s']" value
let placeholder value = _placeholder value |> css

let private _name value = sprintf "[name = '%s']" value
let name value = _name value |> css

let private _options value = sprintf "select[name = '%s'] option" value
let options value = _options value |> css

let private _data_qa_name value = sprintf "[data-qa-name = '%s']" value
let data_qa_name value = _data_qa_name value |> css




// let on url =
//     let message = sprintf "Validating on page %s" url
//     waitFor2 message (fun _ -> currentUrl().Contains(url))

// let optionsToInts selector =
//     elements selector
//     |> List.map(fun element -> element.GetAttribute("value"))
//     |> List.filter (fun value -> value <> "")
//     |> List.map(fun value -> int value)
//     |> List.sort

// let firstOption selector = optionsToInts selector |> List.head |> string
// let recentOption selector = optionsToInts selector |> List.rev |> List.head |> string

// // it might happen you need to scroll to an element as it may ocasionaly fail if element is at the bottom of the screen
// let scrollTo selector =
// // .getBoundingClientRect()
// // window.scrollTo(500, 0);
//     canopy.classic.waitForElement selector
//     let e = canopy.classic.element selector
//     let executor = canopy.classic.browser :?> IJavaScriptExecutor
//     executor.ExecuteScript("var posBefore=window.scrollY;arguments[0].scrollIntoView(); if (posBefore == window.scrollY){console.log('alternative way to scroll');window.scrollTo(arguments[0].getBoundingClientRect().top, 0) }", e) |> ignore
//     sleep 3

// let rec throwIfElementExists selector seconds = 
//     let elements = unreliableElements selector |> List.filter (fun e -> e.Displayed)
//     if elements.Length > 0 then 
//         if seconds = 0 then 
//             raise (Exception(sprintf "Element \"%s\" was found on a page while it was not expected." selector ))
//         sleep 1
//         throwIfElementExists selector (seconds-1)

// let rec clickAndWait clickSelector elementToWait secondsToWait = 
//   // This is quite often happens that tests are failing because click did not work.
//   // I mean click happens with no issue as element there, the problem is that click doesn't do
//   // what it supposed to do and the next operation fails.
//     //Threading.Thread.Sleep 750
//     click clickSelector
//     printfn "clicked %s" clickSelector
//     let e = someElement elementToWait    
//     match e with
//     | None -> 
//         if secondsToWait <= 0 then 
//             raise (Exception(sprintf "Element \"%s\" was not found on a page" elementToWait ))
//         Threading.Thread.Sleep 1000
//         clickAndWait clickSelector elementToWait (secondsToWait-1)
//     | Some _ -> ()  

let defaultIf action defaultValue =
    try
        action()
    with 
    | _ -> defaultValue

let ( <<< ) element text = 
    match text with
    | Some t -> write t element
    | _ -> () 

//ToDo fix in the framework. Reads immediately without waiting
let readUnstable element=    
    let result =
        try
            readUnstable element "" |> Some            
        with
            | :? VCanopyException as ex ->  
                None
    result