From 060ffeb8790a36d21b32fc1a43300c6e552e8dbf Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Sun, 8 Sep 2013 01:48:42 -0400 Subject: [PATCH] add for/X tests for multi-loop break --- native-pkgs | 2 +- pkgs/racket-pkgs/racket-test/tests/racket/for.rktl | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/native-pkgs b/native-pkgs index 5f391155f2..f367c0c4b0 160000 --- a/native-pkgs +++ b/native-pkgs @@ -1 +1 @@ -Subproject commit 5f391155f276da25df85081cf8c80a9760a404b0 +Subproject commit f367c0c4b05b91401d68b0180b416d616b31720d diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl index c10eb75260..7695fdcd43 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl @@ -383,4 +383,10 @@ (define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) #f)) (for/list ([x (in-X* #:x '(1 2 3))]) x))) +(test '((0 0) (0 1) (1 0) (1 1)) 'multi-level-break + (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 + (for/list ([i 5] #:when (odd? i) [j 2] #:when #t [k 2] #:break (= i 3)) + (list i j k))) + (report-errs)