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
|
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([PSPP terminal UI])
AT_SETUP([nonexistent syntax file crash])
AT_CHECK([pspp nonexistent], [1],
[error: Opening `nonexistent': No such file or directory.
])
AT_CLEANUP
AT_SETUP([SIGTERM yields clean shutdown])
AT_KEYWORDS([slow])
AT_DATA([main.sps], [dnl
INPUT PROGRAM.
COMPUTE x = x + 1.
DO IF x = 10000.
END CASE.
ELSE IF x < 0.
END FILE.
END IF.
END INPUT PROGRAM.
EXECUTE.
])
AT_CHECK([pspp main.sps & sleep 1; kill $!; wait $!], [143], [], [ignore])
AT_CLEANUP
AT_SETUP([SIGSEGV yields error report])
# This test intentionally causes SIGSEGV, so make Address Sanitizer ignore it.
ASAN_OPTIONS=$ASAN_OPTIONS:handle_segv=0; export ASAN_OPTIONS
AT_CHECK([[echo 'host command=["kill -SEGV $PPID"].' | pspp -O format=csv]],
[139], [], [stderr])
cat > expout <<EOF
******************************************************
You have discovered a bug in PSPP. Please report this
to $PACKAGE_BUGREPORT. Please include this entire
message, *plus* several lines of output just above it.
For the best chance at having the bug fixed, also
include the syntax file that triggered it and a sample
of any data file used for input.
proximate cause: Segmentation Violation
EOF
AT_CHECK([sed '/proximate/q' < stderr], [0], [expout])
AT_CLEANUP
dnl This tests for a crash which was observed with --syntax
AT_SETUP([argument parsing])
AT_DATA([main.sps], [dnl
ECHO 'This is a test'.
FINISH.
])
AT_CHECK([pspp --syntax=enhanced main.sps], [0], [ignore])
AT_CLEANUP
|
