24 lines
634 B
Clojure
24 lines
634 B
Clojure
|
(ns portal.jvm-test
|
||
|
|
(:require [clojure.test :refer [deftest is]]
|
||
|
|
[portal.api :as p]
|
||
|
|
[portal.runtime.browser :as browser]
|
||
|
|
[portal.runtime.index :as index]
|
||
|
|
[portal.runtime.jvm.client :as client]))
|
||
|
|
|
||
|
|
(defn- headless-chrome-flags [url]
|
||
|
|
["--headless" "--disable-gpu" url])
|
||
|
|
|
||
|
|
(defn- open [f]
|
||
|
|
(with-redefs [browser/flags f] (p/open)))
|
||
|
|
|
||
|
|
(deftest e2e-jvm
|
||
|
|
(reset! index/testing? true)
|
||
|
|
(when-let [portal (open headless-chrome-flags)]
|
||
|
|
(with-redefs [client/timeout 60000]
|
||
|
|
(reset! portal 0)
|
||
|
|
(is (= @portal 0))
|
||
|
|
(swap! portal inc)
|
||
|
|
(is (= @portal 1))))
|
||
|
|
(p/close))
|
||
|
|
|