X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdata-io%2Fget.at;h=9f49b577447230a17511b40688316112f5c162ab;hb=56d6f17c81105cffb326be040430fefe53f95eea;hp=e9f2e2ef368666f82f9fc7b3c588361e51e6033f;hpb=edfe2dfe589dcb48bf12942aeeb7b057bb1ebb35;p=pspp

diff --git a/tests/language/data-io/get.at b/tests/language/data-io/get.at
index e9f2e2ef36..9f49b57744 100644
--- a/tests/language/data-io/get.at
+++ b/tests/language/data-io/get.at
@@ -58,7 +58,45 @@ dnl We use stdin here, because the bug seems to manifest itself only in
 dnl interactive mode.
 AT_CHECK([echo "GET /FILE='nonexistent.sav'." | pspp -O format=csv], [1], [dnl
 error: An error occurred while opening `nonexistent.sav': No such file or directory.
+])
+AT_CLEANUP
+
+dnl Tests for bug #15766 (/KEEP subcommand on SAVE doesn't
+dnl fully support ALL) and underlying problems.
+m4_define([GET_KEEP_ALL],
+  [AT_SETUP([GET with /KEEP=ALL crashes -- $1])
+   AT_DATA([get.sps], [dnl
+DATA LIST LIST NOTABLE 
+	/a b c d e f g h i j k l m n o p q r s t u v w x y z (F2.0).
+BEGIN DATA.
+1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
+END DATA.
+LIST.
+SAVE OUTFILE='test.sav'/$1.
+GET FILE='test.sav'/KEEP=x y z all.
+LIST.
+])
+   AT_CHECK([pspp -o pspp.csv get.sps])
+   AT_CHECK([cat pspp.csv], [0], [dnl
+Table: Data List
+a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
+1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26
+
+Table: Data List
+x,y,z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w
+24,25,26,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23
+])
+   AT_CLEANUP])
+GET_KEEP_ALL([uncompressed])
+GET_KEEP_ALL([compressed])
 
--:1: error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
+
+dnl Test for a crash when no /TYPE was provided
+AT_SETUP([GET data no type])
+AT_DATA([get.sps], [dnl
+get data /file='anything'.
 ])
+
+AT_CHECK([pspp get.sps], [1], [ignore])
+
 AT_CLEANUP