tests: add regression tests for #288

carp-lang · Sep 18, 2018 · 3080671 · 3080671
1 parent bcaf8a6
commit 3080671
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/test/fixture_foo.h b/test/fixture_foo.h
@@ -0,0 +1,3 @@
+int fooInit() {
+  return 1;
+}
diff --git a/test/regression.carp b/test/regression.carp
@@ -0,0 +1,20 @@
+(local-include "../test/fixture_foo.h")
+(load "Test.carp")
+(load "Vector.carp")
+
+; this is a test-only module to test module resolution (see #288)
+(defmodule Foo
+  (register init (Fn [] Int) "fooInit")
+)
+
+(use-all Test Vector2 Foo)
+
+(defn main []
+  (with-test test
+    (assert-equal test
+                   1
+                   (init)
+                   "test that the right module gets resolved"
+    )
+  )
+)