From 45ecb8a99d84c3dd4a17d47e9389cf40020ecb13 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 29 Mar 2021 07:30:39 -0600 Subject: [PATCH] add some tests for `raise-arguments-error` --- pkgs/racket-test-core/tests/racket/basic.rktl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/basic.rktl b/pkgs/racket-test-core/tests/racket/basic.rktl index 6ff2e03c46..6135994f6c 100644 --- a/pkgs/racket-test-core/tests/racket/basic.rktl +++ b/pkgs/racket-test-core/tests/racket/basic.rktl @@ -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