fix broken for tests in racket-test-core
This commit is contained in:
parent
8331e28c49
commit
60845b2098
|
@ -436,10 +436,18 @@
|
|||
(err/rt-test (for*/fold () ([x '(1 2)]) x) exn:fail:contract:arity?)
|
||||
|
||||
;; 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 () () 1) 1) #rx".*expected number of values not received.*")
|
||||
(err/rt-test (begin (for/fold ([x 1]) () (values 1 2)) 1) #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 () ([i (in-range 10)]) 1) 1)
|
||||
exn:fail:contract:arity?
|
||||
#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))
|
||||
|
||||
;; for/fold syntax checking
|
||||
|
|
|
@ -216,6 +216,14 @@ transcript.
|
|||
[(_ e exn?)
|
||||
(syntax
|
||||
(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)
|
||||
(syntax
|
||||
(err/rt-test e exn:application:type?))])))
|
||||
|
|
Loading…
Reference in New Issue
Block a user