X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fdata%2Ffile.at;h=6875da59721e2d27fa711a56c070d3c12840455e;hb=691a034d7f21;hp=b9b81deb97a69c92726872d34ab6705a7a3c0f5c;hpb=6acdfa0d3d24323f4df79547fd7ce85bf0406542;p=pspp diff --git a/tests/data/file.at b/tests/data/file.at index b9b81deb97..6875da5972 100644 --- a/tests/data/file.at +++ b/tests/data/file.at @@ -1,4 +1,19 @@ -AT_BANNER([files handling]) +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([files handling]) AT_SETUP([Write error - directory exists]) @@ -41,6 +56,8 @@ error: Creating temporary file to replace directory/foobar.sav: Permission denie error: Error opening `directory/foobar.sav' for writing as a system file: Permission denied. ]) +chmod 700 directory + AT_CLEANUP @@ -53,7 +70,7 @@ BEGIN DATA. 5 END DATA. XSAVE OUTFILE='foobar.sav'. -HOST COMMAND=[['rm foobar.sav.tmp*']]. +HOST COMMAND=[['rm foobar.savtmp*']]. EXECUTE. ]) @@ -65,6 +82,9 @@ AT_CLEANUP AT_SETUP([Write fifo]) +dnl The Fifo feature is not available in w32 builds +AT_SKIP_IF([case $host in *-*-mingw*) true ;; *) false ;; esac]) + AT_DATA([file.sps], [dnl DATA LIST NOTABLE/x 1. BEGIN DATA. @@ -80,3 +100,22 @@ pid=$! AT_CHECK([pspp -O format=csv file.sps], [0], [ignore]) AT_CLEANUP + + + +AT_SETUP([Reading from pipe]) + +AT_DATA([pipe.sps], [dnl +data list file='printf "1 2\n 3 4\n 5 6\n" |' notable list /x * y *. +list. +]) + +AT_CHECK([pspp -O format=csv pipe.sps], [0], [dnl +Table: Data List +x,y +1.00,2.00 +3.00,4.00 +5.00,6.00 +]) + +AT_CLEANUP