diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-30 06:45:02 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-30 06:45:02 -0700 |
| commit | 7d7ba3c6da77a22ee1be2fcf7e35283aad112887 (patch) | |
| tree | 45c22bdcdfde766d60b842e306ad713df96078ac | |
| parent | c49a25b9769b43c15414e16ca5fef9d8e593a50a (diff) | |
| download | txr-7d7ba3c6da77a22ee1be2fcf7e35283aad112887.tar.gz txr-7d7ba3c6da77a22ee1be2fcf7e35283aad112887.tar.bz2 txr-7d7ba3c6da77a22ee1be2fcf7e35283aad112887.zip | |
seq_iter: some new test cases.
* tests/012/iter.tl: Several new cases to provide some
coverage in recently fixed areas. All of these break in 268.
| -rw-r--r-- | tests/012/iter.tl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/012/iter.tl b/tests/012/iter.tl index 1151d8ca..051368b3 100644 --- a/tests/012/iter.tl +++ b/tests/012/iter.tl @@ -59,3 +59,11 @@ (test [mapcar identity [0..10 3 6]] (3 4 5)) + +;; iterating from fixnum to bignum was rejected in up to txr-269. +(test (each ((x fixnum-max..(* 5 fixnum-max))) (return 42)) 42) + +(test (progn (each ((x "A".."Z")) (sys:gc)) 42) 42) + +(let ((big (* fixnum-max 8))) + (test (progn (each ((x big..(+ 10 big))) (sys:gc)) 42) 42)) |