X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Foutput%2Fcharts.at;h=e2a43d5286b442d04aa285b379f001adb77b03ec;hb=8e6c2074463a02f285c6b0be4b67f82f16b52c50;hp=dbc733f97398c0f4147b8505ca0ec07cdd53272f;hpb=d1a9160a893030f10c13e46dcf5bbf7501229958;p=pspp

diff --git a/tests/output/charts.at b/tests/output/charts.at
index dbc733f973..e2a43d5286 100644
--- a/tests/output/charts.at
+++ b/tests/output/charts.at
@@ -118,3 +118,39 @@ 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.
+])
+
+
+AT_CHECK([pspp -O format=csv histogram.sps], [0], [ignore])
+
+AT_CLEANUP