Fixed crash in error path for GET DATA

[pspp] / tests / language / data-io / get.at

diff --git a/tests/language/data-io/get.at b/tests/language/data-io/get.at
index b9a187f292034cb872516de81ea61862e1fb5c6a..9f49b577447230a17511b40688316112f5c162ab 100644 (file)
--- 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