Add load order tests

jaunt-lang · Apr 8, 2016 · a0d412b · a0d412b
1 parent 09aa97e
commit a0d412b
Show file tree

Hide file tree

Showing 6 changed files with 23 additions and 0 deletions.
diff --git a/test/clojure/test_clojure/compilation.clj b/test/clojure/test_clojure/compilation.clj
@@ -389,3 +389,8 @@
       ;; eventually call `load` and reset called?.
       (require 'clojure.repl :reload))
     (is @called?)))
+
+(deftest load-preference
+  (is (= :jnt (do (load "clojure/test_clojure/compilation/jnt_first") *1)))
+  (is (= :clj (do (load "clojure/test_clojure/compilation/clj_over_cljc") *1)))
+  (is (= :cljc (do (load "clojure/test_clojure/compilation/just_cljc") *1))))
diff --git a/test/clojure/test_clojure/compilation/clj_over_cljc.clj b/test/clojure/test_clojure/compilation/clj_over_cljc.clj
@@ -0,0 +1,4 @@
+(ns clojure.test-clojure.compilation.clj-over-cljc)
+
+(set! *1 :clj)
+
diff --git a/test/clojure/test_clojure/compilation/clj_over_cljc.cljc b/test/clojure/test_clojure/compilation/clj_over_cljc.cljc
@@ -0,0 +1,4 @@
+(ns clojure.test-clojure.compilation.clj-over-cljc)
+
+(set! *1 :cljc)
+
diff --git a/test/clojure/test_clojure/compilation/jnt_first.clj b/test/clojure/test_clojure/compilation/jnt_first.clj
@@ -0,0 +1,3 @@
+(ns clojure.test-clojure.compilation.jnt-first)
+
+(set! *1 :clj)
diff --git a/test/clojure/test_clojure/compilation/jnt_first.jnt b/test/clojure/test_clojure/compilation/jnt_first.jnt
@@ -0,0 +1,3 @@
+(ns clojure.test-clojure.compilation.jnt-first)
+
+(set! *1 :jnt)
diff --git a/test/clojure/test_clojure/compilation/just_cljc.cljc b/test/clojure/test_clojure/compilation/just_cljc.cljc
@@ -0,0 +1,4 @@
+(ns clojure.test-clojure.compilation.just-cljc)
+
+(set! *1 :cljc)
+
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		(ns clojure.test-clojure.compilation.clj-over-cljc)

		(set! *1 :clj)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		(ns clojure.test-clojure.compilation.clj-over-cljc)

		(set! *1 :cljc)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		(ns clojure.test-clojure.compilation.jnt-first)

		(set! *1 :clj)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		(ns clojure.test-clojure.compilation.jnt-first)

		(set! *1 :jnt)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		(ns clojure.test-clojure.compilation.just-cljc)

		(set! *1 :cljc)