feec9d8627fa67149d787fea79ac62d90b585bb7
[pspp-builds.git] / 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
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