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

diff --git a/tests/language/data-io/get.at b/tests/language/data-io/get.at
index b9a187f292..9f49b57744 100644
--- a/tests/language/data-io/get.at
+++ b/tests/language/data-io/get.at
@@ -90,3 +90,13 @@ 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
 GET_KEEP_ALL([uncompressed])
 GET_KEEP_ALL([compressed])
 
+
+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