Added some very rudimentary tests for charts.

Currently, all these tests do is ensure that the syntax which
should generate charts, can run without crashing.  More
rigourous tests should be added in the future, when the infrastructure
allows.

diff --git a/tests/output/charts.at b/tests/output/charts.at
new file mode 100644 (file)
index 0000000..dbc733f
--- /dev/null
+++ b/tests/output/charts.at
@@ -0,0 +1,120 @@
+AT_BANNER([CHARTS Rudimentary run tests])
+
+dnl Check that the charts work
+dnl Currently, "work" means that the commands which
+dnl should generate them, run without crashing.
+dnl Better tests will come later (hopefully)
+
+AT_SETUP([Examine])
+AT_DATA([charts.sps],[
+input program.
+loop #i = 1 to 1000.
+ compute x  = rv.normal (56, 3) + rv.uniform (1, 1).
+ compute y  = rv.normal (6, 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 x y by a
+       /plot = histogram, npplot
+       .
+
+examine x y by a
+       /compare = groups
+       /plot = boxplot
+       .
+
+examine x y by a
+       /compare = variables
+       /plot = boxplot
+       .
+])
+
+AT_CHECK([pspp -O format=csv charts.sps], [0], [ignore])
+
+AT_CLEANUP
+
+AT_SETUP([Roc])
+AT_DATA([roc.sps],[
+data list list /fred * group * w *.
+begin data.
+99  0 1000
+99  1 3
+97  0 908
+97  1 2
+95  0 904
+96  1 7
+94  1 9
+93  0 823
+93  1 12
+90  0 723
+90  1 42
+84  0 523
+84  1 98
+73  0 500
+75  1 180
+63  0 520
+69  1 320
+60  0 510
+60  1 418
+50  0 488
+54  1 432
+46  0 428
+43  1 528
+36  0 324
+36  1 612
+26  0 294
+28  1 682
+20  0 119
+20  1 719
+10  0 97
+10  1 809
+end data.
+
+weight by w.
+
+compute bert = fred + (group < 0.5) * 45.
+compute charlie = fred + (group > 0.5) * 15.
+
+
+ROC /fred bert charlie by group (0)
+       /plot = curve (reference).
+
+])
+
+AT_CHECK([pspp -O format=csv roc.sps], [0], [ignore])
+
+AT_CLEANUP
+
+
+
+
+AT_SETUP([Scree])
+AT_DATA([scree.sps],[
+input program.
+vector vec(10).
+loop #i = 1 to 100.
+ loop #v = 1 to 3.
+ compute vec(#v) = rv.normal (0, 45).
+ end loop.
+ loop #v = 4 to 10.
+ compute vec(#v) = vec (#v - 3) + rv.normal (0, 30).
+ end loop.
+ end case.
+end loop.
+end file.
+end input program.
+
+
+factor /variables = all
+        /print initial
+       /plot = eigen.
+
+])
+
+AT_CHECK([pspp -O format=csv scree.sps], [0], [ignore])
+
+AT_CLEANUP

diff --git a/tests/testsuite.at b/tests/testsuite.at
index 8b328f47cd1f11daa1b701de1ebf54f105ea4570..ecc95fd2fbb525a0abd58a3ef65f85248e32fb06 100644 (file)
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -16,4 +16,5 @@ m4_include([tests/language/stats/frequencies.at])
 m4_include([tests/language/xforms/compute.at])
 m4_include([tests/language/xforms/recode.at])
 m4_include([tests/output/render.at])
+m4_include([tests/output/charts.at])
 m4_include([tests/perl-module.at])