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 | e78c6b33e8664b69cb0daf85110e539f81380d11 (patch) | |
| tree | 1cba34fa760c3e26093d21b7232152ac8a0f55b2 /tests | |
| parent | 603d0c7e0a59762ff35bcff54ad6910f30d871eb (diff) | |
| download | txr-e78c6b33e8664b69cb0daf85110e539f81380d11.tar.gz txr-e78c6b33e8664b69cb0daf85110e539f81380d11.tar.bz2 txr-e78c6b33e8664b69cb0daf85110e539f81380d11.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.
Diffstat (limited to 'tests')
| -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))) |