pintos-os.org Git - pspp/blob - tests/language/dictionary/rename-variables.at

   1 AT_BANNER([RENAME VARIABLES])
   2
   3 AT_SETUP([RENAME VARIABLES])
   4 AT_DATA([rename-variables.sps], [dnl
   5 DATA LIST LIST /brakeFluid y auxiliary warp (F2.0).
   6 BEGIN DATA.
   7 1 3 5 9
   8 2 3 6 10
   9 3 3 7 11
  10 4 3 8 11
  11 END DATA.
  12
  13 LIST.
  14
  15 RENAME VARIABLES brakeFluid=applecarts y=bananamobiles.
  16 RENAME VARIABLES (warp auxiliary=foobar xyzzy).
  17
  18 LIST.
  19
  20 SAVE /OUTFILE='rename.sav'.
  21 ])
  22 AT_CHECK([pspp -o pspp.csv rename-variables.sps])
  23 AT_CHECK([cat pspp.csv], [0], [dnl
  24 Table: Reading free-form data from INLINE.
  25 Variable,Format
  26 brakeFluid,F2.0
  27 y,F2.0
  28 auxiliary,F2.0
  29 warp,F2.0
  30
  31 Table: Data List
  32 brakeFluid,y,auxiliary,warp
  33 1,3,5,9
  34 2,3,6,10
  35 3,3,7,11
  36 4,3,8,11
  37
  38 Table: Data List
  39 applecarts,bananamobiles,xyzzy,foobar
  40 1,3,5,9
  41 2,3,6,10
  42 3,3,7,11
  43 4,3,8,11
  44 ])
  45 AT_CHECK([grep '[bB][rR][aA][kK][eE]' rename.sav], [1], [ignore-nolog])
  46 AT_CLEANUP
  47
  48 AT_SETUP([RENAME VARIABLES -- invalid syntax 1])
  49 AT_DATA([rename-variables.sps], [dnl
  50 DATA LIST LIST /brakeFluid y auxiliary warp (F2.0).
  51 RENAME VARIABLES warp auxiliary=foobar xyzzy.
  52 ])
  53 AT_CHECK([pspp -o pspp.csv rename-variables.sps], [1], [dnl
  54 rename-variables.sps:2.23-2.31: error: RENAME VARIABLES: Syntax error at `auxiliary': expecting `='.
  55 ])
  56 AT_CLEANUP
  57
  58 AT_SETUP([RENAME VARIABLES -- invalid syntax 2])
  59 AT_DATA([rename-variables.sps], [dnl
  60 DATA LIST LIST /brakeFluid y auxiliary warp (F2.0).
  61 RENAME VARIABLES (brakeFluid=applecarts y=bananamobiles).
  62 ])
  63 AT_CHECK([pspp -o pspp.csv rename-variables.sps], [1], [dnl
  64 rename-variables.sps:2: error: RENAME VARIABLES: Differing number of variables in old name list (1) and in new name list (2).
  65 ])
  66 AT_CLEANUP