From e78c6b33e8664b69cb0daf85110e539f81380d11 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 7 Jul 2017 07:50:39 -0700 Subject: tests: add lambda quine tests. The tests fail as of this commit. * tests/012/quine.expected: New file. * tests/012/quine.tl: New file. --- tests/012/quine.expected | 0 tests/012/quine.tl | 17 +++++++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 tests/012/quine.expected create mode 100644 tests/012/quine.tl diff --git a/tests/012/quine.expected b/tests/012/quine.expected new file mode 100644 index 00000000..e69de29b diff --git a/tests/012/quine.tl b/tests/012/quine.tl new file mode 100644 index 00000000..f9faac89 --- /dev/null +++ b/tests/012/quine.tl @@ -0,0 +1,17 @@ +(load "../common") + +(test + ((lambda (lambda) + ^(,lambda ',lambda)) + '(lambda (lambda) ^(,lambda ',lambda))) + ((lambda (lambda) + ^(,lambda ',lambda)) + '(lambda (lambda) ^(,lambda ',lambda)))) + +(test + ((lambda (lambda) + ^((lambda (lambda) ,lambda) ',lambda)) + '^((lambda (lambda) ,lambda) ',lambda)) + ((lambda (lambda) + ^((lambda (lambda) ,lambda) ',lambda)) + '^((lambda (lambda) ,lambda) ',lambda))) -- cgit v1.2.3