diff --git a/collects/meta/props b/collects/meta/props index bf2e475973..b342dd505c 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1870,6 +1870,7 @@ path/s is either such a string or a list of them. "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/standalone.rkt" drdr:command-line (racket "-qjt" *) "collects/tests/run-automated-tests.rkt" drdr:command-line (mzc "-k" *) drdr:timeout 600 "collects/tests/scribble" responsible (eli) "collects/tests/slatex" responsible (jay sstrickl) diff --git a/collects/tests/rackunit/standalone-test-case-test.rkt b/collects/tests/rackunit/standalone-test-case-test.rkt index 339846919c..78f9abcceb 100644 --- a/collects/tests/rackunit/standalone-test-case-test.rkt +++ b/collects/tests/rackunit/standalone-test-case-test.rkt @@ -12,8 +12,8 @@ (test-case "succeed" (check-eq? 1 1)) ;; These should raise errors -(test-begin (error "Outta here!")) -(test-case "error" (error "Outta here!")) +(test-begin (error "First Outta here!")) +(test-case "error" (error "Second Outta here!")) ;; Thesse should raise failures (test-begin (check-eq? 1 2)) diff --git a/collects/tests/rackunit/standalone.rkt b/collects/tests/rackunit/standalone.rkt index 689b87e5fc..78d4a1aa89 100644 --- a/collects/tests/rackunit/standalone.rkt +++ b/collects/tests/rackunit/standalone.rkt @@ -29,9 +29,9 @@ (test-file "standalone-check-test.rkt" #"Oh HAI!\nI didn't run\n" - #"--------------------\nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/rackunit/private/check.rkt:144:29\nPLTHOME/collects/rackunit/private/check.rkt:77:0: top-level-check-around\nPLTHOME/collects/tests/rackunit/standalone-check-test.rkt: [running body]\nPLTHOME/collects/tests/rackunit/standalone.rkt: [running body]\n\n\n--------------------\n--------------------\nFAILURE\nname: check\nlocation: (# 44 0 1344 17)\nexpression: (check = 1 2)\nparams: (# 1 2)\nmessage: 0.0\n\n--------------------\n") + #"--------------------\nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/tests/rackunit/standalone-check-test.rkt:40:12: temp7\nPLTHOME/collects/rackunit/private/check.rkt:144:29\nPLTHOME/collects/racket/private/more-scheme.rkt:207:2: call-handled-body\nPLTHOME/collects/rackunit/private/check.rkt:77:0: top-level-check-around\n\n\n--------------------\n--------------------\nFAILURE\nname: check\nlocation: (# 44 0 1344 17)\nexpression: (check = 1 2)\nparams: (# 1 2)\nmessage: 0.0\n\n--------------------\n") (test-file "standalone-test-case-test.rkt" #"#t\n#t\n" - #"--------------------\nUnnamed test \nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt: [running body]\n\n\n--------------------\n--------------------\nerror\nERROR\nOutta here!\n\n--------------------\n--------------------\nUnnamed test \nFAILURE\nname: check-eq?\nlocation: (# 19 12 507 15)\nexpression: (check-eq? 1 2)\nparams: (1 2)\nactual: 1\nexpected: 2\n\n--------------------\n--------------------\nfailure\nFAILURE\nname: check-eq?\nlocation: (# 20 21 545 15)\nexpression: (check-eq? 1 2)\nparams: (1 2)\nactual: 1\nexpected: 2\n\n--------------------\n") + #"--------------------\nUnnamed test \nERROR\nFirst Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:207:2: call-handled-body\n\n\n--------------------\n--------------------\nerror\nERROR\nSecond Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:207:2: call-handled-body\n\n\n--------------------\n--------------------\nUnnamed test \nFAILURE\nname: check-eq?\nlocation: (# 19 12 520 15)\nexpression: (check-eq? 1 2)\nparams: (1 2)\nactual: 1\nexpected: 2\n\n--------------------\n--------------------\nfailure\nFAILURE\nname: check-eq?\nlocation: (# 20 21 558 15)\nexpression: (check-eq? 1 2)\nparams: (1 2)\nactual: 1\nexpected: 2\n\n--------------------\n")