tests/data/file.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   4 dnl This program is free software: you can redistribute it and/or modify
   5 dnl it under the terms of the GNU General Public License as published by
   6 dnl the Free Software Foundation, either version 3 of the License, or
   7 dnl (at your option) any later version.
   8 dnl
   9 dnl This program is distributed in the hope that it will be useful,
  10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 dnl GNU General Public License for more details.
  13 dnl
  14 dnl You should have received a copy of the GNU General Public License
  15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 dnl
  17 AT_BANNER([files handling])
  18
  19 AT_SETUP([Write error - directory exists])
  20
  21 mkdir foobar.sav
  22
  23 AT_DATA([file.sps], [dnl
  24 DATA LIST NOTABLE/x 1.
  25 BEGIN DATA.
  26 5
  27 END DATA.
  28 SAVE OUTFILE='foobar.sav'.
  29 ])
  30
  31 AT_CHECK([pspp -O format=csv file.sps], [1], [dnl
  32 error: Opening foobar.sav for writing: Is a directory.
  33
  34 error: Error opening `foobar.sav' for writing as a system file: Is a directory.
  35 ])
  36
  37 AT_CLEANUP
  38
  39
  40 AT_SETUP([Write error - no permission])
  41
  42 AT_CHECK([
  43     mkdir directory
  44     touch directory/foobar.sav
  45     chmod 000 directory
  46 ])
  47
  48 # If we can write to the directory, then permissions just don't work
  49 # properly.  (Perhaps we're running as root.)
  50 AT_SKIP_IF([: > directory/foo])
  51
  52 AT_DATA([file.sps], [dnl
  53 DATA LIST NOTABLE/x 1.
  54 BEGIN DATA.
  55 5
  56 END DATA.
  57 SAVE OUTFILE='directory/foobar.sav'.
  58 ])
  59
  60 AT_CHECK([pspp -O format=csv file.sps], [1], [dnl
  61 error: Creating temporary file to replace directory/foobar.sav: Permission denied.
  62
  63 error: Error opening `directory/foobar.sav' for writing as a system file: Permission denied.
  64 ])
  65
  66 chmod 700 directory
  67
  68 AT_CLEANUP
  69
  70
  71
  72 AT_SETUP([Write error - temp file disappeared])
  73
  74 AT_DATA([file.sps], [dnl
  75 DATA LIST NOTABLE/x 1.
  76 BEGIN DATA.
  77 5
  78 END DATA.
  79 XSAVE OUTFILE='foobar.sav'.
  80 HOST COMMAND=[['rm foobar.savtmp*']].
  81 EXECUTE.
  82 ])
  83
  84 AT_CHECK([pspp -O format=csv file.sps], [1], [ignore])
  85
  86 AT_CLEANUP
  87
  88
  89
  90 AT_SETUP([Write fifo])
  91
  92 dnl The Fifo feature is not available in w32 builds
  93 AT_SKIP_IF([$MINGW])
  94
  95 AT_DATA([file.sps], [dnl
  96 DATA LIST NOTABLE/x 1.
  97 BEGIN DATA.
  98 5
  99 END DATA.
 100 SAVE OUTFILE='foobar.sav'.
 101 ])
 102
 103 mkfifo foobar.sav
 104 cat foobar.sav > /dev/null &
 105 pid=$!
 106
 107 AT_CHECK([pspp -O format=csv file.sps], [0], [ignore])
 108
 109 AT_CLEANUP
 110
 111
 112
 113 AT_SETUP([Reading from pipe])
 114
 115 AT_DATA([pipe.sps], [dnl
 116 data list file='printf "1 2\n 3 4\n 5 6\n" |' notable list /x * y *.
 117 list.
 118 ])
 119
 120 AT_CHECK([pspp -O format=csv pipe.sps], [0], [dnl
 121 Table: Data List
 122 x,y
 123 1.00,2.00
 124 3.00,4.00
 125 5.00,6.00
 126 ])
 127
 128 AT_CLEANUP
 129
 130
 131 dnl This was seen to crash pspp
 132 AT_SETUP([Reusing inline file])
 133
 134 AT_DATA([inline-reuse.sps], [dnl
 135 get data /type=txt /file=inline  /variables=A f7.2 .
 136
 137 data list notable list /foo.
 138 begin data.
 139 end data.
 140
 141 data list notable list /foo.
 142 ])
 143
 144 AT_CHECK([pspp inline-reuse.sps], [0], [ignore])
 145
 146 AT_CLEANUP