Use cljs.core for cli arguments in cljs.js

.travis.yml

@@ -28,7 +28,7 @@ script:
 - yarn test
 - boot test
 - boot release-ci
-- ./build/lumo -c test scripts/lumo_test.cljs
+- ./build/lumo -c test scripts/lumo_test.cljs --test-cli-option true
 after_success:
 - chmod a+x build/lumo
 - zip -j build/lumo.zip build/lumo

appveyor.yml

@@ -32,7 +32,7 @@ test_script:
   - yarn test
   - cmd: boot test
   - cmd: boot release-ci
-  - cmd: build\lumo.exe --classpath test scripts\lumo_test.cljs
+  - cmd: build\lumo.exe --classpath test scripts\lumo_test.cljs --test-cli-option true
 
 artifacts:
   - path: build

circle.yml

@@ -51,7 +51,7 @@ test:
     - yarn test
     - boot test
     - boot release-ci
-    - ./build/lumo -c test scripts/lumo_test.cljs
+    - ./build/lumo -c test scripts/lumo_test.cljs --test-cli-option true
   post:
     - chmod a+x build/lumo
     - zip -j build/lumo.zip build/lumo

src/js/cljs.js

@@ -253,7 +253,7 @@ function initClojureScriptEngine(opts: CLIOptsType): void {
 
   if (args != null && args.length > 0) {
     // $FlowIssue: context can have globals
-    ClojureScriptContext.lumo.core._STAR_command_line_args_STAR_ =
+    ClojureScriptContext.cljs.core._STAR_command_line_args_STAR_ =
       // $FlowIssue: context can have globals
       ClojureScriptContext.cljs.core.seq(args);
   }

test/lumo/repl_tests.cljs

@@ -136,3 +136,11 @@ Special Form
   (is (= () (lumo/apropos ffirst)))
   (is (= '(cljs.core/ffirst cljs.core/nfirst) (lumo/apropos #"[a-z]+first")))
   (is (= '(cljs.core/aget) (lumo/apropos "aget"))))
+
+(when test-util/lumo-env?
+  (deftest test-cli-args
+    ;; this requires to run:
+    ;;   ./build/lumo -c test scripts/lumo_test.cljs --test-cli-option true
+    (is (not-any? #(= (.-execPath js/process) %1) cljs.core/*command-line-args*) "It should not contain process.execPath")
+    (is (not-any? #(= "nexe.js" %1) cljs.core/*command-line-args*) "It should not contain the path to the JavaScript file being executed")
+    (is (= ["--test-cli-option" "true"] cljs.core/*command-line-args*) "It should contained the expected options (in order)")))