Implement DATASET commands.
[pspp-builds.git] / tests / language / data-io / dataset.at
1 AT_BANNER([DATASET commands])
2
3 AT_SETUP([DATASET COPY])
4 AT_DATA([dataset.pspp], [dnl
5 DATASET NAME initial.
6 DATA LIST NOTABLE /x 1.
7 COMPUTE x = x + 1.
8 DATASET COPY clone.
9 BEGIN DATA.
10 1
11 2
12 3
13 4
14 5
15 END DATA.
16
17 NEW FILE.
18 DATA LIST NOTABLE /y 1.
19 BEGIN DATA.
20 6
21 7
22 8
23 END DATA.
24 LIST.
25 DATASET DISPLAY.
26
27 DATASET ACTIVATE clone.
28 DATASET DISPLAY.
29 LIST.
30
31 DATASET ACTIVATE initial.
32 DATASET DISPLAY.
33 LIST.
34
35 COMPUTE z=y.
36 DATASET COPY clone.
37
38 DATASET ACTIVATE clone.
39 LIST.
40 DATASET COPY clone.
41 DATASET DISPLAY.
42
43 DATASET CLOSE initial.
44 DATASET DISPLAY.
45 ])
46 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
47 Table: Data List
48 y
49 6
50 7
51 8
52
53 Table: Open datasets.
54 Dataset
55 clone
56 initial (active dataset)
57
58 Table: Open datasets.
59 Dataset
60 clone (active dataset)
61 initial
62
63 Table: Data List
64 x
65 2
66 3
67 4
68 5
69 6
70
71 Table: Open datasets.
72 Dataset
73 clone
74 initial (active dataset)
75
76 Table: Data List
77 y
78 6
79 7
80 8
81
82 Table: Data List
83 y,z
84 6,6.00
85 7,7.00
86 8,8.00
87
88 Table: Open datasets.
89 Dataset
90 unnamed dataset (active dataset)
91 initial
92
93 Table: Open datasets.
94 Dataset
95 unnamed dataset (active dataset)
96 ])
97 AT_CLEANUP
98
99 AT_SETUP([DATASET DECLARE])
100 AT_DATA([dataset.pspp], [dnl
101 DATASET DECLARE second.
102 DATASET DISPLAY.
103 DATA LIST NOTABLE/x 1.
104 BEGIN DATA.
105 1
106 END DATA.
107 LIST.
108 DATASET ACTIVATE second.
109 DATASET DISPLAY.
110 LIST.
111 ])
112 AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl
113 Table: Open datasets.
114 Dataset
115 unnamed dataset (active dataset)
116 second
117
118 Table: Data List
119 x
120 1
121
122 Table: Open datasets.
123 Dataset
124 second (active dataset)
125
126 dataset.pspp:10: error: LIST: LIST is allowed only after the active dataset has been defined.
127 ])
128 AT_CLEANUP
129
130 AT_SETUP([DATASET NAME deletes duplicate name])
131 AT_DATA([dataset.pspp], [dnl
132 DATASET NAME a.
133 DATASET DECLARE b.
134 DATASET DECLARE c.
135 DATASET DISPLAY.
136
137 DATASET NAME b.
138 DATASET NAME c.
139 DATASET DISPLAY.
140 ])
141 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
142 Table: Open datasets.
143 Dataset
144 a (active dataset)
145 b
146 c
147
148 Table: Open datasets.
149 Dataset
150 c (active dataset)
151 ])
152 AT_CLEANUP
153
154 AT_SETUP([DATASET ACTIVATE deletes unnamed dataset])
155 AT_DATA([dataset.pspp], [dnl
156 DATASET DECLARE x.
157 DATASET DISPLAY.
158
159 DATASET ACTIVATE x.
160 DATASET DISPLAY.
161 ])
162 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
163 Table: Open datasets.
164 Dataset
165 unnamed dataset (active dataset)
166 x
167
168 Table: Open datasets.
169 Dataset
170 x (active dataset)
171 ])
172 AT_CLEANUP
173
174 AT_SETUP([DATASET ACTIVATE executes pending transformations])
175 AT_DATA([dataset.pspp], [dnl
176 DATASET NAME one.
177 DATASET DECLARE another.
178 DATASET DISPLAY.
179
180 DATA LIST NOTABLE /x 1.
181 PRINT/x.
182 DATASET ACTIVATE another.
183 BEGIN DATA.
184 1
185 2
186 3
187 4
188 5
189 END DATA.
190
191 LIST.
192
193 DATASET ACTIVATE one.
194 LIST.
195 ])
196 AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl
197 Table: Open datasets.
198 Dataset
199 another
200 one (active dataset)
201
202 1 @&t@
203
204 2 @&t@
205
206 3 @&t@
207
208 4 @&t@
209
210 5 @&t@
211
212 dataset.pspp:16: error: LIST: LIST is allowed only after the active dataset has been defined.
213
214 Table: Data List
215 x
216 1
217 2
218 3
219 4
220 5
221 ])
222 AT_CLEANUP
223
224 AT_SETUP([DATASET CLOSE])
225 AT_DATA([dataset.pspp], [dnl
226 DATASET DISPLAY
227 DATASET CLOSE *.
228 DATASET DISPLAY.
229
230 DATASET NAME this.
231 DATASET DISPLAY.
232 DATASET CLOSE this.
233 DATASET DISPLAY.
234
235 DATASET NAME this.
236 DATASET DISPLAY.
237 DATASET CLOSE *.
238 DATASET DISPLAY.
239
240 DATASET DECLARE that.
241 DATASET DECLARE theother.
242 DATASET DECLARE yetanother.
243 DATASET DISPLAY.
244 DATASET CLOSE ALL.
245 DATASET DISPLAY.
246
247 DATASET NAME this.
248 DATASET DECLARE that.
249 DATASET DECLARE theother.
250 DATASET DECLARE yetanother.
251 DATASET DISPLAY.
252 DATASET CLOSE ALL.
253 DATASET DISPLAY.
254 ])
255 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
256 Table: Open datasets.
257 Dataset
258 unnamed dataset (active dataset)
259
260 Table: Open datasets.
261 Dataset
262 unnamed dataset (active dataset)
263
264 Table: Open datasets.
265 Dataset
266 this (active dataset)
267
268 Table: Open datasets.
269 Dataset
270 unnamed dataset (active dataset)
271
272 Table: Open datasets.
273 Dataset
274 this (active dataset)
275
276 Table: Open datasets.
277 Dataset
278 unnamed dataset (active dataset)
279
280 Table: Open datasets.
281 Dataset
282 unnamed dataset (active dataset)
283 that
284 theother
285 yetanother
286
287 Table: Open datasets.
288 Dataset
289 unnamed dataset (active dataset)
290
291 Table: Open datasets.
292 Dataset
293 that
294 theother
295 this (active dataset)
296 yetanother
297
298 Table: Open datasets.
299 Dataset
300 unnamed dataset (active dataset)
301 ])
302 AT_CLEANUP