tests/language/dictionary/value-labels.at

   1 AT_BANNER([VALUE LABELS])
   2
   3 AT_SETUP([VALUE LABELS date formats])
   4 AT_DATA([value-labels.sps], [dnl
   5 DATA LIST LIST NOTABLE /ad (adate10) dt (datetime20).
   6 VALUE LABELS ad 'july 10, 1982' 'label 1'
   7                 '1-2-93' 'label 2'
   8                 '5-4-2003' 'label 3'
   9             /dt '12 Apr 2011 06:09:56' 'label 4'.
  10 DISPLAY DICTIONARY.
  11 ])
  12 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl
  13 Variable,Description,,Position
  14 ad,Format: ADATE10,,1
  15 ,Measure: Scale,,
  16 ,Display Alignment: Right,,
  17 ,Display Width: 8,,
  18 ,07/10/1982,label 1,
  19 ,01/02/1993,label 2,
  20 ,05/04/2003,label 3,
  21 dt,Format: DATETIME20.0,,2
  22 ,Measure: Scale,,
  23 ,Display Alignment: Right,,
  24 ,Display Width: 8,,
  25 ,12-APR-2011 06:09:56,label 4,
  26 ])
  27 AT_CLEANUP
  28
  29 dnl Tests for a bug which caused VALUE LABELS to
  30 dnl crash when given invalid syntax.
  31 AT_SETUP([VALUE LABELS invalid syntax bug])
  32 AT_DATA([value-labels.sps], [dnl
  33 DATA LIST LIST NOTABLE /a * pref * .
  34 BEGIN DATA.
  35     1.00     1.00
  36     1.00     2.00
  37     2.00     1.00
  38     2.00     2.00
  39 END DATA.
  40
  41 VALUE LABELS /var=a 'label for a'.
  42 ])
  43 AT_CHECK([pspp -O format=csv value-labels.sps], [1], [dnl
  44 value-labels.sps:9: error: VALUE LABELS: var is not a variable name.
  45 ])
  46 AT_CLEANUP
  47
  48 # Tests for a bug which caused a crash if VALUE LABELS had a trailing /.
  49 AT_SETUP([VALUE LABELS trailing `/' bug])
  50 AT_DATA([value-labels.sps], [dnl
  51 DATA LIST LIST NOTABLE /X * .
  52 BEGIN DATA.
  53 1
  54 2
  55 3
  56 4
  57 END DATA.
  58
  59
  60 VALUE LABELS X 1 'one' 2 'two' 3 'three'/
  61
  62
  63 LIST VARIABLES=X.
  64 ])
  65 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl
  66 Table: Data List
  67 X
  68 1.00
  69 2.00
  70 3.00
  71 4.00
  72 ])
  73 AT_CLEANUP