diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/test-vikalpa-equal-t-nil.scm | 3 | ||||
-rw-r--r-- | tests/test-vikalpa.scm | 6 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/test-vikalpa-equal-t-nil.scm b/tests/test-vikalpa-equal-t-nil.scm index 251fd10..f3ce61f 100644 --- a/tests/test-vikalpa-equal-t-nil.scm +++ b/tests/test-vikalpa-equal-t-nil.scm @@ -429,4 +429,7 @@ (test-equal '() (system-check (test))) +(test-equal '(result/expr (quote b)) + (system-eval (test) '(if 'nil 'a 'b))) + (test-end "test-vikalpa-equal-t-nil") diff --git a/tests/test-vikalpa.scm b/tests/test-vikalpa.scm index 961d683..644cb6a 100644 --- a/tests/test-vikalpa.scm +++ b/tests/test-vikalpa.scm @@ -418,4 +418,10 @@ (test-equal '() (system-check (test))) +(test-equal '(result/expr (quote b)) + (system-eval (test) '(if #f 'a 'b))) + +(test-equal '(result/expr (quote b)) + (system-eval (test) '(if '#f 'a 'b))) + (test-end "test-vikalpa") |