[racket-dev] [plt] Push #27454: master branch updated

From: Sam Tobin-Hochstadt (samth at cs.indiana.edu)
Date: Sun Sep 8 08:54:55 EDT 2013

Is the change to the native-pkgs sha1 intentional?

Sam
On Sep 8, 2013 3:04 AM, <stchang at 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 <stchang at 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 <stchang at 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 <stchang at 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)
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/dev/archive/attachments/20130908/53a42026/attachment.html>

Posted on the dev mailing list.