1 AT_BANNER([VALUE LABELS])
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'
9 /dt '12 Apr 2011 06:09:56' 'label 4'.
12 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl
13 Variable,Description,,Position
16 ,Display Alignment: Right,,
21 dt,Format: DATETIME20.0,,2
23 ,Display Alignment: Right,,
25 ,12-APR-2011 06:09:56,label 4,
29 AT_SETUP([VALUE LABELS with new-line])
30 AT_DATA([value-labels.sps], [dnl
31 DATA LIST LIST NOTABLE /x.
32 VALUE LABELS x 1 'one' 2 'first line\nsecond line' 3 'three'.
39 FREQUENCIES x/STAT=NONE.
41 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl
42 Variable,Description,,Position
45 ,Display Alignment: Right,,
48 ,2.00,first line\nsecond line,
52 Value Label,Value,Frequency,Percent,Valid Percent,Cum Percent
53 one,1.00,1,33.33,33.33,33.33
55 second line",2.00,1,33.33,33.33,66.67
56 three,3.00,1,33.33,33.33,100.00
61 AT_SETUP([VALUE LABELS with new-line in system file])
62 AT_DATA([save.sps], [dnl
63 DATA LIST LIST NOTABLE /x.
64 VALUE LABELS x 1 'one' 2 'first line\nsecond line' 3 'three'.
70 SAVE OUTFILE='value-labels.sav'.
72 AT_CHECK([pspp -O format=csv save.sps])
73 AT_DATA([get.sps], [dnl
74 GET FILE='value-labels.sav'.
76 FREQUENCIES x/STAT=NONE.
78 AT_CHECK([pspp -O format=csv get.sps], [0], [dnl
79 Variable,Description,,Position
82 ,Display Alignment: Right,,
85 ,2.00,first line\nsecond line,
89 Value Label,Value,Frequency,Percent,Valid Percent,Cum Percent
90 one,1.00,1,33.33,33.33,33.33
92 second line",2.00,1,33.33,33.33,66.67
93 three,3.00,1,33.33,33.33,100.00
98 dnl Tests for a bug which caused VALUE LABELS to
99 dnl crash when given invalid syntax.
100 AT_SETUP([VALUE LABELS invalid syntax bug])
101 AT_DATA([value-labels.sps], [dnl
102 DATA LIST LIST NOTABLE /a * pref * .
110 VALUE LABELS /var=a 'label for a'.
112 AT_CHECK([pspp -O format=csv value-labels.sps], [1], [dnl
113 value-labels.sps:9: error: VALUE LABELS: var is not a variable name.
117 # Tests for a bug which caused a crash if VALUE LABELS had a trailing /.
118 AT_SETUP([VALUE LABELS trailing `/' bug])
119 AT_DATA([value-labels.sps], [dnl
120 DATA LIST LIST NOTABLE /X * .
129 VALUE LABELS X 1 'one' 2 'two' 3 'three'/
134 AT_CHECK([pspp -O format=csv value-labels.sps], [0], [dnl