From 370a9eb242948815567a721bfae91866c3184683 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 14 Feb 2022 07:52:47 -0800 Subject: tests: test case for combining .tlo files. * tests/018/combine-tlo.tl: New file. --- tests/018/combine-tlo.tl | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 tests/018/combine-tlo.tl (limited to 'tests') 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")) -- cgit v1.2.3