X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdictionary%2Fsplit-file.at;h=83055bbf2103c6e39d9c6b73c362b1f16c8dd313;hb=9a8e4c91d3d909487e6820b40b29a0f1f830359d;hp=39b3412417d8f07e273096d39a930c309960ce2d;hpb=a258e53c63a08b0ec48aea8f03808eb651729424;p=pspp

diff --git a/tests/language/dictionary/split-file.at b/tests/language/dictionary/split-file.at
index 39b3412417..83055bbf21 100644
--- a/tests/language/dictionary/split-file.at
+++ b/tests/language/dictionary/split-file.at
@@ -1,6 +1,6 @@
 AT_BANNER([SPLIT FILE])
 
-AT_SETUP([SPLIT FILE])
+AT_SETUP([SPLIT FILE - basic test])
 AT_DATA([split-file.sps], [dnl
 title 'Test SPLIT FILE utility'.
 
@@ -53,3 +53,70 @@ X,Y
 2,4
 ])
 AT_CLEANUP
+
+
+
+
+
+AT_SETUP([SPLIT FILE  - vs procedures])
+AT_DATA([split-file.sps], [dnl
+
+* This test is a compendium of those procedures which might
+* have problems when run in conjunction with SPLITS.
+
+data list list /a b c q g *.
+begin data.
+1 2 3     1  0 
+4 5 6     0  0
+7 8 9     1  0
+10 11 12  0  1
+13 14 15  1  1
+end data.
+
+split file by g.
+
+
+* The commented out lines are ones which currently fail.
+
+AGGREGATE outfile='foo' /break=c /X=sum(a). 
+AUTORECODE variables = c into d .
+COUNT e = c (1 2 3 4 5 6 7).
+CROSSTABS a by b.
+CORRELATIONS /VARIABLES = a b.
+DELETE VARIABLES a.
+DESCRIPTIVES e .
+EXAMINE c by b.
+EXPORT outfile='xxx'.
+FACTOR /VARIABLES = b c d.
+FILTER BY c.
+FREQUENCIES b.
+GLM c BY b.
+GRAPH /HISTOGRAM = b .
+GRAPH /SCATTERPLOT(BIVARIATE) = b with c by e .
+GRAPH /BAR (GROUPED) = MEAN(b) by c by e.
+GRAPH /BAR = COUNT BY  b.
+LIST.
+LOGISTIC REGRESSION q WITH b.
+MEANS c b.
+NPAR TESTS /MCNEMAR q.
+ONEWAY c BY b.
+QUICK CLUSTER b c.
+RANK b c.
+REGRESSION /VARIABLES = c /DEPENDENT = q.
+RELIABILITY /VARIABLES = c b d. 
+RENAME VARIABLES (b = bb).
+ROC bb by q(1).
+SAMPLE 0.9 .
+SAVE outfile='xx.sav'.
+SORT CASES by bb.
+T-TEST /GROUP=q(0,1) /VARIABLES=bb.
+USE ALL.
+FLIP /VARIABLES = bb, c .
+
+execute.
+finish.
+])
+
+AT_CHECK([pspp -O format=csv split-file.sps], [0],[ignore])
+
+AT_CLEANUP
\ No newline at end of file