Concise UI testing with Clojure
; Evaluate these forms in your REPL, form by form
(ns demo)
(require '[cuic.core :as c])
(require 'cuic.repl)
(cuic.repl/launch-dev-browser! {:window-size {:width 1500 :height 1000}})
(c/goto! "https://clojuredocs.org")
(def core-link
(->> (c/q ".navbar li a")
(filter c/visible?)
(filter #(= "Core Library" (c/text-content %)))
(first)
(c/wait)))
(c/click! core-link)
(def test-lib-link
(->> (c/q ".library-nav li a")
(filter #(= "test" (c/text-content %)))
(first)
(c/wait)))
(c/click! test-lib-link)
(def test-var-names
(->> (c/wait (c/q ".var-group"))
(mapcat #(c/q % ".name"))
(map c/inner-text)
(sort)))
(do (println "Vars in clojure.test are:")
(doseq [var-name test-var-names]
(println " " var-name)))
WIP...
See API docs here.
MIT
Can you improve this documentation?Edit on GitHub
cljdoc is a website building & hosting documentation for Clojure/Script libraries
× close