X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=tests%2Foutput%2Fcharts.at;h=049fc281922acecfb022fcedaf2eaeda53badc00;hb=41f83a8f1c88489e4fc458fb7661430ff91d8a61;hp=dbc733f97398c0f4147b8505ca0ec07cdd53272f;hpb=1e0c41f19dd34df5d34728c40e736d8ba43c5021;p=pspp

diff --git a/tests/output/charts.at b/tests/output/charts.at
index dbc733f973..049fc28192 100644
--- a/tests/output/charts.at
+++ b/tests/output/charts.at
@@ -19,7 +19,7 @@ end file.
 end input program.
 
 examine x y by a
-	/plot = histogram, npplot
+	/plot = histogram, npplot spreadlevel(1)
 	.
 
 examine x y by a
@@ -118,3 +118,40 @@ factor /variables = all
 AT_CHECK([pspp -O format=csv scree.sps], [0], [ignore])
 
 AT_CLEANUP
+
+
+AT_SETUP([Histogram])
+AT_DATA([histogram.sps],[
+* This test is designed to "torture" the code which
+  generates histograms.  It is no-crash test. However
+  the code is rich in assertions, so any problems we
+  hope will be caught there.
+  
+
+input program.
+loop #i = 1 to 1000.
+ compute pos  = rv.normal (56, 3) + rv.uniform (1, 1).
+ compute neg  = rv.normal (-86, 2) + rv.uniform (1, 1).
+ compute pn  = rv.normal (0, 2) + rv.uniform (1, 2).
+ compute A  = rv.uniform (-1, 1).
+  compute A = (A > 0).
+ end case.
+end loop.
+end file.
+end input program.
+
+
+examine pos neg pn by a
+	/plot = histogram
+	.
+
+frequencies pos neg pn
+	/format=notable
+	/histogram=normal.
+])
+
+
+dnl The --testing-mode flag is important!!
+AT_CHECK([pspp --testing-mode -O format=csv histogram.sps], [0], [ignore])
+
+AT_CLEANUP