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

It's not a no-op when there's a success, so that the eli-tester
successes get counted too.

On Fri, Mar 22, 2013 at 9:23 AM,  <eli at racket-lang.org> wrote:
> eli has updated `master' from 04d723eea8 to f1e5bd8fd4.
>   http://git.racket-lang.org/plt/04d723eea8..f1e5bd8fd4
>
> =====[ 2 Commits ]======================================================
> Directory summary:
>   99.5% collects/tests/
>
> ~~~~~~~~~~
>
> 9f05785 Eli Barzilay <eli at racket-lang.org> 2013-03-22 11:21
> :
> | Fix props order.
> :
>   M collects/meta/props | 12 ++++++------
>
> ~~~~~~~~~~
>
> f1e5bd8 Eli Barzilay <eli at racket-lang.org> 2013-03-22 11:22
> :
> | Undo no-op change.
> |
> | As discussed:
> |   http://lists.racket-lang.org/users/archive/2013-March/056907.html
> :
>   M collects/tests/eli-tester.rkt | 4 +---
>
> =====[ Overall Diff ]===================================================
>
> collects/meta/props
> ~~~~~~~~~~~~~~~~~~~
> --- OLD/collects/meta/props
> +++ NEW/collects/meta/props
> @@ -865,9 +865,9 @@ path/s is either such a string or a list of them.
>  "collects/parser-tools" responsible (mflatt)
>  "collects/parser-tools/private-lex/error-tests.rkt" drdr:command-line #f
>  "collects/picturing-programs" responsible (sbloch)
> +"collects/pkg" responsible (jay)
>  "collects/plai" responsible (jay)
>  "collects/planet" responsible (robby)
> -"collects/pkg" responsible (jay)
>  "collects/plot" responsible (ntoronto)
>  "collects/plot/scribblings/plot.scrbl" drdr:timeout 180
>  "collects/plot/tests/extreme-bounds-tests.rkt" drdr:timeout 150
> @@ -1137,6 +1137,8 @@ path/s is either such a string or a list of them.
>  "collects/tests/net/websocket/example.rkt" drdr:command-line #f
>  "collects/tests/net/websocket.rkt" responsible (jay)
>  "collects/tests/openssl" responsible (mflatt)
> +"collects/tests/pkg" responsible (jay) drdr:command-line (mzc *)
> +"collects/tests/pkg/test-pkgs" drdr:command-line #f
>  "collects/tests/plai" responsible (jay)
>  "collects/tests/plai/gc/bad-mutators" drdr:command-line #f
>  "collects/tests/plai/gc/other-mutators" drdr:command-line #f
> @@ -1157,8 +1159,6 @@ path/s is either such a string or a list of them.
>  "collects/tests/planet/test-docs-complete.rkt" drdr:command-line (raco "make" *)
>  "collects/tests/planet/thread-safe-resolver.rkt" drdr:command-line (raco "make" *) drdr:timeout 1000
>  "collects/tests/planet/version.rkt" drdr:command-line (raco "make" *)
> -"collects/tests/pkg" responsible (jay) drdr:command-line (mzc *)
> -"collects/tests/pkg/test-pkgs" drdr:command-line #f
>  "collects/tests/profile" responsible (eli)
>  "collects/tests/r6rs" responsible (mflatt)
>  "collects/tests/racket" responsible (mflatt)
> @@ -1423,13 +1423,13 @@ path/s is either such a string or a list of them.
>  "collects/tests/racket/ztest.rktl" drdr:command-line #f
>  "collects/tests/racklog" responsible (jay)
>  "collects/tests/rackunit" responsible (jay noel)
> -"collects/tests/rackunit/standalone-check-test.rkt" drdr:command-line #f
> -"collects/tests/rackunit/standalone-test-case-test.rkt" drdr:command-line #f
>  "collects/tests/rackunit/log.rkt" drdr:command-line (racket "-t" *)
>  "collects/tests/rackunit/pr10950.rkt" drdr:command-line (racket "-t" *)
>  "collects/tests/rackunit/run-tests.rkt" drdr:command-line (racket "-t" *)
> -"collects/tests/rackunit/tl.rkt" drdr:command-line (racket "-t" *)
> +"collects/tests/rackunit/standalone-check-test.rkt" drdr:command-line #f
> +"collects/tests/rackunit/standalone-test-case-test.rkt" drdr:command-line #f
>  "collects/tests/rackunit/standalone.rkt" drdr:command-line (racket "-jt" *)
> +"collects/tests/rackunit/tl.rkt" drdr:command-line (racket "-t" *)
>  "collects/tests/run-automated-tests.rkt" responsible (eli) drdr:command-line (mzc "-k" *) drdr:timeout 600
>  "collects/tests/scribble" responsible (eli mflatt)
>  "collects/tests/scribble/main.rkt" drdr:command-line #f
>
> collects/tests/eli-tester.rkt
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> --- OLD/collects/tests/eli-tester.rkt
> +++ NEW/collects/tests/eli-tester.rkt
> @@ -1,6 +1,6 @@
>  #lang racket/base
>
> -(require scheme/match scheme/list scheme/string rackunit/log
> +(require scheme/match scheme/list scheme/string
>           (for-syntax scheme/base scheme/match))
>
>  (define-syntax (safe stx)
> @@ -162,8 +162,6 @@
>             (lambda ()
>               (test-context #f)
>               (let ([num (mcar c)] [exns (mcdr c)])
> -               (for ([i (in-range num)]) (test-log! #t))
> -               (for ([i (in-list exns)]) (test-log! #f))
>                 (if (null? exns)
>                     (case pass
>                       [(loud) (printf "~a test~a passed\n" num (if (= num 1) "" "s"))]



-- 
Jay McCarthy <jay at cs.byu.edu>
Assistant Professor / Brigham Young University
http://faculty.cs.byu.edu/~jay

"The glory of God is Intelligence" - D&C 93