X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdata-io%2Fget.at;h=9b60544d15258782008ea1f03b3012a540b665f2;hb=851edb461d234263f56c36ad5b329cccd8c26c55;hp=a519b67fe3592583790a15e5ef6c929be2f2c5ff;hpb=a258e53c63a08b0ec48aea8f03808eb651729424;p=pspp diff --git a/tests/language/data-io/get.at b/tests/language/data-io/get.at index a519b67fe3..9b60544d15 100644 --- a/tests/language/data-io/get.at +++ b/tests/language/data-io/get.at @@ -1,3 +1,19 @@ +dnl PSPP - a program for statistical analysis. +dnl Copyright (C) 2017 Free Software Foundation, Inc. +dnl +dnl This program is free software: you can redistribute it and/or modify +dnl it under the terms of the GNU General Public License as published by +dnl the Free Software Foundation, either version 3 of the License, or +dnl (at your option) any later version. +dnl +dnl This program is distributed in the hope that it will be useful, +dnl but WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +dnl GNU General Public License for more details. +dnl +dnl You should have received a copy of the GNU General Public License +dnl along with this program. If not, see . +dnl AT_BANNER([GET]) dnl Tests for a bug which caused the second procedure @@ -54,12 +70,10 @@ AT_CLEANUP dnl Tests for a bug that crashed when GET specified a nonexistent file. AT_SETUP([GET nonexistent file doesn't crash]) -dnl We use stdin here, because the bug seems to manifest itself only in +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. - --:1: error: Stopping syntax file processing here to avoid a cascade of dependent command failures. ]) AT_CLEANUP @@ -68,7 +82,7 @@ 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 +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 @@ -92,3 +106,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