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 format=csv rename-variables.sps], [0], [dnl
  23 Table: Reading free-form data from INLINE.
  24 Variable,Format
  25 brakeFluid,F2.0
  26 y,F2.0
  27 auxiliary,F2.0
  28 warp,F2.0
  29
  30 Table: Data List
  31 brakeFluid,y,auxiliary,warp
  32 1,3,5,9
  33 2,3,6,10
  34 3,3,7,11
  35 4,3,8,11
  36
  37 Table: Data List
  38 applecarts,bananamobiles,xyzzy,foobar
  39 1,3,5,9
  40 2,3,6,10
  41 3,3,7,11
  42 4,3,8,11
  43 ])
  44 AT_CHECK([grep '[bB][rR][aA][kK][eE]' rename.sav], [1], [ignore-nolog])
  45 AT_CLEANUP
  46
  47
  48 AT_SETUP([RENAME VARIABLES -- multiple sets])
  49 AT_DATA([rename-variables.sps], [dnl
  50 data list list /a b c d  e *.
  51 begin data.
  52 1 2 3 4 5
  53 end data.
  54
  55 rename variables (a b=x y) (c d e=z zz zzz).
  56
  57 list.
  58 ])
  59
  60 AT_CHECK([pspp -O format=csv rename-variables.sps], [0], [dnl
  61 Table: Reading free-form data from INLINE.
  62 Variable,Format
  63 a,F8.0
  64 b,F8.0
  65 c,F8.0
  66 d,F8.0
  67 e,F8.0
  68
  69 Table: Data List
  70 x,y,z,zz,zzz
  71 1.00,2.00,3.00,4.00,5.00
  72 ])
  73
  74 AT_CLEANUP
  75
  76
  77 AT_SETUP([RENAME VARIABLES -- invalid syntax 1])
  78
  79 AT_DATA([rename-variables.sps], [dnl
  80 DATA LIST LIST /brakeFluid y auxiliary warp (F2.0).
  81 RENAME VARIABLES warp auxiliary=foobar xyzzy.
  82 ])
  83
  84 AT_CHECK([pspp -o pspp.csv rename-variables.sps], [1], [dnl
  85 rename-variables.sps:2.23-2.31: error: RENAME VARIABLES: Syntax error at `auxiliary': expecting `='.
  86 ])
  87 AT_CLEANUP
  88
  89 AT_SETUP([RENAME VARIABLES -- invalid syntax 2])
  90 AT_DATA([rename-variables.sps], [dnl
  91 DATA LIST LIST /brakeFluid y auxiliary warp (F2.0).
  92 RENAME VARIABLES (brakeFluid=applecarts y=bananamobiles).
  93 ])
  94
  95 AT_CHECK([pspp -o pspp.csv rename-variables.sps], [1], [dnl
  96 rename-variables.sps:2: error: RENAME VARIABLES: Differing number of variables in old name list (1) and in new name list (2).
  97 ])
  98 AT_CLEANUP
  99
 100
 101
 102
 103 AT_SETUP([RENAME VARIABLES -- invalid syntax 3])
 104 AT_DATA([rename-variables.sps], [dnl
 105 DATA LIST NOTABLE LIST /z y p q (F2.0).
 106 BEGIN DATA.
 107 4 3 8 11
 108 END DATA.
 109
 110 RENAME VARIABLES z=a y}bqnanamobiles.
 111
 112 LIST.
 113 ])
 114
 115 AT_CHECK([pspp -O format=csv rename-variables.sps], [1], [ignore])
 116
 117
 118 AT_CLEANUP