PollingTargets.fs

open FScenario

// Polling Computation Expression
pol { target (fun () -> async { return FileInfo "C:/temp/file.txt" })
      until (fun f -> f.Exists)
      every _1s
      timeout _5s
      error "Polling at file path 'C:/temp/file.txt' doesn't result in any file" }
      
// Pipable polling functions
Poll.target (fun () -> Http.get "http://localhost:9090")
|> Poll.until (fun r -> r.StatusCode = OK)
|> Poll.every _5s
|> Poll.timeout _30s
|> Poll.error "Polling at http endpoint 'http://localhost:9090' doesn't result in OK"

// Prepared polling functions
Poll.untilFileExistsEvery1sFor5s "C:/temp/file.txt"
Poll.untilHttpOkEvery5sFor30s "http://localhost:9090"
Poll.untilEvery1sFor5s (fun () -> async { return 0 }) (fun i -> i = 0)