tests/language/dictionary/value-labels.at

   1 AT_BANNER([VALUE LABELS])
   2
   3 dnl Tests for a bug which caused VALUE LABELS to
   4 dnl crash when given invalid syntax.
   5 AT_SETUP([VALUE LABELS invalid syntax bug])
   6 AT_DATA([value-labels.sps], [dnl
   7 DATA LIST LIST NOTABLE /a * pref * .
   8 BEGIN DATA.
   9     1.00     1.00
  10     1.00     2.00
  11     2.00     1.00
  12     2.00     2.00
  13 END DATA.
  14
  15 VALUE LABELS /var=a 'label for a'.
  16 ])
  17 AT_CHECK([pspp -O format=csv value-labels.sps], [1], [dnl
  18 value-labels.sps:9: error: VALUE LABELS: var is not a variable name.
  19 ])
  20 AT_CLEANUP
  21
  22 # Tests for a bug which caused a crash if VALUE LABELS had a trailing /.
  23 AT_SETUP([VALUE LABELS trailing `/' bug])
  24 AT_DATA([value-labels.sps], [dnl
  25 DATA LIST LIST NOTABLE /X * .
  26 BEGIN DATA.
  27 1
  28 2
  29 3
  30 4
  31 END DATA.
  32
  33
  34 VALUE LABELS X 1 'one' 2 'two' 3 'three'/
  35
  36
  37 LIST VARIABLES=X.
  38 ])
  39 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl
  40 Table: Data List
  41 X
  42 1.00
  43 2.00
  44 3.00
  45 4.00
  46 ])
  47 AT_CLEANUP