suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add for/X tests for outer-loop #:final condition

Browse Source 
- make sure innermost loop is executed only one more time
This commit is contained in:
Stephen Chang 2013-09-08 02:00:16 -04:00
parent 060ffeb879
commit b685746b12
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-pkgs/racket-test/tests/racket/for.rktl
View File

@ -383,10 +383,16 @@
(define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f)) (define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f))
(for/list ([x (in-X* #:x '(1 2 3))]) x))) (for/list ([x (in-X* #:x '(1 2 3))]) x)))
;; extra tests for #:break and #:final
(test '((0 0) (0 1) (1 0) (1 1)) 'multi-level-break (test '((0 0) (0 1) (1 0) (1 1)) 'multi-level-break
(for*/list ([i 4] [j 2] #:break (= i 2)) (list i j))) (for*/list ([i 4] [j 2] #:break (= i 2)) (list i j)))
(test '((1 0 0) (1 0 1) (1 1 0) (1 1 1)) 'multi-level-break (test '((1 0 0) (1 0 1) (1 1 0) (1 1 1)) 'multi-level-break
(for/list ([i 5] #:when (odd? i) [j 2] #:when #t [k 2] #:break (= i 3)) (for/list ([i 5] #:when (odd? i) [j 2] #:when #t [k 2] #:break (= i 3))
(list i j k))) (list i j k)))
(test '((0 0) (0 1) (1 0) (1 1) (2 0)) 'outer-loop-final
(for*/list ([i 4][j 2] #:final (= i 2)) (list i j)))
(test '((0 0) (0 1) (1 0) (1 1) (2 0)) 'outer-loop-final
(for/list ([i 4] #:final (= i 2) [j 2]) (list i j)))
(report-errs) (report-errs)