pintos-os.org Git - pspp/blob - tests/language/data-io/save.at

   1 AT_BANNER([SAVE])
   2
   3 # UNSELECTED=DELETE used to cause a crash if there was actually a
   4 # filter variable.
   5 AT_SETUP([SAVE -- delete unselected])
   6 AT_DATA([data.txt], [dnl
   7 0 '1 9:30:05' 1/2/2003 "25/8/1995 15:30:00" "'a,b,c'",0
   8 , '-0 5:17' 10/31/2010 "9/4/2008 9:29:00" " xxx ",1
   9 1.625,'0 12:00',,,xyzzy,1
  10 ])
  11 AT_DATA([save.pspp], [dnl
  12 SET DECIMAL=DOT.
  13 DATA LIST LIST NOTABLE FILE="data.txt"
  14     /number(F8.3) time(DTIME10) date(ADATE10) datetime(DATETIME20) string(A8)
  15      filter(F1.0).
  16 MISSING VALUES number(0) time('0 12:00') string('xyzzy').
  17 FILTER BY filter.
  18 SAVE /OUTFILE="data.sav" /UNSELECTED=DELETE.
  19 ])
  20 AT_DATA([get.pspp], [dnl
  21 GET FILE='data.sav'.
  22 LIST.
  23 ])
  24 AT_CHECK([pspp -O format=csv save.pspp])
  25 AT_CHECK([pspp -O format=csv get.pspp], [0], [dnl
  26 Table: Data List
  27 number,time,date,datetime,string,filter
  28 .   ,-0 05:17,10/31/2010,09-APR-2008 09:29:00,xxx    ,1
  29 1.625,0 12:00:00,.,.,xyzzy   ,1
  30 ])
  31 AT_CLEANUP