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([SET])

# This crashed older versions of PSPP (bug #30682).
AT_SETUP([SET FORMAT to invalid output format])
AT_DATA([set.pspp], [dnl
DATA LIST LIST NOTABLE /x.
BEGIN DATA.
1
2
3
END DATA.
SET FORMAT F41.
DESCRIPTIVES /x.
])
AT_CHECK([pspp -O format=csv set.pspp], [1], [dnl
"set.pspp:7.12-7.14: error: SET: Output format F41.0 specifies width 41, but F requires a width between 1 and 40.
    7 | SET FORMAT F41.
      |            ^~~"

Table: Descriptive Statistics
,N,Mean,Std Dev,Minimum,Maximum
x,3,2.00,1.00,1.00,3.00
Valid N (listwise),3,,,,
Missing N (listwise),0,,,,
])
AT_CLEANUP


dnl This scenario was observed to erroneously free things twice
AT_SETUP([SET crash on invalid cc])
AT_DATA([set.pspp], [dnl
SET CCA='xxxx'.SHGW CCA.
])

AT_CHECK([pspp -O format=csv set.pspp], [1], [dnl
"set.pspp:1.9-1.14: error: SET: Custom currency string `CCA' for xxxx does not contain exactly three periods or commas (or it contains both).
    1 | SET CCA='xxxx'.SHGW CCA.
      |         ^~~~~~"
])
AT_CLEANUP



AT_SETUP([SET MXWARNS])
dnl Make sure that syntax processing stops and that
dnl a warning is issued when the MXWARNS figure is
dnl exceeded.
AT_DATA([set.pspp], [dnl
set mxwarns=2.
data list notable list /x (f8.2) y (f8.2).
begin data
1 2
3 r
5 x
q 8
9 9
3 x
w w
end data.

comment The following line should not be executed.
list.
])

AT_CHECK([pspp -O format=csv set.pspp], [0], [dnl
set.pspp:5.3: warning: Data for variable y is not valid as format F: Field contents are not numeric.

set.pspp:6.3: warning: Data for variable y is not valid as format F: Field contents are not numeric.

set.pspp:7.1: warning: Data for variable x is not valid as format F: Field contents are not numeric.

note: Warnings (3) exceed limit (2).  Syntax processing will be halted.
])

AT_CLEANUP




AT_SETUP([SET MXWARNS special case zero])
dnl Make sure that MXWARNS interprets zero as infinity.
AT_DATA([mxwarns.pspp], [dnl
set mxwarns=0.
data list notable list /x (f8.2) y (f8.2) z *.
begin data
1 2 3
3 r 3
5 x 3
q 8 4
9 9 4
3 x 4
w w 4
end data.

list.
])

AT_CHECK([pspp -O format=csv mxwarns.pspp], [0],
[warning: MXWARNS set to zero.  No further warnings will be given even when potentially problematic situations are encountered.

Table: Data List
x,y,z
1.00,2.00,3.00
3.00,.  ,3.00
5.00,.  ,3.00
.  ,8.00,4.00
9.00,9.00,4.00
3.00,.  ,4.00
.  ,.  ,4.00
])

AT_CLEANUP

AT_SETUP([SET macro - MEXPAND MPRINT MITERATE MNEST])
AT_DATA([set-macro.sps], [dnl
show mexpand mprint miterate mnest.
preserve.
set mexpand=off mprint=on miterate=10 mnest=11.
show mexpand mprint miterate mnest.
restore.
show mexpand mprint miterate mnest.
])
AT_CHECK([pspp -O format=csv set-macro.sps], [0], [dnl
Table: Settings
MEXPAND,ON
MPRINT,OFF
MITERATE,1000
MNEST,50

Table: Settings
MEXPAND,OFF
MPRINT,ON
MITERATE,10
MNEST,11

Table: Settings
MEXPAND,ON
MPRINT,OFF
MITERATE,1000
MNEST,50
])
AT_CLEANUP

AT_BANNER([PRESERVE and RESTORE])

AT_SETUP([PRESERVE of SET FORMAT])
AT_DATA([set.pspp], [dnl
SHOW FORMAT.
PRESERVE.
SET FORMAT F10.0.
SHOW FORMAT
RESTORE.
SHOW FORMAT.
])
AT_CHECK([pspp -O format=csv set.pspp], [0], [dnl
Table: Settings
FORMAT,F8.2

Table: Settings
FORMAT,F10.0

Table: Settings
FORMAT,F8.2
])
AT_CLEANUP