X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fdata%2Ffile.at;h=e48fe05a65c95e190c9891a008b8b69f84bfc4b3;hb=c1b1583b96cc05a2bf9f3f6d01bbfa063fafb253;hp=4479a48017643b2f8bc1002ef15f15bbfa4c262d;hpb=5e41840a01ceb64b1a62752e7ebb891394de2ec8;p=pspp diff --git a/tests/data/file.at b/tests/data/file.at index 4479a48017..e48fe05a65 100644 --- a/tests/data/file.at +++ b/tests/data/file.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([files handling]) AT_SETUP([Write error - directory exists]) @@ -41,6 +57,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 @@ -66,7 +84,7 @@ 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_SKIP_IF([$MINGW]) AT_DATA([file.sps], [dnl DATA LIST NOTABLE/x 1. @@ -77,7 +95,7 @@ SAVE OUTFILE='foobar.sav'. ]) mkfifo foobar.sav -cat foobar.sav > /dev/null & +cat foobar.sav > /dev/null & pid=$! AT_CHECK([pspp -O format=csv file.sps], [0], [ignore]) @@ -89,7 +107,7 @@ AT_CLEANUP AT_SETUP([Reading from pipe]) AT_DATA([pipe.sps], [dnl -data list file='echo "1 2\n 3 4\n 5 6" |' notable list /x * y *. +data list file='printf "1 2\n 3 4\n 5 6\n" |' notable list /x * y *. list. ]) @@ -102,3 +120,21 @@ x,y ]) AT_CLEANUP + + +dnl This was seen to crash pspp +AT_SETUP([Reusing inline file]) + +AT_DATA([inline-reuse.sps], [dnl +get data /type=txt /file=inline /variables=A f7.2 . + +data list notable list /foo. +begin data. +end data. + +data list notable list /foo. +]) + +AT_CHECK([pspp inline-reuse.sps], [0], [ignore]) + +AT_CLEANUP