3 files changed, 16 insertions, 0 deletions
diff --git a/tests/019/load-ret.tl b/tests/019/load-ret.tl
new file mode 100644
index 00000000..a79f7da9
--- /dev/null
+++ b/tests/019/load-ret.tl
@@ -0,0 +1,13 @@
+(load "../common")
+
+(mtest
+  (load "load-ret/module") 0
+  (load "load-ret/module" 1) 1
+  (load "load-ret/module" 1 2 3) 6)
+
+(mtest
+  (load-for (var abc "load-ret/module2" 'abc)) 0 
+  (load-for (var def "load-ret/module2" 'def 1 2 3)) 6
+  (load-for (var abc "load-ret/module2" 'abc)) nil
+  (load-for (var abc "load-ret/module2" 'abc)
+            (var ghi "load-ret/module2" 'ghi 2 3 4)) 9)
diff --git a/tests/019/load-ret/module.tl b/tests/019/load-ret/module.tl
new file mode 100644
index 00000000..05d69035
--- /dev/null
+++ b/tests/019/load-ret/module.tl
@@ -0,0 +1 @@
+(return-from load [apply + *load-args*])
diff --git a/tests/019/load-ret/module2.tl b/tests/019/load-ret/module2.tl
new file mode 100644
index 00000000..e651c3f5
--- /dev/null
+++ b/tests/019/load-ret/module2.tl
@@ -0,0 +1,2 @@
+(eval ^(defvar ,(pop *load-args*)))
+(return-from load [apply + *load-args*])