dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
m4_define([CHECK_EXPR_EVAL],
[AT_SETUP([expressions - $1])
+ AT_KEYWORDS([expression])
AT_DATA([evaluate.sps],
[set mxwarn 1000.
set mxerr 1000.
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],
[[range(1, 2)], [error],
- [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an odd number of arguments.]],
[[range(1, 2, 3, 4)], [error],
- [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an odd number of arguments.]],
[[range(1, 2, 3, 4, 5, 6)], [error],
- [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an odd number of arguments.]],
[[range('1', 2, 3)], [error],
[error: DEBUG EVALUATE: Function invocation range(string, number, number) does not match any known function. Candidates are:
RANGE(number, number, number[, number, number]...)
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],
[[range('1', '2')], [error],
- [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an odd number of arguments.]],
[[range('1', '2', '3', '4')], [error],
- [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an odd number of arguments.]],
[[range('1', '2', '3', '4', '5', '6')], [error],
- [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
+ [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an odd number of arguments.]],
[[range(1, '2', '3')], [error],
[error: DEBUG EVALUATE: Function invocation range(number, string, string) does not match any known function. Candidates are:
RANGE(number, number, number[, number, number]...)
[[max(1, 2, 3, $sysmis)], [3.00]],
[[max.4(1, 2, 3, $sysmis)], [sysmis]],
[[max.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With MAX(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For MAX(number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[max("2", "3", "5", "1", "4")], ["5"]],
[[max("1", "2")], ["2"]],
[[min(1, 2, 3, $sysmis)], [1.00]],
[[min.4(1, 2, 3, $sysmis)], [sysmis]],
[[min.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With MIN(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For MIN(number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[min("2", "3", "5", "1", "4")], ["1"]],
[[min("1", "2")], ["1"]],
[[cfvar(1, 2, 3, $sysmis)], [0.50]],
[[cfvar.4(1, 2, 3, $sysmis)], [sysmis]],
[[cfvar.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With CFVAR(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For CFVAR(number, number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[cfvar('x')], [error],
[error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(string).]],
[[cfvar('x', 1, 2, 3)], [error],
[[mean(1, 2, 3, $sysmis)], [2.00]],
[[mean.4(1, 2, 3, $sysmis)], [sysmis]],
[[mean.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With MEAN(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For MEAN(number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[median(1, 2, 3, 4, 5)], [3.00]],
[[median(2, 3, 4, 5, 1)], [3.00]],
[[sd(1, 2, 3, $sysmis)], [1.00]],
[[sd.4(1, 2, 3, $sysmis)], [sysmis]],
[[sd.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With SD(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For SD(number, number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[sd('x')], [error],
[error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(string).]],
[[sd('x', 1, 2, 3)], [error],
[[sum(1, 2, 3, $sysmis)], [6.00]],
[[sum.4(1, 2, 3, $sysmis)], [sysmis]],
[[sum.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With SUM(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For SUM(number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[variance(1, 2, 3, 4, 5)], [2.50]],
[[variance(1, $sysmis, 2, 3, $sysmis, 4, 5)], [2.50]],
[[variance(1, 2, 3, $sysmis)], [1.00]],
[[variance.4(1, 2, 3, $sysmis)], [sysmis]],
[[variance.4(1, 2, 3)], [error],
- [error: DEBUG EVALUATE: With VARIANCE(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
+ [error: DEBUG EVALUATE: For VARIANCE(number, number[, number]...) with 3 arguments, at most 3 (not 4) may be required to be valid.]],
[[variance('x')], [error],
[error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(string).]],
[[variance('x', 1, 2, 3)], [error],
[[x ** 1], [5.00], [], [(X = 5.00)]],
[[x ** 2], [25.00], [], [(X = 5.00)]])
+CHECK_EXPR_EVAL([negative checks],
+ [[$nonexistent], [error], [error: DEBUG EVALUATE: Unknown system variable $nonexistent.]],
+ [[RANGE(1, 2)], [error], [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an odd number of arguments.]],
+ [[CONCAT.1('a', 'b')], [error], [error: DEBUG EVALUATE: CONCAT(string[, string]...) function cannot accept suffix .1 to specify the minimum number of valid arguments.]],
+ [[foobar(x)], [error], [error: DEBUG EVALUATE: No function or vector named foobar.]],
+ [[CONCAT.1('a' b)], [error], [error: DEBUG EVALUATE: Syntax error at `b': expecting `,' or `)'.]],
+ [[NCDF.CHISQ(1, 2, 3)], [error], [error: DEBUG EVALUATE: NCDF.CHISQ(number, number, number) is not available in this version of PSPP.]])
+
AT_SETUP([LAG function])
AT_DATA([lag.sps], [dnl
data list /W 1.