1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
dnl PSPP - a program for statistical analysis.
dnl Copyright (C) 2017 Free Software Foundation, Inc.
dnl
dnl This program is free software: you can redistribute it and/or modify
dnl it under the terms of the GNU General Public License as published by
dnl the Free Software Foundation, either version 3 of the License, or
dnl (at your option) any later version.
dnl
dnl This program is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
dnl GNU General Public License for more details.
dnl
dnl You should have received a copy of the GNU General Public License
dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
dnl
AT_BANNER([DELETE VARIABLES])
dnl Checks for regressions against a crash reported in bug #38843.
AT_SETUP([DELETE VARIABLES with FILTER])
AT_DATA([delete-variables.sps], [dnl
DATA LIST LIST /a b.
BEGIN DATA.
1 3
4 6
7 9
END DATA.
FILTER BY b.
DELETE VARIABLES a.
LIST.
])
AT_CHECK([pspp -O format=csv delete-variables.sps], [0], [dnl
Table: Reading free-form data from INLINE.
Variable,Format
a,F8.0
b,F8.0
Table: Data List
b
3.00
6.00
9.00
])
AT_CLEANUP
dnl Checks for regression against a crash reported on pspp-users:
dnl https://lists.gnu.org/archive/html/pspp-users/2021-03/msg00025.html
AT_SETUP([DELETE VARIABLES with string variables])
AT_DATA([delete-variables.sps], [dnl
DATA LIST NOTABLE /s1 TO s2 1-2(A).
BEGIN DATA
12
END DATA.
DELETE VARIABLES s1.
NUMERIC n1.
LIST.
])
AT_CHECK([pspp -O format=csv delete-variables.sps], [0], [dnl
Table: Data List
s2,n1
2,. @&t@
])
AT_CLEANUP
dnl Checks for regression against a crash by Frans Houuweling
dnl on Feb. 18, 2023.
AT_SETUP([DELETE VARIABLES crash])
AT_DATA([delete-variables.sps], [dnl
DATA LIST NOTABLE LIST
/ID (A8) respondent_city_of_birth (A25) respondent_name (A20) respondent_surname (A30) respondent_year_of_birth (F4.0).
BEGIN DATA
195 Amsterdam Floris "van Gelder" 1958
END DATA.
STRING varlist (A64).
COMPUTE found = 0.
EXECUTE.
MATCH FILES FILE= * /KEEP = ID TO respondent_name ALL.
EXECUTE.
DELETE VARIABLES respondent_surname found .
LIST.
])
AT_CHECK([pspp --testing-mode -O format=csv delete-variables.sps], [0], [dnl
Table: Data List
ID,respondent_city_of_birth,respondent_name,respondent_year_of_birth,varlist
195,Amsterdam,Floris,1958,
])
AT_CLEANUP
dnl Checks for regression against a crash reported privately by
dnl knassen(at)chartermi.net on March 1, 2023.
AT_SETUP([DELETE VARIABLES crash 2])
AT_DATA([delete-variables.sps], [dnl
DATA LIST LIST NOTABLE /foo (A5).
STRING bar (A8).
DELETE VARIABLES foo.
LIST.
BEGIN DATA.
asdf
END DATA.
])
AT_CHECK([pspp -O format=csv delete-variables.sps], [0], [dnl
Table: Data List
bar
])
AT_CLEANUP
AT_SETUP([DELETE VARIABLES syntax errors])
AT_DATA([delete-variables.sps], [dnl
DATA LIST LIST NOTABLE /x y z.
BEGIN DATA.
1 2 3
END DATA.
DELETE VARIABLES x y z.
TEMPORARY.
DELETE VARIABLES x.
COMPUTE y=0.
DELETE VARIABLES x.
])
AT_DATA([insert.sps], [dnl
INSERT FILE='delete-variables.sps' ERROR=IGNORE.
])
AT_CHECK([pspp --testing-mode -O format=csv insert.sps], [1], [dnl
"delete-variables.sps:5.1-5.22: error: DELETE VARIABLES: DELETE VARIABLES may not be used to delete all variables from the active dataset dictionary. Use NEW FILE instead.
5 | DELETE VARIABLES x y z.
| ^~~~~~~~~~~~~~~~~~~~~~"
"delete-variables.sps:7.1-7.16: error: DELETE VARIABLES: DELETE VARIABLES may not be used after TEMPORARY.
7 | DELETE VARIABLES x.
| ^~~~~~~~~~~~~~~~"
"delete-variables.sps:9.1-9.16: error: DELETE VARIABLES: DELETE VARIABLES may not be used when there are pending transformations (use EXECUTE to execute transformations).
9 | DELETE VARIABLES x.
| ^~~~~~~~~~~~~~~~"
])
AT_CLEANUP
|
