From ca99eb4a5e21663afa48c01f9c259214fc3029eb Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Sun, 12 Aug 2012 08:58:51 -0600 Subject: [PATCH] Altered a couple of tests to test list-of-lists histogram arguments --- collects/plot/tests/plot2d-tests.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/plot/tests/plot2d-tests.rkt b/collects/plot/tests/plot2d-tests.rkt index 880ec650fc..b80544aada 100644 --- a/collects/plot/tests/plot2d-tests.rkt +++ b/collects/plot/tests/plot2d-tests.rkt @@ -184,7 +184,7 @@ (time (plot (list (x-axis) - (discrete-histogram '(#(a -1) #(b 2.6) #(c 4) #(d 3.1)) #:y-min #f + (discrete-histogram '((a -1) (b 2.6) (c 4) (d 3.1)) #:y-min #f #:color 5 #:line-color 5 #:line-style 'long-dash #:label "Corrupt") (discrete-histogram '(#(a 1) #(b 2.6) #(c 4) #(d 3.1)) @@ -215,7 +215,7 @@ [discrete-histogram-skip 2] [stacked-histogram-line-widths '(3)]) (plot (list (stacked-histogram '(#(a (0.2 1)) #(b (2.5 1.2)) #(c (2 0)))) - (stacked-histogram '(#(a (2 1)) #(b (1.1 0.9)) #(c (1 1.1))) #:x-min 7/8 + (stacked-histogram '((a (2 1)) (b (1.1 0.9)) (c (1 1.1))) #:x-min 7/8 #:colors '(3 4) #:line-colors '(3 4))))))