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

add some tests for raise-arguments-error

Browse Source
This commit is contained in:
Matthew Flatt 2021-03-29 07:30:39 -06:00
parent 744e51ecfc
commit 45ecb8a99d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2335,6 +2335,14 @@
(err/rt-test (raise-arity-mask-error 'f -5.0) exn:fail:contract?)
(err/rt-test (raise-arity-mask-error 1 1) exn:fail:contract?)
(err/rt-test (raise-arguments-error 'proc-with-error "invalid") exn:fail:contract? #rx"proc-with-error: invalid")
(err/rt-test (raise-arguments-error "f" "invalid") exn:fail:contract? #rx"raise-arguments-error:")
(err/rt-test (raise-arguments-error 'f 'invalid) exn:fail:contract? #rx"raise-arguments-error:")
(err/rt-test (raise-arguments-error 'f "invalid" "x") exn:fail:contract? #rx"raise-arguments-error:")
(err/rt-test (raise-arguments-error 'f "invalid" 'x 5) exn:fail:contract? #rx"raise-arguments-error:")
(err/rt-test (raise-arguments-error 'f "invalid" "x" 5 "y") exn:fail:contract? #rx"raise-arguments-error:")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; continuations