Headless test

Author: iku000888

.gitignore

@@ -13,3 +13,4 @@ pom.xml
 /examples/*/main.js
 *~
 *.asc
+node_modules/

.travis.yml

@@ -1,6 +1,11 @@
 language: clojure
 script: ./script/test
 sudo: false
+addons:
+  apt:
+    sources: [ 'ubuntu-toolchain-r-test']
+    packages: ['libstdc++6']
 cache:
   directories:
-  - $HOME/.m2
+  - $HOME/.m2
+  - node_modules

package-lock.json

@@ -0,0 +1,45 @@
+(ns om-tools.headless-test)
+
+(def path (js/require "path"))
+
+(def p (js/require "puppeteer"))
+
+(def expected-outputs
+  {"\nTesting om-tools.core-test " 1
+   "\nTesting om-tools.dom-test " 1
+   "\nTesting om-tools.mixin-test " 1
+   "\nTesting om-tools.schema-test " 1
+   "\nRan 13 synchronous tests containing 367 assertions." 1
+   "Waiting on 1 asynchronous test to complete." 1
+   "\nTesting om-tools.core-test (async)" 1
+   "\nRan 14  tests containing 370 assertions." 1
+   "Testing complete: 0 failures, 0 errors." 2})
+
+(defn goto-test-html
+  [p]
+  (.goto p (str "file://" (path.resolve "test/index.html"))))
+
+(defn watch-for-log-events [p result-store]
+  (.on p "console"
+       (fn [console-message]
+         (swap! result-store
+                update (.text console-message) inc))))
+
+(js/setTimeout
+ (fn []
+   (js/console.error "Tests did not pass within allowed time")
+   (.exit js/process 1))
+ 20000)
+
+(let [browser (.launch p (clj->js {:args ["--no-sandbox"]}))
+      page (.then browser (fn [browser]
+                            (.newPage browser)))
+      result-store (let [a (atom {})]
+                     (add-watch a ::store
+                                (fn [k r o n]
+                                  (when (= n expected-outputs)
+                                    (prn "Tests passed :)")
+                                    (.exit js/process)))))]
+  (-> page
+      (.then #(watch-for-log-events % result-store))
+      (.then goto-test-html)))

script/headless_test.cljs

@@ -4,3 +4,6 @@ set -ev
 cd "$(dirname ${0})/.."
 
 lein do clean, test, cljsbuild test
+npm install -i puppeteer
+npm install -i lumo-cljs
+./node_modules/lumo-cljs/bin/lumo -i script/headless_test.cljs