From 7d7ba3c6da77a22ee1be2fcf7e35283aad112887 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Aug 2021 06:45:02 -0700
Subject: 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.
---
 tests/012/iter.tl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tests/012')

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))
-- 
cgit v1.2.3