Is the change to the native-pkgs sha1 intentional? Sam On Sep 8, 2013 3:04 AM, <stch...@racket-lang.org> wrote:
> stchang has updated `master' from 672e909880 to 7eaee796e1. > http://git.racket-lang.org/plt/672e909880..7eaee796e1 > > =====[ 3 Commits ]====================================================== > Directory summary: > 92.8% pkgs/racket-pkgs/racket-test/tests/racket/ > > ~~~~~~~~~~ > > 060ffeb Stephen Chang <stch...@racket-lang.org> 2013-09-08 01:48 > : > | add for/X tests for multi-loop break > : > M native-pkgs | 2 +- > M pkgs/racket-pkgs/racket-test/tests/racket/for.rktl | 6 ++++++ > > ~~~~~~~~~~ > > b685746 Stephen Chang <stch...@racket-lang.org> 2013-09-08 02:00 > : > | add for/X tests for outer-loop #:final condition > | > | - make sure innermost loop is executed only one more time > : > M pkgs/racket-pkgs/racket-test/tests/racket/for.rktl | 6 ++++++ > > ~~~~~~~~~~ > > 7eaee79 Stephen Chang <stch...@racket-lang.org> 2013-09-08 03:03 > : > | add more for/X tests > | > | - #:break and #:final in body with exprs in between > | - both #:break and #:final > | - skipped #:final > : > M .../racket-pkgs/racket-test/tests/racket/for.rktl | 25 > ++++++++++++++++++++ > > =====[ Overall Diff ]=================================================== > > native-pkgs > ~~~~~~~~~~~ > --- OLD/native-pkgs > +++ NEW/native-pkgs > @@ -1 +1 @@ > -Subproject commit 5f391155f276da25df85081cf8c80a9760a404b0 > +Subproject commit f367c0c4b05b91401d68b0180b416d616b31720d > > pkgs/racket-pkgs/racket-test/tests/racket/for.rktl > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > --- OLD/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl > +++ NEW/pkgs/racket-pkgs/racket-test/tests/racket/for.rktl > @@ -383,4 +383,41 @@ > (define-sequence-syntax in-X* (lambda () #'in-X) (lambda (stx) > #f)) > (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 > + (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))) > +(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))) > + > +(test '((0 0) (0 1) (1 0) (1 1)) 'break-and-final > + (for*/list ([i 4][j 2] #:final (= i 2) #:break (= i 2)) (list i j))) > + > +(test '((0 0) (0 1) (1 0) (1 1)) 'break-and-final > + (for*/list ([i 4][j 2] #:break (= i 2) #:final (= i 2)) (list i j))) > + > +(test '((0 1) (1 1)) 'skipped-final > + (for*/list ([i 4][j 2] #:final (= i 2) #:unless (= j 0)) (list i > j))) > + > +;; check #:break and #:final in body with exprs in between > +(test (list 0 1) 'nested-body-break > + (for/list ([i 4]) (define j (add1 i)) #:break (= j 3) i)) > +(test (list 0 1 2) 'nested-body-final > + (for/list ([i 4]) (define j (add1 i)) #:final (= j 3) i)) > +(test '((0 0) (0 1) (1 0) (1 1)) 'nested-body-break-and-final > + (for*/list ([i 4][j 2]) > + (define k i) #:final (= k 2) > + (define m i) #:break (= m 2) > + (list i j))) > +(test '((0 0) (0 1) (1 0) (1 1)) 'nested-body-break-and-final > + (for*/list ([i 4][j 2]) > + (define m i) #:break (= m 2) > + (define k i) #:final (= k 2) > + (list i j))) > + > (report-errs) >
_________________________ Racket Developers list: http://lists.racket-lang.org/dev
