make it possible to run self-host tests at command line

Author: dnolen

script/test-self-host

@@ -0,0 +1,10 @@
+#!/bin/sh
+
+# stop blowing compiled stuff
+rm -rf builds/out-self
+mkdir -p builds/out-self
+
+bin/cljsc src/test/cljs/self_host  "{:optimizations :simple :static-fns true :output-dir \"builds/out-self\" :optimize-constants true :verbose true :compiler-stats true :target :nodejs}" > builds/out-self/core-self-test.js
+
+echo "Testing with Node"
+node builds/out-self/core-self-test.js

src/test/cljs/self_host/test.cljs

@@ -1,7 +1,10 @@
 (ns self-host.test
   (:require [cljs.test :as test
              :refer-macros [run-tests deftest testing is async]]
-            [cljs.js :as cljs]))
+            [cljs.js :as cljs]
+            [cljs.nodejs :as nodejs]))
+
+(nodejs/enable-util-print!)
 
 (defn latch [m f]
   (let [r (atom 0)]
@@ -13,8 +16,6 @@
 (defn inc! [r]
   (swap! r inc))
 
-(set! *target* "nodejs")
-
 (def vm (js/require "vm"))
 (def fs (js/require "fs"))
 (def st (cljs/empty-state))
@@ -71,7 +72,7 @@
           (is (nil? error))
           (is (== value 2))
           (inc! l)))
-      (cljs/eval-str st "(def x 1)" nil
+      #_(cljs/eval-str st "(def x 1)" nil
         {:eval node-eval
          :context :expr
          :def-emits-var true}
@@ -86,4 +87,9 @@
         (fn [{:keys [error value]}]
           (is (nil? error))
           (is (fn? value))
-          (inc! l))))))
+          (inc! l))))))
+
+(defn -main [& args]
+  (run-tests))
+
+(set! *main-cli-fn* -main)