diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-07 07:50:39 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-07 07:50:39 -0700 |
| commit | 10619577e302d742d645587c342348061d0f1854 (patch) | |
| tree | 1cba34fa760c3e26093d21b7232152ac8a0f55b2 | |
| parent | 5c82fb3cf931b54836a854f77710510868b21bce (diff) | |
| download | txr-10619577e302d742d645587c342348061d0f1854.tar.gz txr-10619577e302d742d645587c342348061d0f1854.tar.bz2 txr-10619577e302d742d645587c342348061d0f1854.zip | |
tests: add lambda quine tests.
The tests fail as of this commit.
* tests/012/quine.expected: New file.
* tests/012/quine.tl: New file.
| -rw-r--r-- | tests/012/quine.expected | 0 | ||||
| -rw-r--r-- | tests/012/quine.tl | 17 |
2 files changed, 17 insertions, 0 deletions
diff --git a/tests/012/quine.expected b/tests/012/quine.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/quine.expected 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))) |