wip: move tests into their own directory, run them with script/test

Author: stuarthalloway

devnotes/testing

@@ -0,0 +1,13 @@
+Definitely a work-in-progress.
+
+To run tests before you commit:
+
+    script/test
+
+To add tests:
+
+   * Create test fiels in the test/cljs directory.
+   * Write fns that throw an exception on failure.
+   * Call those fns from test/cljs/cljs/test_runner.cljs
+
+

script/repl

@@ -1,3 +1,3 @@
 #!/bin/sh
-java -server -Xmx2G -Xms2G -Xmn256m -cp 'lib/*:src/clj:src/cljs' clojure.main
+java -server -Xmx2G -Xms2G -Xmn256m -cp 'lib/*:src/clj:src/cljs:test/cljs' clojure.main
 

script/repljs

@@ -1,5 +1,5 @@
 #!/bin/sh
-java -server -Xmx2G -Xms2G -Xmn256m -cp 'lib/*:src/clj:src/cljs' clojure.main -e \
+java -server -Xmx2G -Xms2G -Xmn256m -cp 'lib/*:src/clj:src/cljs:test/cljs' clojure.main -e \
 "(require '[cljs.compiler :as comp])
 (def jse (comp/repl-env))
 (comp/repl jse)"

script/test

@@ -0,0 +1,14 @@
+mkdir -p out
+
+bin/cljsc test  > out/core-test.js
+bin/cljsc test {:optimizations :advanced} > out/core-advanced-test.js
+
+if [ "$V8_HOME" == "" ]; then
+  echo "V8_HOME not set, skipping V8 tests"
+else
+  ${V8_HOME}/d8 out/core-advanced-test.js
+  # TODO: figure out path problem when not in advanced mode
+  # ${V8_HOME}/d8 out/core-test.js
+fi
+
+# TODO : run tests with rhino if available

src/cljs/cljs/core.cljs

@@ -345,22 +345,4 @@ nil if the end of stream has been reached")
   (let [r (push-back-reader s)]
     (read r true nil false)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tests ;;;;;;;;;;;;;;;;
-
-(defn test-reader
-  []
-  (assert (= 1 (read-string "1")))
-  (assert (= 2 (read-string "#_nope 2")))
-  (assert (= [3 4] (read-string "[3 4]")))
-  (assert (= "foo" (read-string "\"foo\"")))
-  (assert (= :hello (read-string ":hello")))
-  (assert (= 'goodbye (read-string "goodbye")))
-  (assert (= #{1 2 3} (read-string "#{1 2 3}")))
-  (assert (= '(7 8 9) (read-string "(7 8 9)")))
-  (assert (= '(deref foo) (read-string "@foo")))
-  (assert (= '(quote bar) (read-string "'bar")))
-  (assert (= \a (read-string "\\a")))
-  (assert (= {:tag 'String} (meta (read-string "^String {:a 1}"))))
-  (assert (= [:a 'b #{'c {:d [:e :f :g]}}]
-             (read-string "[:a b #{c {:d [:e :f :g]}}]"))))
 

src/cljs/cljs/reader.cljs

@@ -0,0 +1,20 @@
+(ns cljs.reader-test
+  (:require [cljs.reader :as reader]))
+
+(defn test-reader
+  []
+  (assert (= 1 (reader/read-string "1")))
+  (assert (= 2 (reader/read-string "#_nope 2")))
+  (assert (= [3 4] (reader/read-string "[3 4]")))
+  (assert (= "foo" (reader/read-string "\"foo\"")))
+  (assert (= :hello (reader/read-string ":hello")))
+  (assert (= 'goodbye (reader/read-string "goodbye")))
+  (assert (= #{1 2 3} (reader/read-string "#{1 2 3}")))
+  (assert (= '(7 8 9) (reader/read-string "(7 8 9)")))
+  (assert (= '(deref foo) (reader/read-string "@foo")))
+  (assert (= '(quote bar) (reader/read-string "'bar")))
+  (assert (= \a (reader/read-string "\\a")))
+  (assert (= {:tag 'String} (meta (reader/read-string "^String {:a 1}"))))
+  (assert (= [:a 'b #{'c {:d [:e :f :g]}}]
+             (reader/read-string "[:a b #{c {:d [:e :f :g]}}]")))
+  :ok)

test/cljs/cljs/core_test.cljs

@@ -0,0 +1,10 @@
+(ns cljs.test-runner
+  (:require [cljs.core-test :as core-test]
+            [cljs.reader-test :as reader-test]))
+
+(core-test/test-stuff)
+(reader-test/test-reader)
+
+(println "Tests completed without exception")
+
+