diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/ashwin.expected | 0 | ||||
| -rw-r--r-- | tests/012/ashwin.tl | 8 |
2 files changed, 8 insertions, 0 deletions
diff --git a/tests/012/ashwin.expected b/tests/012/ashwin.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/ashwin.expected diff --git a/tests/012/ashwin.tl b/tests/012/ashwin.tl new file mode 100644 index 00000000..66226f2c --- /dev/null +++ b/tests/012/ashwin.tl @@ -0,0 +1,8 @@ +(load "../common") + +(defvarl a-list '((a . 42) (b . 73))) +(defvarl key 'a) + +(test (cdr (assq key a-list)) 42) +(test (cdr (assq 'b a-list)) 73) +(test (cdr (assq 'c a-list)) nil) |