tests: test case for combining .tlo files.

* tests/018/combine-tlo.tl: New file.

1 files changed, 27 insertions, 0 deletions

diff --git a/tests/018/combine-tlo.tl b/tests/018/combine-tlo.tl
new file mode 100644
index 00000000..e2dc0f83
--- /dev/null
+++ b/tests/018/combine-tlo.tl
@@ -0,0 +1,27 @@
+(load "../common")
+
+(push-after-load
+  (remove-path "libfile.tl")
+  (remove-path "libfile.tlo")
+  (remove-path "mainfile.tl")
+  (remove-path "mainfile.tlo")
+  (remove-path "progfile"))
+
+(file-put-lines
+  "libfile.tl"
+  ^(,`#!@{txr-exe-path} --lisp`
+    "(defun libfun ()"
+    "  (put-line \"libfun\"))"))
+
+(file-put-lines
+  "mainfile.tl"
+  '("(compile-only (libfun))"))
+
+(compile-file "./libfile")
+(compile-file "./mainfile")
+
+(cat-files "progfile" "libfile.tlo" "mainfile.tlo")
+
+(chmod "progfile" "+x")
+
+(test (command-get-lines "./progfile") ("libfun"))