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, <e...@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 <e...@racket-lang.org> 2013-03-22 11:21 > : > | Fix props order. > : > M collects/meta/props | 12 ++++++------ > > ~~~~~~~~~~ > > f1e5bd8 Eli Barzilay <e...@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 <j...@cs.byu.edu> Assistant Professor / Brigham Young University http://faculty.cs.byu.edu/~jay "The glory of God is Intelligence" - D&C 93 _________________________ Racket Developers list: http://lists.racket-lang.org/dev
