suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rackunit: fixed test

Browse Source 
merge to 5.2
This commit is contained in:
Ryan Culpepper 2011-10-08 01:21:54 -06:00
parent 18b3899e6a
commit 1695d73f5b
1 changed files with 53 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
collects/tests/rackunit/standalone.rkt
View File

@ -8,12 +8,14 @@
(normalize-path (build-path here ".." ".."))) (normalize-path (build-path here ".." "..")))
(define (collect-trim bs) (define (collect-trim bs)
(regexp-replace* (regexp-quote (path->bytes collects)) bs #"PLTHOME/collects")) (regexp-replace* (regexp-quote (path->bytes collects)) bs #"PLTHOME/collects"))
(define (require&catch path) (define (require&catch path)
(define out-bs (open-output-bytes)) (define out-bs (open-output-bytes))
(define err-bs (open-output-bytes)) (define err-bs (open-output-bytes))
(parameterize ([current-output-port out-bs] (parameterize ([current-output-port out-bs]
[current-error-port err-bs]) [current-error-port err-bs]
;; Don't test context output; it's too fragile.
[error-print-context-length 0])
(dynamic-require path #f)) (dynamic-require path #f))
(close-output-port out-bs) (close-output-port out-bs)
(close-output-port err-bs) (close-output-port err-bs)
@ -29,9 +31,56 @@
(test-file "standalone-check-test.rkt" (test-file "standalone-check-test.rkt"
#"Oh HAI!\nI didn't run\n" #"Oh HAI!\nI didn't run\n"
#"--------------------\nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/tests/rackunit/standalone-check-test.rkt:40:12: temp7\nPLTHOME/collects/rackunit/private/check.rkt:122:29\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\nPLTHOME/collects/rackunit/private/check.rkt:55:0: top-level-check-around\nPLTHOME/collects/rackunit/private/check.rkt:108:21: core50\n\n\n--------------------\n--------------------\nFAILURE\nname: check\nlocation: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17)\nexpression: (check = 1 2)\nparams: (#<procedure:=> 1 2)\nmessage: 0.0\n\nCheck failure\n--------------------\n") #"\
--------------------
ERROR
Outta here!
--------------------
--------------------
FAILURE
name: check
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17)
expression: (check = 1 2)
params: (#<procedure:=> 1 2)\nmessage: 0.0
Check failure
--------------------
")
(test-file "standalone-test-case-test.rkt" (test-file "standalone-test-case-test.rkt"
#"" #""
#"--------------------\nERROR\nFirst Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\n\n\n--------------------\n--------------------\nerror\nERROR\nSecond Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\n\n\n--------------------\n--------------------\nFAILURE\nname: check-eq?\nlocation: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15)\nexpression: (check-eq? 1 2)\nactual: 1\nexpected: 2\n\nCheck failure\n--------------------\n--------------------\nfailure\nFAILURE\nname: check-eq?\nlocation: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15)\nexpression: (check-eq? 1 2)\nactual: 1\nexpected: 2\n\nCheck failure\n--------------------\n") #"\
--------------------
ERROR
First Outta here!
--------------------
--------------------
error
ERROR
Second Outta here!
--------------------
--------------------
FAILURE
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15)
expression: (check-eq? 1 2)
actual: 1
expected: 2
Check failure
--------------------
--------------------
failure
FAILURE
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15)
expression: (check-eq? 1 2)
actual: 1
expected: 2
Check failure
--------------------
")