pivot table procedure conceptually works

[pspp] / tests / output / charts.at

diff --git a/tests/output/charts.at b/tests/output/charts.at
index dbc733f97398c0f4147b8505ca0ec07cdd53272f..049fc281922acecfb022fcedaf2eaeda53badc00 100644 (file)
--- 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