From 56d0aad9fcbe7bbde24f5a317ea489c43e2e90e0 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Sun, 6 Apr 2014 01:15:32 -0600 Subject: [PATCH] Weaken exception testing for DrDr --- .../plot-test/plot/tests/PRs/13709.rkt | 27 +++++++++---------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/pkgs/plot-pkgs/plot-test/plot/tests/PRs/13709.rkt b/pkgs/plot-pkgs/plot-test/plot/tests/PRs/13709.rkt index c8869e0071..dc417a195f 100644 --- a/pkgs/plot-pkgs/plot-test/plot/tests/PRs/13709.rkt +++ b/pkgs/plot-pkgs/plot-test/plot/tests/PRs/13709.rkt @@ -2,18 +2,17 @@ (require plot rackunit) -(check-exn #rx"'\\(1\\)" (λ () (lines '((1))))) -(check-exn #rx"\\(list \\(ivl 1 2\\)\\)" (λ () (rectangles (list (list (ivl 1 2)))))) -(check-exn #rx"'\\(1\\)" (λ () (points '((1))))) -(check-exn #rx"'\\(1\\)" (λ () (error-bars '((1))))) -(check-exn #rx"'\\(1 2\\)" (λ () (error-bars '((1 2))))) -(check-exn #rx"'\\(1\\)" (λ () (lines-interval '((1)) '((1 2))))) -(check-exn #rx"'\\(1\\)" (λ () (lines-interval '((1 2)) '((1))))) +(check-exn exn:fail:contract? (λ () (lines '((1))))) +(check-exn exn:fail:contract? (λ () (rectangles (list (list (ivl 1 2)))))) +(check-exn exn:fail:contract? (λ () (points '((1))))) +(check-exn exn:fail:contract? (λ () (error-bars '((1))))) +(check-exn exn:fail:contract? (λ () (error-bars '((1 2))))) +(check-exn exn:fail:contract? (λ () (lines-interval '((1)) '((1 2))))) +(check-exn exn:fail:contract? (λ () (lines-interval '((1 2)) '((1))))) -(check-exn #rx"'\\(1\\)" (λ () (lines3d '((1))))) -(check-exn #rx"'\\(1 2\\)" (λ () (lines3d '((1 2))))) -(check-exn #rx"\\(list \\(ivl 1 2\\)\\)" (λ () (rectangles3d (list (list (ivl 1 2)))))) -(check-exn #rx"\\(list \\(ivl 1 2\\) \\(ivl 2 3\\)\\)" (λ () (rectangles3d - (list (list (ivl 1 2) (ivl 2 3)))))) -(check-exn #rx"'\\(1\\)" (λ () (points3d '((1))))) -(check-exn #rx"'\\(1 2\\)" (λ () (points3d '((1 2))))) +(check-exn exn:fail:contract? (λ () (lines3d '((1))))) +(check-exn exn:fail:contract? (λ () (lines3d '((1 2))))) +(check-exn exn:fail:contract? (λ () (rectangles3d (list (list (ivl 1 2)))))) +(check-exn exn:fail:contract? (λ () (rectangles3d (list (list (ivl 1 2) (ivl 2 3)))))) +(check-exn exn:fail:contract? (λ () (points3d '((1))))) +(check-exn exn:fail:contract? (λ () (points3d '((1 2)))))