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

fix broken for tests in racket-test-core

Browse Source
This commit is contained in:
Stephen Chang 2016-01-19 11:56:46 -05:00
parent 8331e28c49
commit 60845b2098
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/racket-test-core/tests/racket/for.rktl
View File

@ -436,10 +436,18 @@
(err/rt-test (for*/fold () ([x '(1 2)]) x) exn:fail:contract:arity?) (err/rt-test (for*/fold () ([x '(1 2)]) x) exn:fail:contract:arity?)
;; for/fold result-arity checking: ;; for/fold result-arity checking:
(err/rt-test (begin (for/fold () ([i (in-range 10)]) 1) 1) #rx".*expected number of values not received.*") (err/rt-test (begin (for/fold () ([i (in-range 10)]) 1) 1)
(err/rt-test (begin (for/fold () () 1) 1) #rx".*expected number of values not received.*") exn:fail:contract:arity?
(err/rt-test (begin (for/fold ([x 1]) () (values 1 2)) 1) #rx".*expected number of values not received.*") #rx".*expected number of values not received.*")
(err/rt-test (begin (for/fold ([x 1] [y 2]) ([i (in-range 10)]) 1) 1) #rx".*expected number of values not received.*") (err/rt-test (begin (for/fold () () 1) 1)
exn:fail:contract:arity?
#rx".*expected number of values not received.*")
(err/rt-test (begin (for/fold ([x 1]) () (values 1 2)) 1)
exn:fail:contract:arity?
#rx".*expected number of values not received.*")
(err/rt-test (begin (for/fold ([x 1] [y 2]) ([i (in-range 10)]) 1) 1)
exn:fail:contract:arity?
#rx".*expected number of values not received.*")
(test 1 'one (begin (for/fold () () (values)) 1)) (test 1 'one (begin (for/fold () () (values)) 1))
;; for/fold syntax checking ;; for/fold syntax checking

8
pkgs/racket-test-core/tests/racket/testing.rktl
View File

@ -216,6 +216,14 @@ transcript.
[(_ e exn?) [(_ e exn?)
(syntax (syntax
(thunk-error-test (err:mz:lambda () e) (quote-syntax e) exn?))] (thunk-error-test (err:mz:lambda () e) (quote-syntax e) exn?))]
[(_ e exn? msg-rx)
(regexp? (syntax-e #'msg-rx))
#'(thunk-error-test
(err:mz:lambda () e)
(quote-syntax e)
(lambda (exn)
(and (exn? exn)
(regexp-match? msg-rx (exn-message exn)))))]
[(_ e) [(_ e)
(syntax (syntax
(err/rt-test e exn:application:type?))]))) (err/rt-test e exn:application:type?))])))