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/>.
m4_define([CHECK_EXPR_EVAL],
  [AT_SETUP([expressions - $1])
   AT_KEYWORDS([expression])
   AT_DATA([evaluate.sps],
     [set mxwarn 1000.
set mxerr 1000.
set epoch 1940.
m4_foreach([check], [m4_shift($@)],
                 [DEBUG EVALUATE NOOPT m4_argn(4, check)/[]m4_car(check).
DEBUG EVALUATE m4_argn(4, check)/[]m4_car(check).
])])
   AT_CAPTURE_FILE([evaluate.sps])
   m4_pushdef([i], [3])
   AT_CHECK([pspp --testing-mode -O format=csv evaluate.sps],
     [m4_if(m4_bregexp([m4_foreach([check], [m4_shift($@)], [m4_argn(3, check)])], [error:]), [-1], [0], [1])],
     [stdout])
   AT_DATA([expout], [m4_foreach([check], [m4_shift($@)],
        [m4_define([i], m4_incr(i))dnl
m4_if(m4_argn(3, check), [], [], [evaluate.sps:[]i[]: m4_argn(3, check)
])dnl
m4_argn(2, check)
m4_define([i], m4_incr(i))dnl
m4_if(m4_argn(3, check), [], [], [evaluate.sps:[]i[]: m4_argn(3, check)
])dnl
m4_argn(2, check)
])])
   AT_CHECK([[sed '
# Transform "file:line.column:" into plain "file:line:",
# because column numbers change between opt and noopt versions.
s/\(evaluate.sps:[0-9]\{1,\}\)\.[0-9]\{1,\}:/\1:/

# Remove leading or trailing quotes and un-double CSV quotes.
s/^"//
s/"$//
s/""/"/g
# "

# Delete blank lines
/^$/d' stdout]],
     [0], [expout], [])
   m4_popdef([i])
   AT_CLEANUP])

AT_BANNER([expressions])

AT_SETUP([expressions - numeric syntax])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /1e2.
DEBUG EVALUATE /1e+2.
DEBUG EVALUATE /1e-2.
DEBUG EVALUATE /1e-99.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
1e2 => 100.00

1e+2 => 100.00

1e-2 => 0.01

1e-99 => 0.00
])
done
AT_CLEANUP

AT_SETUP([expressions - coercion to and from Boolean])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE/0 AND 1.
DEBUG EVALUATE/$true AND 1.
DEBUG EVALUATE/1 OR $false.
DEBUG EVALUATE/1 OR $sysmis.
DEBUG EVALUATE/2 OR $sysmis.
DEBUG EVALUATE/1 AND 3.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
0 AND 1 => false

$true AND 1 => true

1 OR $false => true

1 OR $sysmis => true

evaluate.sps:7.16-7.27: error: DEBUG EVALUATE: The operands of OR must have
value 0 or 1.
    7 | DEBUG EVALUATE/2 OR $sysmis.
      |                ^~~~~~~~~~~~

evaluate.sps:7.16: note: DEBUG EVALUATE: This operand with unexpected value 2
will be treated as 0.
    7 | DEBUG EVALUATE/2 OR $sysmis.
      |                ^

2 OR $sysmis => sysmis

evaluate.sps:8.16-8.22: error: DEBUG EVALUATE: The operands of AND must have
value 0 or 1.
    8 | DEBUG EVALUATE/1 AND 3.
      |                ^~~~~~~

evaluate.sps:8.22: note: DEBUG EVALUATE: This operand with unexpected value 3
will be treated as 0.
    8 | DEBUG EVALUATE/1 AND 3.
      |                      ^

1 AND 3 => false
])
done
AT_CLEANUP

AT_SETUP([expressions - addition and subtraction])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /1 + $true.
DEBUG EVALUATE /$sysmis + 1.
DEBUG EVALUATE /7676 + $sysmis.
DEBUG EVALUATE /1 +3 - 2 +4 - 5.
DEBUG EVALUATE /$true - 4/3.
DEBUG EVALUATE /1 - 2.
DEBUG EVALUATE /52 -23.

DEBUG EVALUATE /('foo') + 5.
DEBUG EVALUATE /('foo') + ('bar').   /* Concatenation requires CONCAT.
DEBUG EVALUATE /'foo' + 'bar'.       /* Lexical concatenation succeeds.

DEBUG EVALUATE /'string' - 1e10.
DEBUG EVALUATE /9.5 - ''.

DEBUG EVALUATE /F2.0 + 3.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
1 + $true => 2.00

$sysmis + 1 => sysmis

7676 + $sysmis => sysmis

1 +3 - 2 +4 - 5 => 1.00

$true - 4/3 => -0.33

1 - 2 => -1.00

52 -23 => 29.00

evaluate.sps:11.18-11.27: error: DEBUG EVALUATE: Both operands of + must be
numeric.
   11 | DEBUG EVALUATE /('foo') + 5.
      |                  ^~~~~~~~~~

evaluate.sps:11.18-11.22: note: DEBUG EVALUATE: This operand has type 'string'.
   11 | DEBUG EVALUATE /('foo') + 5.
      |                  ^~~~~

evaluate.sps:11.27: note: DEBUG EVALUATE: This operand has type 'number'.
   11 | DEBUG EVALUATE /('foo') + 5.
      |                           ^

('foo') + 5 => error

evaluate.sps:12.18-12.32: error: DEBUG EVALUATE: Both operands of + must be
numeric.
   12 | DEBUG EVALUATE /('foo') + ('bar').   /* Concatenation requires CONCAT.
      |                  ^~~~~~~~~~~~~~~

evaluate.sps:12.18-12.22: note: DEBUG EVALUATE: This operand has type 'string'.
   12 | DEBUG EVALUATE /('foo') + ('bar').   /* Concatenation requires CONCAT.
      |                  ^~~~~

evaluate.sps:12.28-12.32: note: DEBUG EVALUATE: This operand has type 'string'.
   12 | DEBUG EVALUATE /('foo') + ('bar').   /* Concatenation requires CONCAT.
      |                            ^~~~~

('foo') + ('bar') => error

'foo' + 'bar' => "foobar"

evaluate.sps:15.17-15.31: error: DEBUG EVALUATE: Both operands of - must be
numeric.
   15 | DEBUG EVALUATE /'string' - 1e10.
      |                 ^~~~~~~~~~~~~~~

evaluate.sps:15.17-15.24: note: DEBUG EVALUATE: This operand has type 'string'.
   15 | DEBUG EVALUATE /'string' - 1e10.
      |                 ^~~~~~~~

evaluate.sps:15.26-15.31: note: DEBUG EVALUATE: This operand has type 'number'.
   15 | DEBUG EVALUATE /'string' - 1e10.
      |                          ^~~~~~

'string' - 1e10 => error

evaluate.sps:16.17-16.24: error: DEBUG EVALUATE: Both operands of - must be
numeric.
   16 | DEBUG EVALUATE /9.5 - ''.
      |                 ^~~~~~~~

evaluate.sps:16.17-16.19: note: DEBUG EVALUATE: This operand has type 'number'.
   16 | DEBUG EVALUATE /9.5 - ''.
      |                 ^~~

evaluate.sps:16.23-16.24: note: DEBUG EVALUATE: This operand has type 'string'.
   16 | DEBUG EVALUATE /9.5 - ''.
      |                       ^~

9.5 - '' => error

evaluate.sps:18.17-18.24: error: DEBUG EVALUATE: Both operands of + must be
numeric.
   18 | DEBUG EVALUATE /F2.0 + 3.
      |                 ^~~~~~~~

evaluate.sps:18.17-18.20: note: DEBUG EVALUATE: This operand has type 'format'.
   18 | DEBUG EVALUATE /F2.0 + 3.
      |                 ^~~~

evaluate.sps:18.24: note: DEBUG EVALUATE: This operand has type 'number'.
   18 | DEBUG EVALUATE /F2.0 + 3.
      |                        ^

F2.0 + 3 => error
])
done
AT_CLEANUP

AT_SETUP([expressions - multiplication and division])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /5 * 10.
DEBUG EVALUATE /10 * $true.
DEBUG EVALUATE /$true * 5.
DEBUG EVALUATE /1.5 * $true.
DEBUG EVALUATE /$sysmis * 15.
DEBUG EVALUATE /8.5 / $sysmis.
DEBUG EVALUATE /2 * 5 / 10.
DEBUG EVALUATE /1 / 2.
DEBUG EVALUATE /2 / 5.
DEBUG EVALUATE /12 / 3 / 2.

DEBUG EVALUATE /'x' * 1.
DEBUG EVALUATE /2 / 'x'.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
5 * 10 => 50.00

10 * $true => 10.00

$true * 5 => 5.00

1.5 * $true => 1.50

$sysmis * 15 => sysmis

8.5 / $sysmis => sysmis

2 * 5 / 10 => 1.00

1 / 2 => 0.50

2 / 5 => 0.40

12 / 3 / 2 => 2.00

evaluate.sps:14.17-14.23: error: DEBUG EVALUATE: Both operands of * must be
numeric.
   14 | DEBUG EVALUATE /'x' * 1.
      |                 ^~~~~~~

evaluate.sps:14.17-14.19: note: DEBUG EVALUATE: This operand has type 'string'.
   14 | DEBUG EVALUATE /'x' * 1.
      |                 ^~~

evaluate.sps:14.23: note: DEBUG EVALUATE: This operand has type 'number'.
   14 | DEBUG EVALUATE /'x' * 1.
      |                       ^

'x' * 1 => error

evaluate.sps:15.17-15.23: error: DEBUG EVALUATE: Both operands of / must be
numeric.
   15 | DEBUG EVALUATE /2 / 'x'.
      |                 ^~~~~~~

evaluate.sps:15.17: note: DEBUG EVALUATE: This operand has type 'number'.
   15 | DEBUG EVALUATE /2 / 'x'.
      |                 ^

evaluate.sps:15.21-15.23: note: DEBUG EVALUATE: This operand has type 'string'.
   15 | DEBUG EVALUATE /2 / 'x'.
      |                     ^~~

2 / 'x' => error
])
done
AT_CLEANUP

AT_SETUP([expressions - exponentiation])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /2**8.
DEBUG EVALUATE /(2**3)**4.
DEBUG EVALUATE /2**3**4.
DEBUG EVALUATE /-2**2.
DEBUG EVALUATE /-2**-3**-4.
DEBUG EVALUATE /-((2**-3)**-4).
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
2**8 => 256.00

(2**3)**4 => 4096.00

evaluate.sps:5.17-5.23: warning: DEBUG EVALUATE: The exponentiation operator
(`**') is left-associative: `a**b**c' equals `(a**b)**c', not `a**(b**c)'.  To
disable this warning, insert parentheses.
    5 | DEBUG EVALUATE /2**3**4.
      |                 ^~~~~~~

2**3**4 => 4096.00

-2**2 => -4.00

evaluate.sps:7.17-7.26: warning: DEBUG EVALUATE: The exponentiation operator
(`**') is left-associative: `a**b**c' equals `(a**b)**c', not `a**(b**c)'.  To
disable this warning, insert parentheses.
    7 | DEBUG EVALUATE /-2**-3**-4.
      |                 ^~~~~~~~~~

-2**-3**-4 => -4096.00

-((2**-3)**-4) => -4096.00
])
done
AT_CLEANUP

AT_SETUP([expressions - unary minus])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /2+-3.
DEBUG EVALUATE /2*-3.
DEBUG EVALUATE /-3**2.
DEBUG EVALUATE /(-3)**2.
DEBUG EVALUATE /-(3**2).
DEBUG EVALUATE /2**-1.
DEBUG EVALUATE /0**0.
DEBUG EVALUATE /0**-1.
DEBUG EVALUATE /(-3)**1.5.
])

for opt in OPT NOOPT; do
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
2+-3 => -1.00

2*-3 => -6.00

-3**2 => -9.00

(-3)**2 => 9.00

-(3**2) => -9.00

2**-1 => 0.50

0**0 => sysmis

0**-1 => sysmis

(-3)**1.5 => sysmis
])
done
AT_CLEANUP

AT_SETUP([expressions - AND truth table])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /$false AND $false.
DEBUG EVALUATE /$false AND $true.
DEBUG EVALUATE /$false AND $sysmis.
DEBUG EVALUATE /$true AND $false.
DEBUG EVALUATE /$true AND $true.
DEBUG EVALUATE /$true AND $sysmis.
DEBUG EVALUATE /$sysmis AND $false.
DEBUG EVALUATE /$sysmis AND $true.
DEBUG EVALUATE /$sysmis AND $sysmis.
DEBUG EVALUATE /$false & $false.
DEBUG EVALUATE /$false & $true.
DEBUG EVALUATE /$false & $sysmis.
DEBUG EVALUATE /$true & $false.
DEBUG EVALUATE /$true & $true.
DEBUG EVALUATE /$true & $sysmis.
DEBUG EVALUATE /$sysmis & $false.
DEBUG EVALUATE /$sysmis & $true.
DEBUG EVALUATE /$sysmis & $sysmis.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
$false AND $false => false

$false AND $true => false

$false AND $sysmis => false

$true AND $false => false

$true AND $true => true

$true AND $sysmis => sysmis

$sysmis AND $false => false

$sysmis AND $true => sysmis

$sysmis AND $sysmis => sysmis

$false & $false => false

$false & $true => false

$false & $sysmis => false

$true & $false => false

$true & $true => true

$true & $sysmis => sysmis

$sysmis & $false => false

$sysmis & $true => sysmis

$sysmis & $sysmis => sysmis
])
done
AT_CLEANUP

AT_SETUP([expressions - OR truth table])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /$false OR $false.
DEBUG EVALUATE /$false OR $true.
DEBUG EVALUATE /$false OR $sysmis.
DEBUG EVALUATE /$true OR $false.
DEBUG EVALUATE /$true OR $true.
DEBUG EVALUATE /$true OR $sysmis.
DEBUG EVALUATE /$sysmis OR $false.
DEBUG EVALUATE /$sysmis OR $true.
DEBUG EVALUATE /$sysmis OR $sysmis.
DEBUG EVALUATE /$false | $false.
DEBUG EVALUATE /$false | $true.
DEBUG EVALUATE /$false | $sysmis.
DEBUG EVALUATE /$true | $false.
DEBUG EVALUATE /$true | $true.
DEBUG EVALUATE /$true | $sysmis.
DEBUG EVALUATE /$sysmis | $false.
DEBUG EVALUATE /$sysmis | $true.
DEBUG EVALUATE /$sysmis | $sysmis.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
$false OR $false => false

$false OR $true => true

$false OR $sysmis => sysmis

$true OR $false => true

$true OR $true => true

$true OR $sysmis => true

$sysmis OR $false => sysmis

$sysmis OR $true => true

$sysmis OR $sysmis => sysmis

$false | $false => false

$false | $true => true

$false | $sysmis => sysmis

$true | $false => true

$true | $true => true

$true | $sysmis => true

$sysmis | $false => sysmis

$sysmis | $true => true

$sysmis | $sysmis => sysmis
])
done
AT_CLEANUP

AT_SETUP([expressions - NOT truth table])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /not $false.
DEBUG EVALUATE /not 0.
DEBUG EVALUATE /not 2.5.
DEBUG EVALUATE /not $true.
DEBUG EVALUATE /not 1.
DEBUG EVALUATE /not $sysmis.
DEBUG EVALUATE /~ $false.
DEBUG EVALUATE /~ 0.
DEBUG EVALUATE /~ 2.5.
DEBUG EVALUATE /~ $true.
DEBUG EVALUATE /~ 1.
DEBUG EVALUATE /~ $sysmis.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
not $false => true

not 0 => true

evaluate.sps:5.17-5.23: error: DEBUG EVALUATE: The operand of NOT must have
value 0 or 1.
    5 | DEBUG EVALUATE /not 2.5.
      |                 ^~~~~~~

evaluate.sps:5.21-5.23: note: DEBUG EVALUATE: This operand with unexpected
value 2.5 will be treated as 0.
    5 | DEBUG EVALUATE /not 2.5.
      |                     ^~~

not 2.5 => true

not $true => false

not 1 => false

not $sysmis => sysmis

~ $false => true

~ 0 => true

evaluate.sps:11.17-11.21: error: DEBUG EVALUATE: The operand of NOT must have
value 0 or 1.
   11 | DEBUG EVALUATE /~ 2.5.
      |                 ^~~~~

evaluate.sps:11.19-11.21: note: DEBUG EVALUATE: This operand with unexpected
value 2.5 will be treated as 0.
   11 | DEBUG EVALUATE /~ 2.5.
      |                   ^~~

~ 2.5 => true

~ $true => false

~ 1 => false

~ $sysmis => sysmis
])
done
AT_CLEANUP

AT_SETUP([expressions - = <= <])
AT_KEYWORDS([expression expressions evaluate eq le lt])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /1 eq 1.
DEBUG EVALUATE /1 = 1.
DEBUG EVALUATE /1 eq 2.
DEBUG EVALUATE /2 = 3.
DEBUG EVALUATE /1 eq 'foobar'.
DEBUG EVALUATE /'baz' = 10.
DEBUG EVALUATE /'baz' = f8.2.
DEBUG EVALUATE /'baz' = 'baz'.
DEBUG EVALUATE /'quux' = 'bar'.
DEBUG EVALUATE /'bar  ' = 'bar'.
DEBUG EVALUATE /'asdf     ' = 'asdf  '.
DEBUG EVALUATE /'asdfj     ' = 'asdf'.
DEBUG EVALUATE /1 + 2 = 3.
DEBUG EVALUATE /1 >= 2 = 2 ge 3.
DEBUG EVALUATE /3 ne 2 != 1.
DEBUG EVALUATE /3 > 2 > 1.

DEBUG EVALUATE /1 <= 2.
DEBUG EVALUATE /2.5 <= 1.5.
DEBUG EVALUATE /1 le 2.
DEBUG EVALUATE /2 <= 2.
DEBUG EVALUATE /2 le 2.
DEBUG EVALUATE /2 < = 2.
DEBUG EVALUATE /1 <= 'foobar'.
DEBUG EVALUATE /'baz' <= 10.
DEBUG EVALUATE /'quux' <= 5.55.
DEBUG EVALUATE /'0123' <= '0123'.
DEBUG EVALUATE /'0123' <= '0124'.
DEBUG EVALUATE /'0124' le '0123'.
DEBUG EVALUATE /'0123  ' <= '0123'.
DEBUG EVALUATE /'0123' le '0123  '.

DEBUG EVALUATE /1 < 2.
DEBUG EVALUATE /2.5 < 1.5.
DEBUG EVALUATE /3.5 lt 4.
DEBUG EVALUATE /4 lt 3.5
DEBUG EVALUATE /1 lt 'foobar'.
DEBUG EVALUATE /5 lt 'foobar'.
DEBUG EVALUATE /'baz' < 10.
DEBUG EVALUATE /'quux' < 5.55.
DEBUG EVALUATE /'0123' lt '0123'.
DEBUG EVALUATE /'0123' < '0124'.
DEBUG EVALUATE /'0124' lt '0123'.
DEBUG EVALUATE /'0123  ' < '0123'.
DEBUG EVALUATE /'0123' lt '0123  '.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
1 eq 1 => true

1 = 1 => true

1 eq 2 => false

2 = 3 => false

evaluate.sps:7.17-7.29: error: DEBUG EVALUATE: Both operands of EQ must have
the same type.
    7 | DEBUG EVALUATE /1 eq 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:7.17: note: DEBUG EVALUATE: This operand has type 'number'.
    7 | DEBUG EVALUATE /1 eq 'foobar'.
      |                 ^

evaluate.sps:7.22-7.29: note: DEBUG EVALUATE: This operand has type 'string'.
    7 | DEBUG EVALUATE /1 eq 'foobar'.
      |                      ^~~~~~~~

1 eq 'foobar' => error

evaluate.sps:8.17-8.26: error: DEBUG EVALUATE: Both operands of = must have the
same type.
    8 | DEBUG EVALUATE /'baz' = 10.
      |                 ^~~~~~~~~~

evaluate.sps:8.17-8.21: note: DEBUG EVALUATE: This operand has type 'string'.
    8 | DEBUG EVALUATE /'baz' = 10.
      |                 ^~~~~

evaluate.sps:8.25-8.26: note: DEBUG EVALUATE: This operand has type 'number'.
    8 | DEBUG EVALUATE /'baz' = 10.
      |                         ^~

'baz' = 10 => error

evaluate.sps:9.17-9.28: error: DEBUG EVALUATE: Both operands of = must have the
same type.
    9 | DEBUG EVALUATE /'baz' = f8.2.
      |                 ^~~~~~~~~~~~

evaluate.sps:9.17-9.21: note: DEBUG EVALUATE: This operand has type 'string'.
    9 | DEBUG EVALUATE /'baz' = f8.2.
      |                 ^~~~~

evaluate.sps:9.25-9.28: note: DEBUG EVALUATE: This operand has type 'format'.
    9 | DEBUG EVALUATE /'baz' = f8.2.
      |                         ^~~~

'baz' = f8.2 => error

'baz' = 'baz' => true

'quux' = 'bar' => false

'bar  ' = 'bar' => true

'asdf     ' = 'asdf  ' => true

'asdfj     ' = 'asdf' => false

1 + 2 = 3 => true

evaluate.sps:16.17-16.31: warning: DEBUG EVALUATE: Chaining relational
operators (e.g. `a < b < c') will not produce the mathematically expected
result.  Use the AND logical operator to fix the problem (e.g. `a < b AND b <
c').  To disable this warning, insert parentheses.
   16 | DEBUG EVALUATE /1 >= 2 = 2 ge 3.
      |                 ^~~~~~~~~~~~~~~

1 >= 2 = 2 ge 3 => false

evaluate.sps:17.24: error: DEBUG EVALUATE: Syntax error at `!': expecting end
of command.

3 ne 2 != 1 => error

evaluate.sps:18.17-18.25: warning: DEBUG EVALUATE: Chaining relational
operators (e.g. `a < b < c') will not produce the mathematically expected
result.  Use the AND logical operator to fix the problem (e.g. `a < b AND b <
c').  To disable this warning, insert parentheses.
   18 | DEBUG EVALUATE /3 > 2 > 1.
      |                 ^~~~~~~~~

3 > 2 > 1 => false

1 <= 2 => true

2.5 <= 1.5 => false

1 le 2 => true

2 <= 2 => true

2 le 2 => true

evaluate.sps:25.21: error: DEBUG EVALUATE: Syntax error at `='.

2 < = 2 => error

evaluate.sps:26.17-26.29: error: DEBUG EVALUATE: Both operands of <= must have
the same type.
   26 | DEBUG EVALUATE /1 <= 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:26.17: note: DEBUG EVALUATE: This operand has type 'number'.
   26 | DEBUG EVALUATE /1 <= 'foobar'.
      |                 ^

evaluate.sps:26.22-26.29: note: DEBUG EVALUATE: This operand has type 'string'.
   26 | DEBUG EVALUATE /1 <= 'foobar'.
      |                      ^~~~~~~~

1 <= 'foobar' => error

evaluate.sps:27.17-27.27: error: DEBUG EVALUATE: Both operands of <= must have
the same type.
   27 | DEBUG EVALUATE /'baz' <= 10.
      |                 ^~~~~~~~~~~

evaluate.sps:27.17-27.21: note: DEBUG EVALUATE: This operand has type 'string'.
   27 | DEBUG EVALUATE /'baz' <= 10.
      |                 ^~~~~

evaluate.sps:27.26-27.27: note: DEBUG EVALUATE: This operand has type 'number'.
   27 | DEBUG EVALUATE /'baz' <= 10.
      |                          ^~

'baz' <= 10 => error

evaluate.sps:28.17-28.30: error: DEBUG EVALUATE: Both operands of <= must have
the same type.
   28 | DEBUG EVALUATE /'quux' <= 5.55.
      |                 ^~~~~~~~~~~~~~

evaluate.sps:28.17-28.22: note: DEBUG EVALUATE: This operand has type 'string'.
   28 | DEBUG EVALUATE /'quux' <= 5.55.
      |                 ^~~~~~

evaluate.sps:28.27-28.30: note: DEBUG EVALUATE: This operand has type 'number'.
   28 | DEBUG EVALUATE /'quux' <= 5.55.
      |                           ^~~~

'quux' <= 5.55 => error

'0123' <= '0123' => true

'0123' <= '0124' => true

'0124' le '0123' => false

'0123  ' <= '0123' => true

'0123' le '0123  ' => true

1 < 2 => true

2.5 < 1.5 => false

3.5 lt 4 => true

4 lt 3.5 => false

evaluate.sps:39.17-39.29: error: DEBUG EVALUATE: Both operands of < must have
the same type.
   39 | DEBUG EVALUATE /1 lt 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:39.17: note: DEBUG EVALUATE: This operand has type 'number'.
   39 | DEBUG EVALUATE /1 lt 'foobar'.
      |                 ^

evaluate.sps:39.22-39.29: note: DEBUG EVALUATE: This operand has type 'string'.
   39 | DEBUG EVALUATE /1 lt 'foobar'.
      |                      ^~~~~~~~

1 lt 'foobar' => error

evaluate.sps:40.17-40.29: error: DEBUG EVALUATE: Both operands of < must have
the same type.
   40 | DEBUG EVALUATE /5 lt 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:40.17: note: DEBUG EVALUATE: This operand has type 'number'.
   40 | DEBUG EVALUATE /5 lt 'foobar'.
      |                 ^

evaluate.sps:40.22-40.29: note: DEBUG EVALUATE: This operand has type 'string'.
   40 | DEBUG EVALUATE /5 lt 'foobar'.
      |                      ^~~~~~~~

5 lt 'foobar' => error

evaluate.sps:41.17-41.26: error: DEBUG EVALUATE: Both operands of < must have
the same type.
   41 | DEBUG EVALUATE /'baz' < 10.
      |                 ^~~~~~~~~~

evaluate.sps:41.17-41.21: note: DEBUG EVALUATE: This operand has type 'string'.
   41 | DEBUG EVALUATE /'baz' < 10.
      |                 ^~~~~

evaluate.sps:41.25-41.26: note: DEBUG EVALUATE: This operand has type 'number'.
   41 | DEBUG EVALUATE /'baz' < 10.
      |                         ^~

'baz' < 10 => error

evaluate.sps:42.17-42.29: error: DEBUG EVALUATE: Both operands of < must have
the same type.
   42 | DEBUG EVALUATE /'quux' < 5.55.
      |                 ^~~~~~~~~~~~~

evaluate.sps:42.17-42.22: note: DEBUG EVALUATE: This operand has type 'string'.
   42 | DEBUG EVALUATE /'quux' < 5.55.
      |                 ^~~~~~

evaluate.sps:42.26-42.29: note: DEBUG EVALUATE: This operand has type 'number'.
   42 | DEBUG EVALUATE /'quux' < 5.55.
      |                          ^~~~

'quux' < 5.55 => error

'0123' lt '0123' => false

'0123' < '0124' => true

'0124' lt '0123' => false

'0123  ' < '0123' => false

'0123' lt '0123  ' => false
])
done
AT_CLEANUP

AT_SETUP([expressions - >= > <>])
AT_KEYWORDS([expression expressions evaluate ge gt ne])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /1 >= 2.
DEBUG EVALUATE /2.5 >= 1.5
DEBUG EVALUATE /1 ge 2.
DEBUG EVALUATE /2 >= 2.
DEBUG EVALUATE /2 ge 2.
DEBUG EVALUATE /2 > = 2.
DEBUG EVALUATE /1 >= 'foobar'.
DEBUG EVALUATE /5 ge 'foobar'.
DEBUG EVALUATE /'baz' ge 10.
DEBUG EVALUATE /'0123' ge '0123'.
DEBUG EVALUATE /'0123' >= '0124'.
DEBUG EVALUATE /'0124' >= '0123'.
DEBUG EVALUATE /'0123  ' ge '0123'.
DEBUG EVALUATE /'0123' >= '0123 '.

DEBUG EVALUATE /1 > 2.
DEBUG EVALUATE /2.5 > 1.5
DEBUG EVALUATE /3.5 gt 4.
DEBUG EVALUATE /4 gt 3.5
DEBUG EVALUATE /1 gt 'foobar'.
DEBUG EVALUATE /'baz' > 10.
DEBUG EVALUATE /'0123' > '0123'.
DEBUG EVALUATE /'0123' > '0124'.
DEBUG EVALUATE /'0124' > '0123'.
DEBUG EVALUATE /'0123   ' > '0123'.
DEBUG EVALUATE /'0123    ' > '0123 '.

DEBUG EVALUATE /1 ne 1.
DEBUG EVALUATE /1 ~= 1.
DEBUG EVALUATE /1 <> 2.
DEBUG EVALUATE /2 ne 3.
DEBUG EVALUATE /1 ~= 'foobar'.
DEBUG EVALUATE /'baz' ne 10.
DEBUG EVALUATE /'quux' ~= 5.55.
DEBUG EVALUATE /'foobar' <> 'foobar'.
DEBUG EVALUATE /'quux' ne 'bar'.
DEBUG EVALUATE /'bar   ' <> 'bar'.
DEBUG EVALUATE /'asdf       ' ~= "asdf   ".
DEBUG EVALUATE /1 < > 1.
DEBUG EVALUATE /1 ~ = 1.
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
1 >= 2 => false

2.5 >= 1.5 => true

1 ge 2 => false

2 >= 2 => true

2 ge 2 => true

evaluate.sps:8.21: error: DEBUG EVALUATE: Syntax error at `='.

2 > = 2 => error

evaluate.sps:9.17-9.29: error: DEBUG EVALUATE: Both operands of >= must have
the same type.
    9 | DEBUG EVALUATE /1 >= 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:9.17: note: DEBUG EVALUATE: This operand has type 'number'.
    9 | DEBUG EVALUATE /1 >= 'foobar'.
      |                 ^

evaluate.sps:9.22-9.29: note: DEBUG EVALUATE: This operand has type 'string'.
    9 | DEBUG EVALUATE /1 >= 'foobar'.
      |                      ^~~~~~~~

1 >= 'foobar' => error

evaluate.sps:10.17-10.29: error: DEBUG EVALUATE: Both operands of >= must have
the same type.
   10 | DEBUG EVALUATE /5 ge 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:10.17: note: DEBUG EVALUATE: This operand has type 'number'.
   10 | DEBUG EVALUATE /5 ge 'foobar'.
      |                 ^

evaluate.sps:10.22-10.29: note: DEBUG EVALUATE: This operand has type 'string'.
   10 | DEBUG EVALUATE /5 ge 'foobar'.
      |                      ^~~~~~~~

5 ge 'foobar' => error

evaluate.sps:11.17-11.27: error: DEBUG EVALUATE: Both operands of >= must have
the same type.
   11 | DEBUG EVALUATE /'baz' ge 10.
      |                 ^~~~~~~~~~~

evaluate.sps:11.17-11.21: note: DEBUG EVALUATE: This operand has type 'string'.
   11 | DEBUG EVALUATE /'baz' ge 10.
      |                 ^~~~~

evaluate.sps:11.26-11.27: note: DEBUG EVALUATE: This operand has type 'number'.
   11 | DEBUG EVALUATE /'baz' ge 10.
      |                          ^~

'baz' ge 10 => error

'0123' ge '0123' => true

'0123' >= '0124' => false

'0124' >= '0123' => true

'0123  ' ge '0123' => true

'0123' >= '0123 ' => true

1 > 2 => false

2.5 > 1.5 => true

3.5 gt 4 => false

4 gt 3.5 => true

evaluate.sps:22.17-22.29: error: DEBUG EVALUATE: Both operands of > must have
the same type.
   22 | DEBUG EVALUATE /1 gt 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:22.17: note: DEBUG EVALUATE: This operand has type 'number'.
   22 | DEBUG EVALUATE /1 gt 'foobar'.
      |                 ^

evaluate.sps:22.22-22.29: note: DEBUG EVALUATE: This operand has type 'string'.
   22 | DEBUG EVALUATE /1 gt 'foobar'.
      |                      ^~~~~~~~

1 gt 'foobar' => error

evaluate.sps:23.17-23.26: error: DEBUG EVALUATE: Both operands of > must have
the same type.
   23 | DEBUG EVALUATE /'baz' > 10.
      |                 ^~~~~~~~~~

evaluate.sps:23.17-23.21: note: DEBUG EVALUATE: This operand has type 'string'.
   23 | DEBUG EVALUATE /'baz' > 10.
      |                 ^~~~~

evaluate.sps:23.25-23.26: note: DEBUG EVALUATE: This operand has type 'number'.
   23 | DEBUG EVALUATE /'baz' > 10.
      |                         ^~

'baz' > 10 => error

'0123' > '0123' => false

'0123' > '0124' => false

'0124' > '0123' => true

'0123   ' > '0123' => false

'0123    ' > '0123 ' => false

1 ne 1 => false

1 ~= 1 => false

1 <> 2 => true

2 ne 3 => true

evaluate.sps:34.17-34.29: error: DEBUG EVALUATE: Both operands of ~= must have
the same type.
   34 | DEBUG EVALUATE /1 ~= 'foobar'.
      |                 ^~~~~~~~~~~~~

evaluate.sps:34.17: note: DEBUG EVALUATE: This operand has type 'number'.
   34 | DEBUG EVALUATE /1 ~= 'foobar'.
      |                 ^

evaluate.sps:34.22-34.29: note: DEBUG EVALUATE: This operand has type 'string'.
   34 | DEBUG EVALUATE /1 ~= 'foobar'.
      |                      ^~~~~~~~

1 ~= 'foobar' => error

evaluate.sps:35.17-35.27: error: DEBUG EVALUATE: Both operands of ~= must have
the same type.
   35 | DEBUG EVALUATE /'baz' ne 10.
      |                 ^~~~~~~~~~~

evaluate.sps:35.17-35.21: note: DEBUG EVALUATE: This operand has type 'string'.
   35 | DEBUG EVALUATE /'baz' ne 10.
      |                 ^~~~~

evaluate.sps:35.26-35.27: note: DEBUG EVALUATE: This operand has type 'number'.
   35 | DEBUG EVALUATE /'baz' ne 10.
      |                          ^~

'baz' ne 10 => error

evaluate.sps:36.17-36.30: error: DEBUG EVALUATE: Both operands of ~= must have
the same type.
   36 | DEBUG EVALUATE /'quux' ~= 5.55.
      |                 ^~~~~~~~~~~~~~

evaluate.sps:36.17-36.22: note: DEBUG EVALUATE: This operand has type 'string'.
   36 | DEBUG EVALUATE /'quux' ~= 5.55.
      |                 ^~~~~~

evaluate.sps:36.27-36.30: note: DEBUG EVALUATE: This operand has type 'number'.
   36 | DEBUG EVALUATE /'quux' ~= 5.55.
      |                           ^~~~

'quux' ~= 5.55 => error

'foobar' <> 'foobar' => false

'quux' ne 'bar' => true

'bar   ' <> 'bar' => false

'asdf       ' ~= "asdf   " => false

evaluate.sps:41.21: error: DEBUG EVALUATE: Syntax error at `>'.

1 < > 1 => error

evaluate.sps:42.19: error: DEBUG EVALUATE: Syntax error at `~': expecting end
of command.

1 ~ = 1 => error
])
done
AT_CLEANUP

AT_SETUP([expressions - EXP LG10 LN SQRT ABS MOD MOD10 RND TRUNC])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /EXP(10).
DEBUG EVALUATE /EXP('x').

DEBUG EVALUATE /LG10(500).
DEBUG EVALUATE /LG10('x').

DEBUG EVALUATE /SQRT(500).
DEBUG EVALUATE /SQRT(-1).

DEBUG EVALUATE /ABS(-10.5).
DEBUG EVALUATE /ABS(55.79).
DEBUG EVALUATE /ABS(0).
DEBUG EVALUATE /ABS(-0).

DEBUG EVALUATE /MOD(55.5, 2).
DEBUG EVALUATE /MOD(-55.5, 2).
DEBUG EVALUATE /MOD(55.5, -2).
DEBUG EVALUATE /MOD(-55.5, -2).
DEBUG EVALUATE /MOD('a', 2).
DEBUG EVALUATE /MOD(2, 'a').
DEBUG EVALUATE /MOD('a', 'b').

DEBUG EVALUATE /MOD10(55.5).
DEBUG EVALUATE /MOD10(-55.5).

DEBUG EVALUATE /RND(5.4).
DEBUG EVALUATE /RND(5.6).
DEBUG EVALUATE /RND(-5.4).
DEBUG EVALUATE /RND(-5.6).
DEBUG EVALUATE /RND(5.56, .1).
DEBUG EVALUATE /RND(-5.56, .1)
DEBUG EVALUATE /RND(.5).
DEBUG EVALUATE /RND(.5 - 2**-53).
DEBUG EVALUATE /RND(.5 - 2**-52).
DEBUG EVALUATE /RND(.5 - 2**-51).
DEBUG EVALUATE /RND(.5 - 2**-45).
DEBUG EVALUATE /RND(.5 - 2**-45, 1, 10).
DEBUG EVALUATE /RND('x').

DEBUG EVALUATE /TRUNC(1.2).
DEBUG EVALUATE /TRUNC(1.9).
DEBUG EVALUATE /TRUNC(-1.2).
DEBUG EVALUATE /TRUNC(-1.9).
DEBUG EVALUATE /TRUNC(5.06, .1).
DEBUG EVALUATE /TRUNC(-5.06, .1).
DEBUG EVALUATE /TRUNC(1).
DEBUG EVALUATE /TRUNC(1 - 2**-53).
DEBUG EVALUATE /TRUNC(1 - 2**-52).
DEBUG EVALUATE /TRUNC(1 - 2**-51).
DEBUG EVALUATE /TRUNC(1 - 2**-45).
DEBUG EVALUATE /TRUNC(1 - 2**-45, 1, 10).
DEBUG EVALUATE /TRUNC('x').
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
EXP(10) => 22026.47

evaluate.sps:4.17-4.24: error: DEBUG EVALUATE: Type mismatch invoking
EXP(number) as EXP(string).
    4 | DEBUG EVALUATE /EXP('x').
      |                 ^~~~~~~~

EXP('x') => error

LG10(500) => 2.70

evaluate.sps:7.17-7.25: error: DEBUG EVALUATE: Type mismatch invoking
LG10(number) as LG10(string).
    7 | DEBUG EVALUATE /LG10('x').
      |                 ^~~~~~~~~

LG10('x') => error

SQRT(500) => 22.36

SQRT(-1) => sysmis

ABS(-10.5) => 10.50

ABS(55.79) => 55.79

ABS(0) => 0.00

ABS(-0) => 0.00

MOD(55.5, 2) => 1.50

MOD(-55.5, 2) => -1.50

MOD(55.5, -2) => 1.50

MOD(-55.5, -2) => -1.50

evaluate.sps:21.17-21.27: error: DEBUG EVALUATE: Type mismatch invoking
MOD(number, number) as MOD(string, number).
   21 | DEBUG EVALUATE /MOD('a', 2).
      |                 ^~~~~~~~~~~

MOD('a', 2) => error

evaluate.sps:22.17-22.27: error: DEBUG EVALUATE: Type mismatch invoking
MOD(number, number) as MOD(number, string).
   22 | DEBUG EVALUATE /MOD(2, 'a').
      |                 ^~~~~~~~~~~

MOD(2, 'a') => error

evaluate.sps:23.17-23.29: error: DEBUG EVALUATE: Type mismatch invoking
MOD(number, number) as MOD(string, string).
   23 | DEBUG EVALUATE /MOD('a', 'b').
      |                 ^~~~~~~~~~~~~

MOD('a', 'b') => error

MOD10(55.5) => 5.50

MOD10(-55.5) => -5.50

RND(5.4) => 5.00

RND(5.6) => 6.00

RND(-5.4) => -5.00

RND(-5.6) => -6.00

RND(5.56, .1) => 5.60

RND(-5.56, .1) => -5.60

RND(.5) => 1.00

RND(.5 - 2**-53) => 1.00

RND(.5 - 2**-52) => 1.00

RND(.5 - 2**-51) => 1.00

RND(.5 - 2**-45) => 0.00

RND(.5 - 2**-45, 1, 10) => 1.00

evaluate.sps:40.17-40.24: error: DEBUG EVALUATE: Function invocation
RND(string) does not match any known function.  Candidates are:
RND(number)
RND(number, number)
RND(number, number, number).
   40 | DEBUG EVALUATE /RND('x').
      |                 ^~~~~~~~

RND('x') => error

TRUNC(1.2) => 1.00

TRUNC(1.9) => 1.00

TRUNC(-1.2) => -1.00

TRUNC(-1.9) => -1.00

TRUNC(5.06, .1) => 5.00

TRUNC(-5.06, .1) => -5.00

TRUNC(1) => 1.00

TRUNC(1 - 2**-53) => 1.00

TRUNC(1 - 2**-52) => 1.00

TRUNC(1 - 2**-51) => 1.00

TRUNC(1 - 2**-45) => 0.00

TRUNC(1 - 2**-45, 1, 10) => 1.00

evaluate.sps:54.17-54.26: error: DEBUG EVALUATE: Function invocation
TRUNC(string) does not match any known function.  Candidates are:
TRUNC(number)
TRUNC(number, number)
TRUNC(number, number, number).
   54 | DEBUG EVALUATE /TRUNC('x').
      |                 ^~~~~~~~~~

TRUNC('x') => error
])
done
AT_CLEANUP

AT_SETUP([expressions - ACOS ARSIN ARTAN COS SIN TAN])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /ACOS(.5) / 3.14159 * 180.
DEBUG EVALUATE /ARCOS(.75) / 3.14159 * 180.
DEBUG EVALUATE /ARCOS(-.5) / 3.14159 * 180.
DEBUG EVALUATE /ACOS(-.75) / 3.14159 * 180.
DEBUG EVALUATE /ACOS(-1) / 3.14159 * 180.
DEBUG EVALUATE /ARCOS(1) / 3.14159 * 180.
DEBUG EVALUATE /ACOS(-1.01) / 3.14159 * 180.
DEBUG EVALUATE /ARCOS(1.01) / 3.14159 * 180.
DEBUG EVALUATE /ACOS('x') / 3.14159 * 180.

DEBUG EVALUATE /ASIN(.5) / 3.14159 * 180.
DEBUG EVALUATE /ARSIN(.25) / 3.14159 * 180.
DEBUG EVALUATE /ARSIN(-.5) / 3.14159 * 180.
DEBUG EVALUATE /ASIN(-.25) / 3.14159 * 180.
DEBUG EVALUATE /ASIN(-1.01) / 3.14159 * 180.
DEBUG EVALUATE /ARSIN(1.01) / 3.14159 * 180.
DEBUG EVALUATE /ASIN('x') / 3.14159 * 180.

DEBUG EVALUATE /ATAN(1) / 3.14159 * 180.
DEBUG EVALUATE /ARTAN(10) / 3.14159 * 180.
DEBUG EVALUATE /ARTAN(-1) / 3.14159 * 180.
DEBUG EVALUATE /ATAN(-10) / 3.14159 * 180.
DEBUG EVALUATE /ATAN('x') / 3.14159 * 180.

DEBUG EVALUATE /COS(60 / 180 * 3.14159).
DEBUG EVALUATE /COS(45 / 180 * 3.14159).
DEBUG EVALUATE /COS(30 / 180 * 3.14159).
DEBUG EVALUATE /COS(15 / 180 * 3.14159).
DEBUG EVALUATE /COS(-60 / 180 * 3.14159).
DEBUG EVALUATE /COS(-45 / 180 * 3.14159).
DEBUG EVALUATE /COS(-30 / 180 * 3.14159).
DEBUG EVALUATE /COS(-15 / 180 * 3.14159).
DEBUG EVALUATE /COS(123 / 180 * 3.14159).
DEBUG EVALUATE /COS(321 / 180 * 3.14159).
DEBUG EVALUATE /COS('x').

DEBUG EVALUATE /SIN(60 / 180 * 3.14159).
DEBUG EVALUATE /SIN(45 / 180 * 3.14159).
DEBUG EVALUATE /SIN(30 / 180 * 3.14159).
DEBUG EVALUATE /SIN(15 / 180 * 3.14159).
DEBUG EVALUATE /SIN(-60 / 180 * 3.14159).
DEBUG EVALUATE /SIN(-45 / 180 * 3.14159).
DEBUG EVALUATE /SIN(-30 / 180 * 3.14159).
DEBUG EVALUATE /SIN(-15 / 180 * 3.14159).
DEBUG EVALUATE /SIN(123 / 180 * 3.14159).
DEBUG EVALUATE /SIN(321 / 180 * 3.14159).
DEBUG EVALUATE /SIN('x').

DEBUG EVALUATE /TAN(60 / 180 * 3.14159).
DEBUG EVALUATE /TAN(45 / 180 * 3.14159).
DEBUG EVALUATE /TAN(30 / 180 * 3.14159).
DEBUG EVALUATE /TAN(15 / 180 * 3.14159).
DEBUG EVALUATE /TAN(-60 / 180 * 3.14159).
DEBUG EVALUATE /TAN(-45 / 180 * 3.14159).
DEBUG EVALUATE /TAN(-30 / 180 * 3.14159).
DEBUG EVALUATE /TAN(-15 / 180 * 3.14159).
DEBUG EVALUATE /TAN(123 / 180 * 3.14159).
DEBUG EVALUATE /TAN(321 / 180 * 3.14159).
DEBUG EVALUATE /TAN('x').
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
ACOS(.5) / 3.14159 * 180 => 60.00

ARCOS(.75) / 3.14159 * 180 => 41.41

ARCOS(-.5) / 3.14159 * 180 => 120.00

ACOS(-.75) / 3.14159 * 180 => 138.59

ACOS(-1) / 3.14159 * 180 => 180.00

ARCOS(1) / 3.14159 * 180 => 0.00

ACOS(-1.01) / 3.14159 * 180 => sysmis

ARCOS(1.01) / 3.14159 * 180 => sysmis

evaluate.sps:11.17-11.25: error: DEBUG EVALUATE: Type mismatch invoking
ACOS(number) as ACOS(string).
   11 | DEBUG EVALUATE /ACOS('x') / 3.14159 * 180.
      |                 ^~~~~~~~~

ACOS('x') / 3.14159 * 180 => error

ASIN(.5) / 3.14159 * 180 => 30.00

ARSIN(.25) / 3.14159 * 180 => 14.48

ARSIN(-.5) / 3.14159 * 180 => -30.00

ASIN(-.25) / 3.14159 * 180 => -14.48

ASIN(-1.01) / 3.14159 * 180 => sysmis

ARSIN(1.01) / 3.14159 * 180 => sysmis

evaluate.sps:19.17-19.25: error: DEBUG EVALUATE: Type mismatch invoking
ASIN(number) as ASIN(string).
   19 | DEBUG EVALUATE /ASIN('x') / 3.14159 * 180.
      |                 ^~~~~~~~~

ASIN('x') / 3.14159 * 180 => error

ATAN(1) / 3.14159 * 180 => 45.00

ARTAN(10) / 3.14159 * 180 => 84.29

ARTAN(-1) / 3.14159 * 180 => -45.00

ATAN(-10) / 3.14159 * 180 => -84.29

evaluate.sps:25.17-25.25: error: DEBUG EVALUATE: Type mismatch invoking
ATAN(number) as ATAN(string).
   25 | DEBUG EVALUATE /ATAN('x') / 3.14159 * 180.
      |                 ^~~~~~~~~

ATAN('x') / 3.14159 * 180 => error

COS(60 / 180 * 3.14159) => 0.50

COS(45 / 180 * 3.14159) => 0.71

COS(30 / 180 * 3.14159) => 0.87

COS(15 / 180 * 3.14159) => 0.97

COS(-60 / 180 * 3.14159) => 0.50

COS(-45 / 180 * 3.14159) => 0.71

COS(-30 / 180 * 3.14159) => 0.87

COS(-15 / 180 * 3.14159) => 0.97

COS(123 / 180 * 3.14159) => -0.54

COS(321 / 180 * 3.14159) => 0.78

evaluate.sps:37.17-37.24: error: DEBUG EVALUATE: Type mismatch invoking
COS(number) as COS(string).
   37 | DEBUG EVALUATE /COS('x').
      |                 ^~~~~~~~

COS('x') => error

SIN(60 / 180 * 3.14159) => 0.87

SIN(45 / 180 * 3.14159) => 0.71

SIN(30 / 180 * 3.14159) => 0.50

SIN(15 / 180 * 3.14159) => 0.26

SIN(-60 / 180 * 3.14159) => -0.87

SIN(-45 / 180 * 3.14159) => -0.71

SIN(-30 / 180 * 3.14159) => -0.50

SIN(-15 / 180 * 3.14159) => -0.26

SIN(123 / 180 * 3.14159) => 0.84

SIN(321 / 180 * 3.14159) => -0.63

evaluate.sps:49.17-49.24: error: DEBUG EVALUATE: Type mismatch invoking
SIN(number) as SIN(string).
   49 | DEBUG EVALUATE /SIN('x').
      |                 ^~~~~~~~

SIN('x') => error

TAN(60 / 180 * 3.14159) => 1.73

TAN(45 / 180 * 3.14159) => 1.00

TAN(30 / 180 * 3.14159) => 0.58

TAN(15 / 180 * 3.14159) => 0.27

TAN(-60 / 180 * 3.14159) => -1.73

TAN(-45 / 180 * 3.14159) => -1.00

TAN(-30 / 180 * 3.14159) => -0.58

TAN(-15 / 180 * 3.14159) => -0.27

TAN(123 / 180 * 3.14159) => -1.54

TAN(321 / 180 * 3.14159) => -0.81

evaluate.sps:61.17-61.24: error: DEBUG EVALUATE: Type mismatch invoking
TAN(number) as TAN(string).
   61 | DEBUG EVALUATE /TAN('x').
      |                 ^~~~~~~~

TAN('x') => error
])
done
AT_CLEANUP

AT_SETUP([expressions - MISSING NMISS NVALID SYSMIS ANY RANGE MAX MIN])
AT_KEYWORDS([expression expressions evaluate])
AT_DATA([evaluate-base.sps], [
DEBUG EVALUATE SET opt.
DEBUG EVALUATE /MISSING(10).
DEBUG EVALUATE /MISSING($SYSMIS).
DEBUG EVALUATE /MISSING(ASIN(1.01)).
DEBUG EVALUATE /MISSING(ASIN(.5)).
DEBUG EVALUATE /MISSING('    ').

DEBUG EVALUATE (x=5)/x.
DEBUG EVALUATE (x=5 MISSING)/x.
DEBUG EVALUATE (x=SYSMIS)/x.

DEBUG EVALUATE (x=5) VECTOR/v(1).
DEBUG EVALUATE (x=5 MISSING) VECTOR/v(1).
DEBUG EVALUATE (x=SYSMIS) VECTOR/v(1).

DEBUG EVALUATE (x=5)/VALUE(x).
DEBUG EVALUATE (x=5 MISSING)/VALUE(x).
DEBUG EVALUATE (x=SYSMIS)/VALUE(x).

DEBUG EVALUATE (x=5) VECTOR/VALUE(v(1)).
DEBUG EVALUATE (x=5 MISSING) VECTOR/VALUE(v(1)).
DEBUG EVALUATE (x=SYSMIS) VECTOR/VALUE(v(1)).

DEBUG EVALUATE (x=5)/MISSING(x).
DEBUG EVALUATE (x=5 MISSING)/MISSING(x).
DEBUG EVALUATE (x=SYSMIS)/MISSING(x).

DEBUG EVALUATE (x=5)/SYSMIS(x).
DEBUG EVALUATE (x=5 MISSING)/SYSMIS(x).
DEBUG EVALUATE (x=SYSMIS)/SYSMIS(x).
])

for opt in OPT NOOPT; do
    AS_BOX([$opt])
    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
    AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
])
done
AT_CLEANUP

# FIXME: a variable name as the argument to SYSMIS is a special case
# that we don't yet test.  We also can't test VALUE this way.
CHECK_EXPR_EVAL([missing nmiss nvalid sysmis any range max min],
  [[missing(10)], [false]],
  [[missing($sysmis)], [true]],
  [[missing(asin(1.01))], [true]],
  [[missing(asin(.5))], [false]],
  [[missing('    ')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking MISSING(number) as missing(string).]],

  [[nmiss($sysmis)], [1.00]],
  [[nmiss(0)], [0.00]],
  [[nmiss($sysmis, $sysmis, $sysmis)], [3.00]],
  [[nmiss(1, 2, 3, 4)], [0.00]],
  [[nmiss(1, $sysmis, $sysmis, 2, 2, $sysmis, $sysmis, 3, 4)], [4.00]],

  [[nvalid($sysmis)], [0.00]],
  [[nvalid(0)], [1.00]],
  [[nvalid($sysmis, $sysmis, $sysmis)], [0.00]],
  [[nvalid(1, 2, 3, 4)], [4.00]],
  [[nvalid(1, $sysmis, $sysmis, 2, 2, $sysmis, $sysmis, 3, 4)], [5.00]],

  [[sysmis(10)], [false]],
  [[sysmis($sysmis)], [true]],
  [[sysmis(asin(1.01))], [true]],
  [[sysmis(asin(.5))], [false]],
  [[sysmis('    ')], [error],
   [error: DEBUG EVALUATE: Function invocation sysmis(string) does not match any known function.  Candidates are:
SYSMIS(num_variable)
SYSMIS(number).]],

  [[any($sysmis, 1, $sysmis, 3)], [sysmis]],
  [[any(1, 1, 2, 3)], [true]],
  [[any(1, $true, 2, 3)], [true]],
  [[any(1, $false, 2, 3)], [false]],
  [[any(2, 1, 2, 3)], [true]],
  [[any(3, 1, 2, 3)], [true]],
  [[any(5, 1, 2, 3)], [false]],
  [[any(1, 1, 1, 1)], [true]],
  [[any($sysmis, 1, 1, 1)], [sysmis]],
  [[any(1, $sysmis, $sysmis, $sysmis)], [sysmis]],
  [[any($sysmis, $sysmis, $sysmis, $sysmis)], [sysmis]],
  [[any(1)], [error],
   [error: DEBUG EVALUATE: Function invocation any(number) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any('1', 2, 3, 4)], [error],
   [error: DEBUG EVALUATE: Function invocation any(string, number, number, number) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any(1, '2', 3, 4)], [error],
   [error: DEBUG EVALUATE: Function invocation any(number, string, number, number) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any(1, 2, '3', 4)], [error],
   [error: DEBUG EVALUATE: Function invocation any(number, number, string, number) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any(1, 2, 3, '4')], [error],
   [error: DEBUG EVALUATE: Function invocation any(number, number, number, string) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],

  [[any('', 'a', '', 'c')], [true]],
  [[any('a', 'a', 'b', 'c')], [true]],
  [[any('b', 'a', 'b', 'c')], [true]],
  [[any('c', 'a', 'b', 'c')], [true]],
  [[any('e', 'a', 'b', 'c')], [false]],
  [[any('a', 'a', 'a', 'a')], [true]],
  [[any('', 'a', 'a', 'a')], [false]],
  [[any('a', '', '', '')], [false]],
  [[any('a')], [error],
   [error: DEBUG EVALUATE: Function invocation any(string) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any('a', 'a  ', 'b', 'c')], [true]],
  [[any('b   ', 'a', 'b', 'c')], [true]],
  [[any('c   ', 'a', 'b', 'c     ')], [true]],
  [[any(a10, 'b', 'c', 'd')], [error],
   [error: DEBUG EVALUATE: Function invocation any(format, string, string, string) does not match any known function.  Candidates are:
ANY(number, number[, number]...)
ANY(string, string[, string]...).]],
  [[any('a', b, 'c', 'd')], [error],
   [error: DEBUG EVALUATE: Unknown identifier b.]],
  [[any('a', 'b', c, 'd')], [error],
   [error: DEBUG EVALUATE: Unknown identifier c.]],
  [[any('a', 'b', 'c', d)], [error],
   [error: DEBUG EVALUATE: Unknown identifier d.]],

  [[range(5, 1, 10)], [true]],
  [[range(1, 1, 10)], [true]],
  [[range(10, 1, 10)], [true]],
  [[range(-1, 1, 10)], [false]],
  [[range(12, 1, 10)], [false]],
  [[range($sysmis, 1, 10)], [sysmis]],
  [[range(5, 1, $sysmis)], [sysmis]],
  [[range(5, $sysmis, 10)], [sysmis]],
  [[range($sysmis, $sysmis, 10)], [sysmis ]],
  [[range($sysmis, 1, $sysmis)], [sysmis]],
  [[range($sysmis, $sysmis, $sysmis)], [sysmis]],
  [[range(0, 1, 8, 10, 18)], [false]],
  [[range(1, 1, 8, 10, 18)], [true]],
  [[range(6, 1, 8, 10, 18)], [true]],
  [[range(8, 1, 8, 10, 18)], [true]],
  [[range(9, 1, 8, 10, 18)], [false]],
  [[range(10, 1, 8, 10, 18)], [true]],
  [[range(13, 1, 8, 10, 18)], [true]],
  [[range(16, 1, 8, 10, 18)], [true]],
  [[range(18, 1, 8, 10, 18)], [true]],
  [[range(20, 1, 8, 10, 18)], [false]],
  [[range(1)], [error],
   [error: DEBUG EVALUATE: Function invocation range(number) does not match any known function.  Candidates are:
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 odd number of arguments.]],
  [[range(1, 2, 3, 4)], [error],
   [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 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(string, string, string[, string, string]...).]],
  [[range(1, '2', 3)], [error],
   [error: DEBUG EVALUATE: Function invocation range(number, string, number) does not match any known function.  Candidates are:
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],
  [[range(1, 2, '3')], [error],
   [error: DEBUG EVALUATE: Function invocation range(number, number, string) does not match any known function.  Candidates are:
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],

  [[range('123', '111', '888')], [true]],
  [[range('111', '111', '888')], [true]],
  [[range('888', '111', '888')], [true]],
  [[range('110', '111', '888')], [false]],
  [[range('889', '111', '888')], [false]],
  [[range('000', '111', '888')], [false]],
  [[range('999', '111', '888')], [false]],
  [[range('123   ', '111', '888')], [true]],
  [[range('123', '111   ', '888')], [true]],
  [[range('123', '111', '888   ')], [true]],
  [[range('123', '111    ', '888   ')], [true]],
  [[range('00', '01', '08', '10', '18')], [false]],
  [[range('01', '01', '08', '10', '18')], [true]],
  [[range('06', '01', '08', '10', '18')], [true]],
  [[range('08', '01', '08', '10', '18')], [true]],
  [[range('09', '01', '08', '10', '18')], [false]],
  [[range('10', '01', '08', '10', '18')], [true]],
  [[range('15', '01', '08', '10', '18')], [true]],
  [[range('18', '01', '08', '10', '18')], [true]],
  [[range('19', '01', '08', '10', '18')], [false]],
  [[range('1')], [error],
   [error: DEBUG EVALUATE: Function invocation range(string) does not match any known function.  Candidates are:
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 odd number of arguments.]],
  [[range('1', '2', '3', '4')], [error],
   [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 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]...)
RANGE(string, string, string[, string, string]...).]],
  [[range('1', 2, '3')], [error],
   [error: DEBUG EVALUATE: Function invocation range(string, number, string) does not match any known function.  Candidates are:
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],
  [[range('1', '2', 3)], [error],
   [error: DEBUG EVALUATE: Function invocation range(string, string, number) does not match any known function.  Candidates are:
RANGE(number, number, number[, number, number]...)
RANGE(string, string, string[, string, string]...).]],

  [[max(1, 2, 3, 4, 5)], [5.00]],
  [[max(1, $sysmis, 2, 3, $sysmis, 4, 5)], [5.00]],
  [[max(1, 2)], [2.00]],
  [[max()], [error],
   [error: DEBUG EVALUATE: Function invocation max() does not match any known function.  Candidates are:
MAX(number[, number]...)
MAX(string[, string]...).]],
  [[max(1)], [1.00]],
  [[max(1, $sysmis)], [1.00]],
  [[max(1, 2, 3, $sysmis)], [3.00]],
  [[max.4(1, 2, 3, $sysmis)], [sysmis]],
  [[max.4(1, 2, 3)], [error],
   [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"]],
  [[max("1")], ["1"]],

  [[min(1, 2, 3, 4, 5)], [1.00]],
  [[min(1, $sysmis, 2, 3, $sysmis, 4, 5)], [1.00]],
  [[min(1, 2)], [1.00]],
  [[min()], [error],
   [error: DEBUG EVALUATE: Function invocation min() does not match any known function.  Candidates are:
MIN(number[, number]...)
MIN(string[, string]...).]],
  [[min(1)], [1.00]],
  [[min(1, $sysmis)], [1.00]],
  [[min(1, 2, 3, $sysmis)], [1.00]],
  [[min.4(1, 2, 3, $sysmis)], [sysmis]],
  [[min.4(1, 2, 3)], [error],
   [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"]],
  [[min("1")], ["1"]])

CHECK_EXPR_EVAL([cfvar mean median sd sum variance],
  [[cfvar(1, 2, 3, 4, 5)], [0.53]],
  [[cfvar(1, $sysmis, 2, 3, $sysmis, 4, 5)], [0.53]],
  [[cfvar(1, 2)], [0.47]],
  [[cfvar(1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(number).]],
  [[cfvar(1, $sysmis)], [sysmis]],
  [[cfvar(1, 2, 3, $sysmis)], [0.50]],
  [[cfvar.4(1, 2, 3, $sysmis)], [sysmis]],
  [[cfvar.4(1, 2, 3)], [error],
   [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],
   [error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(string, number, number, number).]],

  [[mean(1, 2, 3, 4, 5)], [3.00]],
  [[mean(1, $sysmis, 2, 3, $sysmis, 4, 5)], [3.00]],
  [[mean(1, 2)], [1.50]],
  [[mean()], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking MEAN(number[, number]...) as mean().]],
  [[mean(1)], [1.00]],
  [[mean(1, $sysmis)], [1.00]],
  [[mean(1, 2, 3, $sysmis)], [2.00]],
  [[mean.4(1, 2, 3, $sysmis)], [sysmis]],
  [[mean.4(1, 2, 3)], [error],
   [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]],
  [[median(2, 3, 4, 1, 5)], [3.00]],
  [[median(2, 1, 4, 5, 3)], [3.00]],
  [[median(1, 2, 3, 4)], [2.50]],
  [[median(2, 3, 1, 4)], [2.50]],
  [[median(2, 3, 4, 1)], [2.50]],
  [[median(2, 1, 4, 3)], [2.50]],
  [[median(1, $sysmis, 3, 4, 5)], [3.50]],
  [[median(2, 3, 4, 5, $sysmis, 1)], [3.00]],
  [[median($sysmis, $sysmis, $sysmis, 2, 3, 4, 1, 5)], [3.00]],
  [[median(1, 2, 3)], [2.00]],
  [[median(1)], [1.00]],
  [[median(1, 2)], [1.50]],
  [[median(1, 2, $sysmis)], [1.50]],
  [[median(1, $sysmis, $sysmis)], [1.00]],
  [[median($sysmis, $sysmis, $sysmis)], [sysmis]],
  [[median.3(1, 2, $sysmis)], [sysmis]],
  [[median.2(1, $sysmis)], [sysmis]],

  [[sd(1, 2, 3, 4, 5)], [1.58]],
  [[sd(1, $sysmis, 2, 3, $sysmis, 4, 5)], [1.58]],
  [[sd(1, 2)], [0.71]],
  [[sd(1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(number).]],
  [[sd(1, $sysmis)], [sysmis]],
  [[sd(1, 2, 3, $sysmis)], [1.00]],
  [[sd.4(1, 2, 3, $sysmis)], [sysmis]],
  [[sd.4(1, 2, 3)], [error],
   [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],
   [error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(string, number, number, number).]],

  [[sum(1, 2, 3, 4, 5)], [15.00]],
  [[sum(1, $sysmis, 2, 3, $sysmis, 4, 5)], [15.00]],
  [[sum(1, 2)], [3.00]],
  [[sum()], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking SUM(number[, number]...) as sum().]],
  [[sum(1)], [1.00]],
  [[sum(1, $sysmis)], [1.00]],
  [[sum(1, 2, 3, $sysmis)], [6.00]],
  [[sum.4(1, 2, 3, $sysmis)], [sysmis]],
  [[sum.4(1, 2, 3)], [error],
   [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)], [0.50]],
  [[variance(1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(number).]],
  [[variance(1, $sysmis)], [sysmis]],
  [[variance(1, 2, 3, $sysmis)], [1.00]],
  [[variance.4(1, 2, 3, $sysmis)], [sysmis]],
  [[variance.4(1, 2, 3)], [error],
   [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],
   [error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(string, number, number, number).]])

CHECK_EXPR_EVAL([concat index rindex length lower],
  [[concat('')], [""]],
  [[concat('a', 'b')], ["ab"]],
  [[concat('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h')], ["abcdefgh"]],
  [[concat('abcdefgh', 'ijklmnopq')], ["abcdefghijklmnopq"]],
  [[concat('a', 1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CONCAT(string[, string]...) as concat(string, number).]],
  [[concat(1, 2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CONCAT(string[, string]...) as concat(number, number).]],

  [[index('abcbcde', 'bc')], [2.00]],
  [[index('abcbcde', 'bcd')], [4.00]],
  [[index('abcbcde', 'bcbc')], [2.00]],
  [[index('abcdefgh', 'abc')], [1.00]],
  [[index('abcdefgh', 'bcd')], [2.00]],
  [[index('abcdefgh', 'cde')], [3.00]],
  [[index('abcdefgh', 'def')], [4.00]],
  [[index('abcdefgh', 'efg')], [5.00]],
  [[index('abcdefgh', 'fgh')], [6.00]],
  [[index('abcdefgh', 'fghi')], [0.00]],
  [[index('abcdefgh', 'x')], [0.00]],
  [[index('abcdefgh', 'abch')], [0.00]],
  [[index('banana', 'na')], [3.00]],
  [[index('banana', 'ana')], [2.00]],
  [[index('', 'x')], [0.00]],
  [[index('', '')], [sysmis]],
  [[index('abcdefgh', '')], [sysmis]],
  [[index('abcdefgh', 'alkjsfdjlskalkjfa')], [0.00]],

  [[index('abcbcde', 'bc', 1)], [2.00]],
  [[index('abcbcde', 'dc', 1)], [3.00]],
  [[index('abcbcde', 'abc', 1)], [1.00]],
  [[index('abcbcde', 'bc', 2)], [2.00]],
  [[index('abcbcde', 'dc', 2)], [0.00]],
  [[index('abcbcde', 'abc', 1)], [1.00]],
  [[index('abcbcde', 'bccb', 2)], [2.00]],
  [[index('abcbcde', 'bcbc', 2)], [2.00]],
  [[index('abcbcde', 'bcbc', $sysmis)], [sysmis]],

  [[rindex('abcbcde', 'bc')], [4.00]],
  [[rindex('abcbcde', 'bcd')], [4.00]],
  [[rindex('abcbcde', 'bcbc')], [2.00]],
  [[rindex('abcdefgh', 'abc')], [1.00]],
  [[rindex('abcdefgh', 'bcd')], [2.00]],
  [[rindex('abcdefgh', 'cde')], [3.00]],
  [[rindex('abcdefgh', 'def')], [4.00]],
  [[rindex('abcdefgh', 'efg')], [5.00]],
  [[rindex('abcdefgh', 'fgh')], [6.00]],
  [[rindex('abcdefgh', 'fghi')], [0.00]],
  [[rindex('abcdefgh', 'x')], [0.00]],
  [[rindex('abcdefgh', 'abch')], [0.00]],
  [[rindex('banana', 'na')], [5.00]],
  [[rindex('banana', 'ana')], [4.00]],
  [[rindex('', 'x')], [0.00]],
  [[rindex('', '')], [sysmis]],
  [[rindex('abcdefgh', '')], [sysmis]],
  [[rindex('abcdefgh', 'alkjsfdjlskalkjfa')], [0.00]],

  [[rindex('abcbcde', 'bc', 1)], [5.00]],
  [[rindex('abcbcde', 'dc', 1)], [6.00]],
  [[rindex('abcbcde', 'abc', 1)], [5.00]],
  [[rindex('abcbcde', 'bc', 2)], [4.00]],
  [[rindex('abcbcde', 'dc', 2)], [0.00]],
  [[rindex('abcbcde', 'abc', 1)], [5.00]],
  [[rindex('abcbcde', 'bccb', 2)], [4.00]],
  [[rindex('abcbcde', 'bcbc', 2)], [4.00]],
  [[rindex('abcbcde', 'bcbc', 0)], [sysmis]],
  [[rindex('abcbcde', 'bcbc', $sysmis)], [sysmis]],
  [[rindex('abcbcde', 'bcbcg', 2)], [sysmis]],
  [[rindex('abcbcde', 'bcbcg', $sysmis)], [sysmis]],
  [[rindex('abcbcde', 'bcbcg', 'x')], [error],
   [error: DEBUG EVALUATE: Function invocation rindex(string, string, string) does not match any known function.  Candidates are:
RINDEX(string, string)
RINDEX(string, string, number).]],
  [[rindex(1, 'bcdfkjl', 2)], [error],
   [error: DEBUG EVALUATE: Function invocation rindex(number, string, number) does not match any known function.  Candidates are:
RINDEX(string, string)
RINDEX(string, string, number).]],
  [[rindex('aksj', 2, 2)], [error],
   [error: DEBUG EVALUATE: Function invocation rindex(string, number, number) does not match any known function.  Candidates are:
RINDEX(string, string)
RINDEX(string, string, number).]],
  [[rindex(1, 2, 3)], [error],
   [error: DEBUG EVALUATE: Function invocation rindex(number, number, number) does not match any known function.  Candidates are:
RINDEX(string, string)
RINDEX(string, string, number).]],
  [[rindex(1, 2, '3')], [error],
   [error: DEBUG EVALUATE: Function invocation rindex(number, number, string) does not match any known function.  Candidates are:
RINDEX(string, string)
RINDEX(string, string, number).]],

  [[length('')], [0.00]],
  [[length('a')], [1.00]],
  [[length('xy')], [2.00]],
  [[length('adsf    ')], [8.00]],
  [[length('abcdefghijkl')], [12.00]],
  [[length(0)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking LENGTH(string) as length(number).]],
  [[length($sysmis)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking LENGTH(string) as length(number).]],

  [[lower('ABCDEFGHIJKLMNOPQRSTUVWXYZ!@%&*089')], ["abcdefghijklmnopqrstuvwxyz!@%&*089"]],
  [[lower('')], [""]],
  [[lower(1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking LOWER(string) as lower(number).]])

CHECK_EXPR_EVAL([replace],
  [[replace('banana', 'an', 'AN')], ["bANANa"]],
  [[replace('banana', 'an', 'a')], ["baaa"]],
  [[replace('banana', 'an', '')], ["ba"]],
  [[replace('banana', 'na', '')], ["ba"]],
  [[replace('banana', 'ba', 'BA')], ["BAnana"]],
  [[replace('banana', 'na', 'xyzzy')], ["baxyzzyxyzzy"]],
  [[replace('banana', 'an', 'xyzzy', 1)], ["bxyzzyana"]],
  [[replace('banana', 'an', 'xyzzy', 1.5)], ["bxyzzyana"]],
  [[replace('banana', 'bananana', 'xyzzy')], ["banana"]],
  [[replace('banana', '', 'xyzzy')], ["banana"]],
  [[replace('banana', 'ba', '', 0)], ["banana"]],
  [[replace('banana', 'ba', '', -1)], ["banana"]],
  [[replace('banana', 'ba', '', $sysmis)], ["banana"]])

CHECK_EXPR_EVAL([lpad number ltrim lpad rtrim rpad string strunc substr upcase],
  [[lpad('abc', -1)], [""]],
  [[lpad('abc', 0)], ["abc"]],
  [[lpad('abc', 2)], ["abc"]],
  [[lpad('abc', 3)], ["abc"]],
  [[lpad('abc', 10)], ["       abc"]],
  [[lpad('abc', 32768)], [""]],
  [[lpad('abc', $sysmis)], [""]],
  [[lpad('abc', -1, '*')], [""]],
  [[lpad('abc', 0, '*')], ["abc"]],
  [[lpad('abc', 2, '*')], ["abc"]],
  [[lpad('abc', 3, '*')], ["abc"]],
  [[lpad('abc', 10, '*')], ["*******abc"]],
  [[lpad('abc', 32768, '*')], [""]],
  [[lpad('abc', $sysmis, '*')], [""]],
  [[lpad('abc', $sysmis, '')], [""]],
  [[lpad('abc', $sysmis, 'xy')], [""]],
  [[lpad(0, 10)], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(number, number) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],
  [[lpad('abc', 'def')], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(string, string) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],
  [[lpad(0, 10, ' ')], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(number, number, string) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],
  [[lpad('abc', 'def', ' ')], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(string, string, string) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],
  [[lpad('x', 5, 0)], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(string, number, number) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],
  [[lpad('x', 5, 2)], [error],
   [error: DEBUG EVALUATE: Function invocation lpad(string, number, number) does not match any known function.  Candidates are:
LPAD(string, number)
LPAD(string, number, string).]],

  [[number("123", f3.0)], [123.00]],
  [[number(" 123", f3.0)], [12.00]],
  [[number("123", f3.1)], [12.30]],
  [[number("   ", f3.1)], [sysmis]],
  [[number("123", a8)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking NUMBER(string, num_input_format) as number(string, format).]],
dnl CCA is not an input format:
  [[number("123", cca1.2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking NUMBER(string, num_input_format) as number(string, format).]],

  [[ltrim('   abc')], ["abc"]],
  [[rtrim('   abc   ')], ["   abc"]],
  [[ltrim('abc')], ["abc"]],
  [[ltrim('	abc')], ["	abc"]],
  [[ltrim('    ')], [""]],
  [[ltrim('')], [""]],
  [[ltrim(8)], [error],
   [error: DEBUG EVALUATE: Function invocation ltrim(number) does not match any known function.  Candidates are:
LTRIM(string)
LTRIM(string, string).]],
  [[ltrim('***abc', '*')], ["abc"]],
  [[ltrim('abc', '*')], ["abc"]],
  [[ltrim('*abc', '*')], ["abc"]],
  [[ltrim('', '*')], [""]],
  [[ltrim(8, '*')], [error],
   [error: DEBUG EVALUATE: Function invocation ltrim(number, string) does not match any known function.  Candidates are:
LTRIM(string)
LTRIM(string, string).]],
  [[ltrim(' x', 8)], [error],
   [error: DEBUG EVALUATE: Function invocation ltrim(string, number) does not match any known function.  Candidates are:
LTRIM(string)
LTRIM(string, string).]],
  [[ltrim(8, 9)], [error],
   [error: DEBUG EVALUATE: Function invocation ltrim(number, number) does not match any known function.  Candidates are:
LTRIM(string)
LTRIM(string, string).]],

  [[rpad('abc', -1)], [""]],
  [[rpad('abc', 0)], ["abc"]],
  [[rpad('abc', 2)], ["abc"]],
  [[rpad('abc', 3)], ["abc"]],
  [[rpad('abc', 10)], ["abc       "]],
  [[rpad('abc', 32768)], [""]],
  [[rpad('abc', $sysmis)], [""]],
  [[rpad('abc', -1, '*')], [""]],
  [[rpad('abc', 0, '*')], ["abc"]],
  [[rpad('abc', 2, '*')], ["abc"]],
  [[rpad('abc', 3, '*')], ["abc"]],
  [[rpad('abc', 10, '*')], ["abc*******"]],
  [[rpad('abc', 32768, '*')], [""]],
  [[rpad('abc', $sysmis, '*')], [""]],
  [[rpad('abc', $sysmis, '')], [""]],
  [[rpad('abc', $sysmis, 'xy')], [""]],
  [[rpad(0, 10)], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(number, number) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],
  [[rpad('abc', 'def')], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(string, string) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],
  [[rpad(0, 10, ' ')], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(number, number, string) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],
  [[rpad('abc', 'def', ' ')], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(string, string, string) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],
  [[rpad('x', 5, 0)], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(string, number, number) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],
  [[rpad('x', 5, 2)], [error],
   [error: DEBUG EVALUATE: Function invocation rpad(string, number, number) does not match any known function.  Candidates are:
RPAD(string, number)
RPAD(string, number, string).]],

  [[rtrim('abc   ')], ["abc"]],
  [[rtrim('   abc   ')], ["   abc"]],
  [[rtrim('abc')], ["abc"]],
  [[rtrim('abc	')], ["abc	"]],
  [[rtrim('    ')], [""]],
  [[rtrim('')], [""]],
  [[rtrim(8)], [error],
   [error: DEBUG EVALUATE: Function invocation rtrim(number) does not match any known function.  Candidates are:
RTRIM(string)
RTRIM(string, string).]],
  [[rtrim('abc***', '*')], ["abc"]],
  [[rtrim('abc', '*')], ["abc"]],
  [[rtrim('abc*', '*')], ["abc"]],
  [[rtrim('', '*')], [""]],
  [[rtrim(8, '*')], [error],
   [error: DEBUG EVALUATE: Function invocation rtrim(number, string) does not match any known function.  Candidates are:
RTRIM(string)
RTRIM(string, string).]],
  [[rtrim(' x', 8)], [error],
   [error: DEBUG EVALUATE: Function invocation rtrim(string, number) does not match any known function.  Candidates are:
RTRIM(string)
RTRIM(string, string).]],
  [[rtrim(8, 9)], [error],
   [error: DEBUG EVALUATE: Function invocation rtrim(number, number) does not match any known function.  Candidates are:
RTRIM(string)
RTRIM(string, string).]],

  [[string(123.56, f5.1)], ["123.6"]],
  [[string($sysmis, f5.1)], ["   . "]],
  [[string("abc", A5)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking STRING(number, num_output_format) as string(string, format).]],
dnl E has a minimum width of 6 on output:
  [[string(123, e1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking STRING(number, num_output_format) as string(number, format).]],
  [[string(123, e6.0)], ["1E+002"]],

  [[strunc('a c   ', 9)], ["a c"]],
  [[strunc('a c   ', 7)], ["a c"]],
  [[strunc('a c   ', 6)], ["a c"]],
  [[strunc('a c   ', 5)], ["a c"]],
  [[strunc('a c   ', 4)], ["a c"]],
  [[strunc('a c   ', 3)], ["a c"]],
  [[strunc('a c   ', 2)], ["a"]],
  [[strunc('a c   ', 1)], ["a"]],
  [[strunc('a c   ', 0)], [""]],
  [[strunc('a c   ', -1)], [""]],
  [[strunc('a c   ', $sysmis)], [""]],
  [[strunc('  abc  ', 9)], ["  abc"]],
  [[strunc('  abc  ', 8)], ["  abc"]],
  [[strunc('  abc  ', 7)], ["  abc"]],
  [[strunc('  abc  ', 6)], ["  abc"]],
  [[strunc('  abc  ', 5)], ["  abc"]],
  [[strunc('  abc  ', 4)], ["  ab"]],
  [[strunc('  abc  ', 3)], ["  a"]],
  [[strunc('  abc  ', 2)], [""]],
  [[strunc('  abc  ', 1)], [""]],
  [[strunc('  abc  ', -1)], [""]],
  [[strunc('  abc  ', $sysmis)], [""]],

  [[substr('abcdefgh', -5)], [""]],
  [[substr('abcdefgh', 0)], [""]],
  [[substr('abcdefgh', 1)], ["abcdefgh"]],
  [[substr('abcdefgh', 3)], ["cdefgh"]],
  [[substr('abcdefgh', 5)], ["efgh"]],
  [[substr('abcdefgh', 6)], ["fgh"]],
  [[substr('abcdefgh', 7)], ["gh"]],
  [[substr('abcdefgh', 8)], ["h"]],
  [[substr('abcdefgh', 9)], [""]],
  [[substr('abcdefgh', 10)], [""]],
  [[substr('abcdefgh', 20)], [""]],
  [[substr('abcdefgh', $sysmis)], [""]],
  [[substr(0, 10)], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, number) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr('abcd', 'abc')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(string, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr(0, 'abc')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],

  [[substr('abcdefgh', 0, 0)], [""]],
  [[substr('abcdefgh', 3, 0)], [""]],
  [[substr('abcdefgh', 5, 0)], [""]],
  [[substr('abcdefgh', 9, 0)], [""]],
  [[substr('abcdefgh', 0, 1)], [""]],
  [[substr('abcdefgh', 0, 5)], [""]],
  [[substr('abcdefgh', 1, 8)], ["abcdefgh"]],
  [[substr('abcdefgh', 1, 10)], ["abcdefgh"]],
  [[substr('abcdefgh', 1, 20)], ["abcdefgh"]],
  [[substr('abcdefgh', 3, 4)], ["cdef"]],
  [[substr('abcdefgh', 5, 2)], ["ef"]],
  [[substr('abcdefgh', 6, 1)], ["f"]],
  [[substr('abcdefgh', 7, 10)], ["gh"]],
  [[substr('abcdefgh', 8, 1)], ["h"]],
  [[substr('abcdefgh', 8, 2)], ["h"]],
  [[substr('abcdefgh', 9, 11)], [""]],
  [[substr('abcdefgh', 10, 52)], [""]],
  [[substr('abcdefgh', 20, 1)], [""]],
  [[substr('abcdefgh', $sysmis, 2)], [""]],
  [[substr('abcdefgh', 9, $sysmis)], [""]],
  [[substr('abcdefgh', $sysmis, $sysmis)], [""]],
  [[substr('abc', 1, 'x')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(string, number, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr(0, 10, 1)], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, number, number) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr(0, 10, 'x')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, number, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr('abcd', 'abc', 0)], [error],
   [error: DEBUG EVALUATE: Function invocation substr(string, string, number) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr('abcd', 'abc', 'j')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(string, string, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr(0, 'abc', 4)], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, string, number) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],
  [[substr(0, 'abc', 'k')], [error],
   [error: DEBUG EVALUATE: Function invocation substr(number, string, string) does not match any known function.  Candidates are:
SUBSTR(string, number)
SUBSTR(string, number, number).]],

  [[upcase('abcdefghijklmnopqrstuvwxyz!@%&*089')], ["ABCDEFGHIJKLMNOPQRSTUVWXYZ!@%&*089"]],
  [[upcase('')], [""]],
  [[upcase(1)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking UPCASE(string) as upcase(number).]])

CHECK_EXPR_EVAL([time ctime date yrmoda],
  [[time.days(1)], [86400.00]],
  [[time.days(-1)], [-86400.00]],
  [[time.days(0.5)], [43200.00]],
  [[time.days('x')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking TIME.DAYS(number) as time.days(string).]],
  [[time.days($sysmis)], [sysmis]],

  [[time.hms(4,50,38)], [17438.00]],
  [[time.hms(12,31,35)], [45095.00]],
  [[time.hms(12,47,53)], [46073.00]],
  [[time.hms(1,26,0)], [5160.00]],
  [[time.hms(20,58,11)], [75491.00]],
  [[time.hms(7,36,5)], [27365.00]],
  [[time.hms(15,43,49)], [56629.00]],
  [[time.hms(4,25,9)], [15909.00]],
  [[time.hms(6,49,27)], [24567.00]],
  [[time.hms(2,57,52)], [10672.00]],
  [[time.hms(16,45,44)], [60344.00]],
  [[time.hms(21,30,57)], [77457.00]],
  [[time.hms(22,30,4)], [81004.00]],
  [[time.hms(1,56,51)], [7011.00]],
  [[time.hms(5, 6, 7)], [18367.00]],
  [[time.hms(5, 6, 0)], [18360.00]],
  [[time.hms(5, 0, 7)], [18007.00]],
  [[time.hms(0, 6, 7)], [367.00]],
  [[time.hms(-5, 6, -7)], [sysmis],
   [warning: DEBUG EVALUATE: TIME.HMS cannot mix positive and negative arguments.]],
  [[time.hms(-5, 5, -7)], [sysmis],
   [warning: DEBUG EVALUATE: TIME.HMS cannot mix positive and negative arguments.]],
  [[time.hms($sysmis, 6, 7)], [sysmis]],
  [[time.hms(5, $sysmis, 7)], [sysmis]],
  [[time.hms(5, $sysmis, 7)], [sysmis]],
  [[time.hms($sysmis, $sysmis, 7)], [sysmis]],
  [[time.hms(5, $sysmis, $sysmis)], [sysmis]],
  [[time.hms($sysmis, $sysmis, 7)], [sysmis]],
  [[time.hms($sysmis, $sysmis, $sysmis)], [sysmis]],

  [[ctime.days(106272)], [1.23]],
  [[ctime.hours(106272)], [29.52]],
  [[ctime.minutes(106272)], [1771.20]],
  [[ctime.seconds(106272)], [106272.00]],
  [[ctime.days(-106272)], [-1.23]],
  [[ctime.hours(-106272)], [-29.52]],
  [[ctime.minutes(-106272)], [-1771.20]],
  [[ctime.seconds(-106272)], [-106272.00]],
  [[ctime.days($sysmis)], [sysmis]],
  [[ctime.hours($sysmis)], [sysmis]],
  [[ctime.minutes($sysmis)], [sysmis]],
  [[ctime.seconds($sysmis)], [sysmis]],
  [[ctime.days('a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CTIME.DAYS(number) as ctime.days(string).]],
  [[ctime.hours('b')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CTIME.HOURS(number) as ctime.hours(string).]],
  [[ctime.minutes('c')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CTIME.MINUTES(number) as ctime.minutes(string).]],
  [[ctime.seconds('d')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking CTIME.SECONDS(number) as ctime.seconds(string).]],

  [[ctime.days(date.dmy(15,10,1582))], [1.00]],
  [[ctime.days(date.dmy(6,9,1719))], [50000.00]],
  [[ctime.days(date.dmy(24,1,1583))], [102.00]],
  [[ctime.days(date.dmy(14,12,1585))], [1157.00]],
  [[ctime.days(date.dmy(26,11,1621))], [14288.00]],
  [[ctime.days(date.dmy(25,12,1821))], [87365.00]],
  [[ctime.days(date.dmy(3,12,1882))], [109623.00]],
  [[ctime.days(date.dmy(6,4,2002))], [153211.00]],
  [[ctime.days(date.dmy(19,12,1999))], [152372.00]],
  [[ctime.days(date.dmy(1,10,1978))], [144623.00]],
  [[ctime.days(date.dmy(0,10,1978))], [144622.00]],
  [[ctime.days(date.dmy(32,10,1978))], [sysmis],
   [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
  [[ctime.days(date.dmy(31,0,1978))], [144349.00]],
  [[ctime.days(date.dmy(31,13,1978))], [144745.00]],
  [[ctime.days(date.dmy($sysmis,10,1978))], [sysmis]],
  [[ctime.days(date.dmy(31,$sysmis,1978))], [sysmis]],
  [[ctime.days(date.dmy(31,10,$sysmis))], [sysmis]],
  [[ctime.days(date.dmy($sysmis,$sysmis,1978))], [sysmis]],
  [[ctime.days(date.dmy(31,$sysmis,$sysmis))], [sysmis]],
  [[ctime.days(date.dmy($sysmis,10,$sysmis))], [sysmis]],
  [[ctime.days(date.dmy($sysmis,$sysmis,$sysmis))], [sysmis]],
  [[date.dmy('a',1,2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(string, number, number).]],
  [[date.dmy(1,'a',2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(number, string, number).]],
  [[date.dmy(1,2,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(number, number, string).]],
dnl FIXME: check out-of-range and nearly out-of-range values
dnl
  [[yrmoda(1582,10,15)], [1.00]],
  [[yrmoda(1719,9,6)], [50000.00]],
  [[yrmoda(1583,1,24)], [102.00]],
  [[yrmoda(1585,12,14)], [1157.00]],
  [[yrmoda(1621,11,26)], [14288.00]],
  [[yrmoda(1821,12,25)], [87365.00]],
  [[yrmoda(1882,12,3)], [109623.00]],
  [[yrmoda(2002,4,6)], [153211.00]],
  [[yrmoda(1999,12,19)], [152372.00]],
  [[yrmoda(1978,10,1)], [144623.00]],
  [[yrmoda(1978,10,0)], [144622.00]],
  [[yrmoda(1978,10,32)], [sysmis],
   [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
  [[yrmoda(1978,0,31)], [144349.00]],
  [[yrmoda(1978,13,31)], [144745.00]],
  [[yrmoda(1978,10,$sysmis)], [sysmis]],
  [[yrmoda(1978,$sysmis,31)], [sysmis]],
  [[yrmoda($sysmis,10,31)], [sysmis]],
  [[yrmoda(1978,$sysmis,$sysmis)], [sysmis]],
  [[yrmoda($sysmis,$sysmis,31)], [sysmis]],
  [[yrmoda($sysmis,10,$sysmis)], [sysmis]],
  [[yrmoda($sysmis,$sysmis,$sysmis)], [sysmis]],
  [[yrmoda('a',1,2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(string, number, number).]],
  [[yrmoda(1,'a',2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(number, string, number).]],
  [[yrmoda(1,2,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(number, number, string).]],
dnl FIXME: check out-of-range and nearly out-of-range values
dnl
  [[ctime.days(date.mdy(6,10,1648)) + 577735], [601716.00]],
  [[ctime.days(date.mdy(6,30,1680)) + 577735], [613424.00]],
  [[ctime.days(date.mdy(7,24,1716)) + 577735], [626596.00]],
  [[ctime.days(date.mdy(6,19,1768)) + 577735], [645554.00]],
  [[ctime.days(date.mdy(8,2,1819)) + 577735], [664224.00]],
  [[ctime.days(date.mdy(3,27,1839)) + 577735], [671401.00]],
  [[ctime.days(date.mdy(4,19,1903)) + 577735], [694799.00]],
  [[ctime.days(date.mdy(8,25,1929)) + 577735], [704424.00]],
  [[ctime.days(date.mdy(9,29,1941)) + 577735], [708842.00]],
  [[ctime.days(date.mdy(4,19,1943)) + 577735], [709409.00]],
  [[ctime.days(date.mdy(10,7,1943)) + 577735], [709580.00]],
  [[ctime.days(date.mdy(3,17,1992)) + 577735], [727274.00]],
  [[ctime.days(date.mdy(2,25,1996)) + 577735], [728714.00]],
  [[ctime.days(date.mdy(11,10,2038)) + 577735], [744313.00]],
  [[ctime.days(date.mdy(7,18,2094)) + 577735], [764652.00]],
dnl FIXME: check out-of-range and nearly out-of-range values
dnl
  [[ctime.days(date.mdy(10,15,1582))], [1.00]],
  [[ctime.days(date.mdy(9,6,1719))], [50000.00]],
  [[ctime.days(date.mdy(1,24,1583))], [102.00]],
  [[ctime.days(date.mdy(12,14,1585))], [1157.00]],
  [[ctime.days(date.mdy(11,26,1621))], [14288.00]],
  [[ctime.days(date.mdy(12,25,1821))], [87365.00]],
  [[ctime.days(date.mdy(12,3,1882))], [109623.00]],
  [[ctime.days(date.mdy(4,6,2002))], [153211.00]],
  [[ctime.days(date.mdy(12,19,1999))], [152372.00]],
  [[ctime.days(date.mdy(10,1,1978))], [144623.00]],
  [[ctime.days(date.mdy(10,0,1978))], [144622.00]],
  [[ctime.days(date.mdy(10,32,1978))], [sysmis],
   [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
  [[ctime.days(date.mdy(0,31,1978))], [144349.00]],
  [[ctime.days(date.mdy(13,31,1978))], [144745.00]],
  [[ctime.days(date.mdy(10,$sysmis,1978))], [sysmis]],
  [[ctime.days(date.mdy($sysmis,31,1978))], [sysmis]],
  [[ctime.days(date.mdy(10,31,$sysmis))], [sysmis]],
  [[ctime.days(date.mdy($sysmis,$sysmis,1978))], [sysmis]],
  [[ctime.days(date.mdy($sysmis,31,$sysmis))], [sysmis]],
  [[ctime.days(date.mdy(10,$sysmis,$sysmis))], [sysmis]],
  [[ctime.days(date.mdy($sysmis,$sysmis,$sysmis))], [sysmis]],
  [[date.mdy('a',1,2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(string, number, number).]],
  [[date.mdy(1,'a',2)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(number, string, number).]],
  [[date.mdy(1,2,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(number, number, string).]],
  [[ctime.days(date.mdy(0,0,0))], [152353.00]],
  [[ctime.days(date.mdy(0,0,999))], [sysmis],
   [error: DEBUG EVALUATE: Date 0998-12-0 is before the earliest acceptable date of 1582-10-15.]],
  [[date.mdy(1,1,1582)], [sysmis],
   [error: DEBUG EVALUATE: Date 1582-1-1 is before the earliest acceptable date of 1582-10-15.]],
  [[date.mdy(10,14,1582)], [sysmis],
   [error: DEBUG EVALUATE: Date 1582-10-14 is before the earliest acceptable date of 1582-10-15.]],
  [[date.mdy(10,15,1582)], [86400.00]],

  [[ctime.days(date.moyr(1,2000))], [152385.00]],
  [[ctime.days(date.moyr(2,2000))], [152416.00]],
  [[ctime.days(date.moyr(3,2000))], [152445.00]],
  [[ctime.days(date.moyr(4,2000))], [152476.00]],
  [[ctime.days(date.moyr(5,2000))], [152506.00]],
  [[ctime.days(date.moyr(13,2000))], [152751.00]],
  [[ctime.days(date.moyr(14,2000))], [sysmis],
   [error: DEBUG EVALUATE: Month 14 is not in acceptable range of 0 to 13.]],
  [[ctime.days(date.moyr($sysmis,2000))], [sysmis]],
  [[ctime.days(date.moyr(1,$sysmis))], [sysmis]],
  [[ctime.days(date.moyr($sysmis,$sysmis))], [sysmis]],
  [[date.moyr('a',2000)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(string, number).]],
  [[date.moyr(5,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(number, string).]],
  [[date.moyr('a','b')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(string, string).]],

  [[ctime.days(date.qyr(1,2000))], [152385.00]],
  [[ctime.days(date.qyr(2,2000))], [152476.00]],
  [[ctime.days(date.qyr(5,2000))], [sysmis],
   [warning: DEBUG EVALUATE: The first argument to DATE.QYR must be 1, 2, 3, or 4.]],
  [[ctime.days(date.qyr(6,2000))], [sysmis],
   [warning: DEBUG EVALUATE: The first argument to DATE.QYR must be 1, 2, 3, or 4.]],
  [[ctime.days(date.qyr($sysmis,2000))], [sysmis]],
  [[ctime.days(date.qyr(1,$sysmis))], [sysmis]],
  [[ctime.days(date.qyr($sysmis,$sysmis))], [sysmis]],
  [[date.qyr('a',2000)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(string, number).]],
  [[date.qyr(5,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(number, string).]],
  [[date.qyr('a','b')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(string, string).]],

  [[ctime.days(date.wkyr(1,2000))], [152385.00]],
  [[ctime.days(date.wkyr(15,1999))], [152118.00]],
  [[ctime.days(date.wkyr(36,1999))], [152265.00]],
  [[ctime.days(date.wkyr(54,1999))], [sysmis],
   [error: DEBUG EVALUATE: The week argument to DATE.WKYR is outside the acceptable range of 1 to 53.  The result will be system-missing.]],
  [[ctime.days(date.wkyr($sysmis,1999))], [sysmis]],
  [[ctime.days(date.wkyr(1,$sysmis))], [sysmis]],
  [[ctime.days(date.wkyr($sysmis,$sysmis))], [sysmis]],
  [[date.wkyr('a',1999)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(string, number).]],
  [[date.wkyr(5,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(number, string).]],
  [[date.wkyr('a','b')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(string, string).]],

  [[ctime.days(date.yrday(2000,1))], [152385.00]],
  [[ctime.days(date.yrday(2000,100))], [152484.00]],
  [[ctime.days(date.yrday(2000,253))], [152637.00]],
  [[ctime.days(date.yrday(2000,500))], [sysmis],
   [error: DEBUG EVALUATE: The day argument to DATE.YRDAY is outside the acceptable range of 1 to 366.  The result will be system-missing.]],
  [[ctime.days(date.yrday(2000,-100))], [sysmis],
   [error: DEBUG EVALUATE: The day argument to DATE.YRDAY is outside the acceptable range of 1 to 366.  The result will be system-missing.]],
  [[ctime.days(date.yrday(1999,$sysmis))], [sysmis]],
  [[ctime.days(date.yrday($sysmis,1))], [sysmis]],
  [[ctime.days(date.yrday($sysmis,$sysmis))], [sysmis]],
  [[date.yrday(1999,'a')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(number, string).]],
  [[date.yrday('a',5)], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(string, number).]],
  [[date.yrday('a','b')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(string, string).]])

CHECK_EXPR_EVAL([xdate],
  [[xdate.date(date.mdy(6,10,1648) + time.hms(0,0,0)) / 86400], [23981.00]],
  [[xdate.date(date.mdy(6,30,1680) + time.hms(4,50,38)) / 86400], [35689.00]],
  [[xdate.date(date.mdy(7,24,1716) + time.hms(12,31,35)) / 86400], [48861.00]],
  [[xdate.date(date.mdy(6,19,1768) + time.hms(12,47,53)) / 86400], [67819.00]],
  [[xdate.date(date.mdy(8,2,1819) + time.hms(1,26,0)) / 86400], [86489.00]],
  [[xdate.date(date.mdy(3,27,1839) + time.hms(20,58,11)) / 86400], [93666.00]],
  [[xdate.date(date.mdy(4,19,1903) + time.hms(7,36,5)) / 86400], [117064.00]],
  [[xdate.date(date.mdy(8,25,1929) + time.hms(15,43,49)) / 86400], [126689.00]],
  [[xdate.date(date.mdy(9,29,1941) + time.hms(4,25,9)) / 86400], [131107.00]],
  [[xdate.date(date.mdy(4,19,1943) + time.hms(6,49,27)) / 86400], [131674.00]],
  [[xdate.date(date.mdy(10,7,1943) + time.hms(2,57,52)) / 86400], [131845.00]],
  [[xdate.date(date.mdy(3,17,1992) + time.hms(16,45,44)) / 86400], [149539.00]],
  [[xdate.date(date.mdy(2,25,1996) + time.hms(21,30,57)) / 86400], [150979.00]],
  [[xdate.date(date.mdy(9,29,1941) + time.hms(4,25,9)) / 86400], [131107.00]],
  [[xdate.date(date.mdy(4,19,43) + time.hms(6,49,27)) / 86400], [131674.00]],
  [[xdate.date(date.mdy(10,7,43) + time.hms(2,57,52)) / 86400], [131845.00]],
  [[xdate.date(date.mdy(3,17,92) + time.hms(16,45,44)) / 86400], [149539.00]],
  [[xdate.date(date.mdy(2,25,96) + time.hms(21,30,57)) / 86400], [150979.00]],
  [[xdate.date(date.mdy(11,10,2038) + time.hms(22,30,4)) / 86400], [166578.00]],
  [[xdate.date(date.mdy(7,18,2094) + time.hms(1,56,51)) / 86400], [186917.00]],
  [[xdate.date(123.4)], [0.00]],
  [[xdate.date('')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking XDATE.DATE(number) as xdate.date(string).]],

  [[xdate.hour(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
  [[xdate.hour(date.mdy(6,30,1680) + time.hms(4,50,38))], [4.00]],
  [[xdate.hour(date.mdy(7,24,1716) + time.hms(12,31,35))], [12.00]],
  [[xdate.hour(date.mdy(6,19,1768) + time.hms(12,47,53))], [12.00]],
  [[xdate.hour(date.mdy(8,2,1819) + time.hms(1,26,0))], [1.00]],
  [[xdate.hour(date.mdy(3,27,1839) + time.hms(20,58,11))], [20.00]],
  [[xdate.hour(date.mdy(4,19,1903) + time.hms(7,36,5))], [7.00]],
  [[xdate.hour(date.mdy(8,25,1929) + time.hms(15,43,49))], [15.00]],
  [[xdate.hour(date.mdy(9,29,1941) + time.hms(4,25,9))], [4.00]],
  [[xdate.hour(date.mdy(4,19,1943) + time.hms(6,49,27))], [6.00]],
  [[xdate.hour(date.mdy(10,7,1943) + time.hms(2,57,52))], [2.00]],
  [[xdate.hour(date.mdy(3,17,1992) + time.hms(16,45,44))], [16.00]],
  [[xdate.hour(date.mdy(2,25,1996) + time.hms(21,30,57))], [21.00]],
  [[xdate.hour(date.mdy(9,29,1941) + time.hms(4,25,9))], [4.00]],
  [[xdate.hour(date.mdy(4,19,43) + time.hms(6,49,27))], [6.00]],
  [[xdate.hour(date.mdy(10,7,43) + time.hms(2,57,52))], [2.00]],
  [[xdate.hour(date.mdy(3,17,92) + time.hms(16,45,44))], [16.00]],
  [[xdate.hour(date.mdy(2,25,96) + time.hms(21,30,57))], [21.00]],
  [[xdate.hour(date.mdy(11,10,2038) + time.hms(22,30,4))], [22.00]],
  [[xdate.hour(date.mdy(7,18,2094) + time.hms(1,56,51))], [1.00]],
  [[xdate.hour(-1)], [-1.00]],
  [[xdate.hour(1)], [0.00]],
  [[xdate.hour($sysmis)], [sysmis]],
  [[xdate.hour('')], [error],
   [error: DEBUG EVALUATE: Type mismatch invoking XDATE.HOUR(number) as xdate.hour(string).]],

  [[xdate.jday(date.mdy(6,10,1648) + time.hms(0,0,0))], [162.00]],
  [[xdate.jday(date.mdy(6,30,1680) + time.hms(4,50,38))], [182.00]],
  [[xdate.jday(date.mdy(7,24,1716) + time.hms(12,31,35))], [206.00]],
  [[xdate.jday(date.mdy(6,19,1768) + time.hms(12,47,53))], [171.00]],
  [[xdate.jday(date.mdy(8,2,1819) + time.hms(1,26,0))], [214.00]],
  [[xdate.jday(date.mdy(3,27,1839) + time.hms(20,58,11))], [86.00]],
  [[xdate.jday(date.mdy(4,19,1903) + time.hms(7,36,5))], [109.00]],
  [[xdate.jday(date.mdy(8,25,1929) + time.hms(15,43,49))], [237.00]],
  [[xdate.jday(date.mdy(9,29,1941) + time.hms(4,25,9))], [272.00]],
  [[xdate.jday(date.mdy(4,19,1943) + time.hms(6,49,27))], [109.00]],
  [[xdate.jday(date.mdy(10,7,1943) + time.hms(2,57,52))], [280.00]],
  [[xdate.jday(date.mdy(3,17,1992) + time.hms(16,45,44))], [77.00]],
  [[xdate.jday(date.mdy(2,25,1996) + time.hms(21,30,57))], [56.00]],
  [[xdate.jday(date.mdy(9,29,1941) + time.hms(4,25,9))], [272.00]],
  [[xdate.jday(date.mdy(4,19,43) + time.hms(6,49,27))], [109.00]],
  [[xdate.jday(date.mdy(10,7,43) + time.hms(2,57,52))], [280.00]],
  [[xdate.jday(date.mdy(3,17,92) + time.hms(16,45,44))], [77.00]],
  [[xdate.jday(date.mdy(2,25,96) + time.hms(21,30,57))], [56.00]],
  [[xdate.jday(date.mdy(11,10,2038) + time.hms(22,30,4))], [314.00]],
  [[xdate.jday(date.mdy(7,18,2094) + time.hms(1,56,51))], [199.00]],
  [[xdate.jday(0)], [sysmis]],
  [[xdate.jday(1)], [sysmis]],
  [[xdate.jday(86400)], [288.00]],

  [[xdate.mday(date.mdy(6,10,1648) + time.hms(0,0,0))], [10.00]],
  [[xdate.mday(date.mdy(6,30,1680) + time.hms(4,50,38))], [30.00]],
  [[xdate.mday(date.mdy(7,24,1716) + time.hms(12,31,35))], [24.00]],
  [[xdate.mday(date.mdy(6,19,1768) + time.hms(12,47,53))], [19.00]],
  [[xdate.mday(date.mdy(8,2,1819) + time.hms(1,26,0))], [2.00]],
  [[xdate.mday(date.mdy(3,27,1839) + time.hms(20,58,11))], [27.00]],
  [[xdate.mday(date.mdy(4,19,1903) + time.hms(7,36,5))], [19.00]],
  [[xdate.mday(date.mdy(8,25,1929) + time.hms(15,43,49))], [25.00]],
  [[xdate.mday(date.mdy(9,29,1941) + time.hms(4,25,9))], [29.00]],
  [[xdate.mday(date.mdy(4,19,1943) + time.hms(6,49,27))], [19.00]],
  [[xdate.mday(date.mdy(10,7,1943) + time.hms(2,57,52))], [7.00]],
  [[xdate.mday(date.mdy(3,17,1992) + time.hms(16,45,44))], [17.00]],
  [[xdate.mday(date.mdy(2,25,1996) + time.hms(21,30,57))], [25.00]],
  [[xdate.mday(date.mdy(9,29,1941) + time.hms(4,25,9))], [29.00]],
  [[xdate.mday(date.mdy(4,19,43) + time.hms(6,49,27))], [19.00]],
  [[xdate.mday(date.mdy(10,7,43) + time.hms(2,57,52))], [7.00]],
  [[xdate.mday(date.mdy(3,17,92) + time.hms(16,45,44))], [17.00]],
  [[xdate.mday(date.mdy(2,25,96) + time.hms(21,30,57))], [25.00]],
  [[xdate.mday(date.mdy(11,10,2038) + time.hms(22,30,4))], [10.00]],
  [[xdate.mday(date.mdy(7,18,2094) + time.hms(1,56,51))], [18.00]],

  [[xdate.minute(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
  [[xdate.minute(date.mdy(6,30,1680) + time.hms(4,50,38))], [50.00]],
  [[xdate.minute(date.mdy(7,24,1716) + time.hms(12,31,35))], [31.00]],
  [[xdate.minute(date.mdy(6,19,1768) + time.hms(12,47,53))], [47.00]],
  [[xdate.minute(date.mdy(8,2,1819) + time.hms(1,26,0))], [26.00]],
  [[xdate.minute(date.mdy(3,27,1839) + time.hms(20,58,11))], [58.00]],
  [[xdate.minute(date.mdy(4,19,1903) + time.hms(7,36,5))], [36.00]],
  [[xdate.minute(date.mdy(8,25,1929) + time.hms(15,43,49))], [43.00]],
  [[xdate.minute(date.mdy(9,29,1941) + time.hms(4,25,9))], [25.00]],
  [[xdate.minute(date.mdy(4,19,1943) + time.hms(6,49,27))], [49.00]],
  [[xdate.minute(date.mdy(10,7,1943) + time.hms(2,57,52))], [57.00]],
  [[xdate.minute(date.mdy(3,17,1992) + time.hms(16,45,44))], [45.00]],
  [[xdate.minute(date.mdy(2,25,1996) + time.hms(21,30,57))], [30.00]],
  [[xdate.minute(date.mdy(9,29,1941) + time.hms(4,25,9))], [25.00]],
  [[xdate.minute(date.mdy(4,19,43) + time.hms(6,49,27))], [49.00]],
  [[xdate.minute(date.mdy(10,7,43) + time.hms(2,57,52))], [57.00]],
  [[xdate.minute(date.mdy(3,17,92) + time.hms(16,45,44))], [45.00]],
  [[xdate.minute(date.mdy(2,25,96) + time.hms(21,30,57))], [30.00]],
  [[xdate.minute(date.mdy(11,10,2038) + time.hms(22,30,4))], [30.00]],
  [[xdate.minute(date.mdy(7,18,2094) + time.hms(1,56,51))], [56.00]],

  [[xdate.month(date.mdy(6,10,1648) + time.hms(0,0,0))], [6.00]],
  [[xdate.month(date.mdy(6,30,1680) + time.hms(4,50,38))], [6.00]],
  [[xdate.month(date.mdy(7,24,1716) + time.hms(12,31,35))], [7.00]],
  [[xdate.month(date.mdy(6,19,1768) + time.hms(12,47,53))], [6.00]],
  [[xdate.month(date.mdy(8,2,1819) + time.hms(1,26,0))], [8.00]],
  [[xdate.month(date.mdy(3,27,1839) + time.hms(20,58,11))], [3.00]],
  [[xdate.month(date.mdy(4,19,1903) + time.hms(7,36,5))], [4.00]],
  [[xdate.month(date.mdy(8,25,1929) + time.hms(15,43,49))], [8.00]],
  [[xdate.month(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
  [[xdate.month(date.mdy(4,19,1943) + time.hms(6,49,27))], [4.00]],
  [[xdate.month(date.mdy(10,7,1943) + time.hms(2,57,52))], [10.00]],
  [[xdate.month(date.mdy(3,17,1992) + time.hms(16,45,44))], [3.00]],
  [[xdate.month(date.mdy(2,25,1996) + time.hms(21,30,57))], [2.00]],
  [[xdate.month(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
  [[xdate.month(date.mdy(4,19,43) + time.hms(6,49,27))], [4.00]],
  [[xdate.month(date.mdy(10,7,43) + time.hms(2,57,52))], [10.00]],
  [[xdate.month(date.mdy(3,17,92) + time.hms(16,45,44))], [3.00]],
  [[xdate.month(date.mdy(2,25,96) + time.hms(21,30,57))], [2.00]],
  [[xdate.month(date.mdy(11,10,2038) + time.hms(22,30,4))], [11.00]],
  [[xdate.month(date.mdy(7,18,2094) + time.hms(1,56,51))], [7.00]],

  [[xdate.quarter(date.mdy(6,10,1648) + time.hms(0,0,0))], [2.00]],
  [[xdate.quarter(date.mdy(6,30,1680) + time.hms(4,50,38))], [2.00]],
  [[xdate.quarter(date.mdy(7,24,1716) + time.hms(12,31,35))], [3.00]],
  [[xdate.quarter(date.mdy(6,19,1768) + time.hms(12,47,53))], [2.00]],
  [[xdate.quarter(date.mdy(8,2,1819) + time.hms(1,26,0))], [3.00]],
  [[xdate.quarter(date.mdy(3,27,1839) + time.hms(20,58,11))], [1.00]],
  [[xdate.quarter(date.mdy(4,19,1903) + time.hms(7,36,5))], [2.00]],
  [[xdate.quarter(date.mdy(8,25,1929) + time.hms(15,43,49))], [3.00]],
  [[xdate.quarter(date.mdy(9,29,1941) + time.hms(4,25,9))], [3.00]],
  [[xdate.quarter(date.mdy(4,19,1943) + time.hms(6,49,27))], [2.00]],
  [[xdate.quarter(date.mdy(10,7,1943) + time.hms(2,57,52))], [4.00]],
  [[xdate.quarter(date.mdy(3,17,1992) + time.hms(16,45,44))], [1.00]],
  [[xdate.quarter(date.mdy(2,25,1996) + time.hms(21,30,57))], [1.00]],
  [[xdate.quarter(date.mdy(9,29,1941) + time.hms(4,25,9))], [3.00]],
  [[xdate.quarter(date.mdy(4,19,43) + time.hms(6,49,27))], [2.00]],
  [[xdate.quarter(date.mdy(10,7,43) + time.hms(2,57,52))], [4.00]],
  [[xdate.quarter(date.mdy(3,17,92) + time.hms(16,45,44))], [1.00]],
  [[xdate.quarter(date.mdy(2,25,96) + time.hms(21,30,57))], [1.00]],
  [[xdate.quarter(date.mdy(11,10,2038) + time.hms(22,30,4))], [4.00]],
  [[xdate.quarter(date.mdy(7,18,2094) + time.hms(1,56,51))], [3.00]],

  [[xdate.second(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
  [[xdate.second(date.mdy(6,30,1680) + time.hms(4,50,38))], [38.00]],
  [[xdate.second(date.mdy(7,24,1716) + time.hms(12,31,35))], [35.00]],
  [[xdate.second(date.mdy(6,19,1768) + time.hms(12,47,53))], [53.00]],
  [[xdate.second(date.mdy(8,2,1819) + time.hms(1,26,0))], [0.00]],
  [[xdate.second(date.mdy(3,27,1839) + time.hms(20,58,11))], [11.00]],
  [[xdate.second(date.mdy(4,19,1903) + time.hms(7,36,5))], [5.00]],
  [[xdate.second(date.mdy(8,25,1929) + time.hms(15,43,49))], [49.00]],
  [[xdate.second(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
  [[xdate.second(date.mdy(4,19,1943) + time.hms(6,49,27))], [27.00]],
  [[xdate.second(date.mdy(10,7,1943) + time.hms(2,57,52))], [52.00]],
  [[xdate.second(date.mdy(3,17,1992) + time.hms(16,45,44))], [44.00]],
  [[xdate.second(date.mdy(2,25,1996) + time.hms(21,30,57))], [57.00]],
  [[xdate.second(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
  [[xdate.second(date.mdy(4,19,43) + time.hms(6,49,27))], [27.00]],
  [[xdate.second(date.mdy(10,7,43) + time.hms(2,57,52))], [52.00]],
  [[xdate.second(date.mdy(3,17,92) + time.hms(16,45,44))], [44.00]],
  [[xdate.second(date.mdy(2,25,96) + time.hms(21,30,57))], [57.00]],
  [[xdate.second(date.mdy(11,10,2038) + time.hms(22,30,4))], [4.00]],
  [[xdate.second(date.mdy(7,18,2094) + time.hms(1,56,51))], [51.00]],

  [[xdate.tday(date.mdy(6,10,1648) + time.hms(0,0,0))], [23981.00]],
  [[xdate.tday(date.mdy(6,30,1680) + time.hms(4,50,38))], [35689.00]],
  [[xdate.tday(date.mdy(7,24,1716) + time.hms(12,31,35))], [48861.00]],
  [[xdate.tday(date.mdy(6,19,1768) + time.hms(12,47,53))], [67819.00]],
  [[xdate.tday(date.mdy(8,2,1819) + time.hms(1,26,0))], [86489.00]],
  [[xdate.tday(date.mdy(3,27,1839) + time.hms(20,58,11))], [93666.00]],
  [[xdate.tday(date.mdy(4,19,1903) + time.hms(7,36,5))], [117064.00]],
  [[xdate.tday(date.mdy(8,25,1929) + time.hms(15,43,49))], [126689.00]],
  [[xdate.tday(date.mdy(9,29,1941) + time.hms(4,25,9))], [131107.00]],
  [[xdate.tday(date.mdy(4,19,1943) + time.hms(6,49,27))], [131674.00]],
  [[xdate.tday(date.mdy(10,7,1943) + time.hms(2,57,52))], [131845.00]],
  [[xdate.tday(date.mdy(3,17,1992) + time.hms(16,45,44))], [149539.00]],
  [[xdate.tday(date.mdy(2,25,1996) + time.hms(21,30,57))], [150979.00]],
  [[xdate.tday(date.mdy(9,29,1941) + time.hms(4,25,9))], [131107.00]],
  [[xdate.tday(date.mdy(4,19,43) + time.hms(6,49,27))], [131674.00]],
  [[xdate.tday(date.mdy(10,7,43) + time.hms(2,57,52))], [131845.00]],
  [[xdate.tday(date.mdy(3,17,92) + time.hms(16,45,44))], [149539.00]],
  [[xdate.tday(date.mdy(2,25,96) + time.hms(21,30,57))], [150979.00]],
  [[xdate.tday(date.mdy(11,10,2038) + time.hms(22,30,4))], [166578.00]],
  [[xdate.tday(date.mdy(7,18,2094) + time.hms(1,56,51))], [186917.00]],

  [[xdate.time(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
  [[xdate.time(date.mdy(6,30,1680) + time.hms(4,50,38))], [17438.00]],
  [[xdate.time(date.mdy(7,24,1716) + time.hms(12,31,35))], [45095.00]],
  [[xdate.time(date.mdy(6,19,1768) + time.hms(12,47,53))], [46073.00]],
  [[xdate.time(date.mdy(8,2,1819) + time.hms(1,26,0))], [5160.00]],
  [[xdate.time(date.mdy(3,27,1839) + time.hms(20,58,11))], [75491.00]],
  [[xdate.time(date.mdy(4,19,1903) + time.hms(7,36,5))], [27365.00]],
  [[xdate.time(date.mdy(8,25,1929) + time.hms(15,43,49))], [56629.00]],
  [[xdate.time(date.mdy(9,29,1941) + time.hms(4,25,9))], [15909.00]],
  [[xdate.time(date.mdy(4,19,1943) + time.hms(6,49,27))], [24567.00]],
  [[xdate.time(date.mdy(10,7,1943) + time.hms(2,57,52))], [10672.00]],
  [[xdate.time(date.mdy(3,17,1992) + time.hms(16,45,44))], [60344.00]],
  [[xdate.time(date.mdy(2,25,1996) + time.hms(21,30,57))], [77457.00]],
  [[xdate.time(date.mdy(9,29,1941) + time.hms(4,25,9))], [15909.00]],
  [[xdate.time(date.mdy(4,19,43) + time.hms(6,49,27))], [24567.00]],
  [[xdate.time(date.mdy(10,7,43) + time.hms(2,57,52))], [10672.00]],
  [[xdate.time(date.mdy(3,17,92) + time.hms(16,45,44))], [60344.00]],
  [[xdate.time(date.mdy(2,25,96) + time.hms(21,30,57))], [77457.00]],
  [[xdate.time(date.mdy(11,10,2038) + time.hms(22,30,4))], [81004.00]],
  [[xdate.time(date.mdy(7,18,2094) + time.hms(1,56,51))], [7011.00]],

  [[xdate.week(date.mdy(6,10,1648) + time.hms(0,0,0))], [24.00]],
  [[xdate.week(date.mdy(6,30,1680) + time.hms(4,50,38))], [26.00]],
  [[xdate.week(date.mdy(7,24,1716) + time.hms(12,31,35))], [30.00]],
  [[xdate.week(date.mdy(6,19,1768) + time.hms(12,47,53))], [25.00]],
  [[xdate.week(date.mdy(8,2,1819) + time.hms(1,26,0))], [31.00]],
  [[xdate.week(date.mdy(3,27,1839) + time.hms(20,58,11))], [13.00]],
  [[xdate.week(date.mdy(4,19,1903) + time.hms(7,36,5))], [16.00]],
  [[xdate.week(date.mdy(8,25,1929) + time.hms(15,43,49))], [34.00]],
  [[xdate.week(date.mdy(9,29,1941) + time.hms(4,25,9))], [39.00]],
  [[xdate.week(date.mdy(4,19,1943) + time.hms(6,49,27))], [16.00]],
  [[xdate.week(date.mdy(10,7,1943) + time.hms(2,57,52))], [40.00]],
  [[xdate.week(date.mdy(3,17,1992) + time.hms(16,45,44))], [11.00]],
  [[xdate.week(date.mdy(2,25,1996) + time.hms(21,30,57))], [8.00]],
  [[xdate.week(date.mdy(9,29,1941) + time.hms(4,25,9))], [39.00]],
  [[xdate.week(date.mdy(4,19,43) + time.hms(6,49,27))], [16.00]],
  [[xdate.week(date.mdy(10,7,43) + time.hms(2,57,52))], [40.00]],
  [[xdate.week(date.mdy(3,17,92) + time.hms(16,45,44))], [11.00]],
  [[xdate.week(date.mdy(2,25,96) + time.hms(21,30,57))], [8.00]],
  [[xdate.week(date.mdy(11,10,2038) + time.hms(22,30,4))], [45.00]],
  [[xdate.week(date.mdy(7,18,2094) + time.hms(1,56,51))], [29.00]],

  [[xdate.wkday(date.mdy(6,10,1648))], [4.00]],
  [[xdate.wkday(date.mdy(6,30,1680))], [1.00]],
  [[xdate.wkday(date.mdy(7,24,1716))], [6.00]],
  [[xdate.wkday(date.mdy(6,19,1768))], [1.00]],
  [[xdate.wkday(date.mdy(8,2,1819))], [2.00]],
  [[xdate.wkday(date.mdy(3,27,1839))], [4.00]],
  [[xdate.wkday(date.mdy(4,19,1903))], [1.00]],
  [[xdate.wkday(date.mdy(8,25,1929))], [1.00]],
  [[xdate.wkday(date.mdy(9,29,1941))], [2.00]],
  [[xdate.wkday(date.mdy(4,19,1943))], [2.00]],
  [[xdate.wkday(date.mdy(10,7,1943))], [5.00]],
  [[xdate.wkday(date.mdy(3,17,1992))], [3.00]],
  [[xdate.wkday(date.mdy(2,25,1996))], [1.00]],
  [[xdate.wkday(date.mdy(9,29,1941))], [2.00]],
  [[xdate.wkday(date.mdy(4,19,43))], [2.00]],
  [[xdate.wkday(date.mdy(10,7,43))], [5.00]],
  [[xdate.wkday(date.mdy(3,17,92))], [3.00]],
  [[xdate.wkday(date.mdy(2,25,96))], [1.00]],
  [[xdate.wkday(date.mdy(11,10,2038))], [4.00]],
  [[xdate.wkday(date.mdy(7,18,2094))], [1.00]],

  [[xdate.year(date.mdy(6,10,1648) + time.hms(0,0,0))], [1648.00]],
  [[xdate.year(date.mdy(6,30,1680) + time.hms(4,50,38))], [1680.00]],
  [[xdate.year(date.mdy(7,24,1716) + time.hms(12,31,35))], [1716.00]],
  [[xdate.year(date.mdy(6,19,1768) + time.hms(12,47,53))], [1768.00]],
  [[xdate.year(date.mdy(8,2,1819) + time.hms(1,26,0))], [1819.00]],
  [[xdate.year(date.mdy(3,27,1839) + time.hms(20,58,11))], [1839.00]],
  [[xdate.year(date.mdy(4,19,1903) + time.hms(7,36,5))], [1903.00]],
  [[xdate.year(date.mdy(8,25,1929) + time.hms(15,43,49))], [1929.00]],
  [[xdate.year(date.mdy(9,29,1941) + time.hms(4,25,9))], [1941.00]],
  [[xdate.year(date.mdy(4,19,1943) + time.hms(6,49,27))], [1943.00]],
  [[xdate.year(date.mdy(10,7,1943) + time.hms(2,57,52))], [1943.00]],
  [[xdate.year(date.mdy(3,17,1992) + time.hms(16,45,44))], [1992.00]],
  [[xdate.year(date.mdy(2,25,1996) + time.hms(21,30,57))], [1996.00]],
  [[xdate.year(date.mdy(9,29,1941) + time.hms(4,25,9))], [1941.00]],
  [[xdate.year(date.mdy(4,19,43) + time.hms(6,49,27))], [1943.00]],
  [[xdate.year(date.mdy(10,7,43) + time.hms(2,57,52))], [1943.00]],
  [[xdate.year(date.mdy(3,17,92) + time.hms(16,45,44))], [1992.00]],
  [[xdate.year(date.mdy(2,25,96) + time.hms(21,30,57))], [1996.00]],
  [[xdate.year(date.mdy(11,10,2038) + time.hms(22,30,4))], [2038.00]],
  [[xdate.year(date.mdy(7,18,2094) + time.hms(1,56,51))], [2094.00]])

CHECK_EXPR_EVAL([datediff],
  [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'years')], [-32.00]],
  [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'years')], [-36.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'years')], [-51.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'years')], [-51.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'years')], [-19.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'years')], [-64.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'years')], [-26.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'years')], [-12.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'years')], [-1.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'years')], [0.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'years')], [-48.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'years')], [-3.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'years')], [-54.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'years')], [-1.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'years')], [0.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'years')], [-48.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'years')], [-3.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'years')], [-42.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'years')], [-55.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'years')], [-3.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'years')], [-4.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'years')], [-2.00]],

  [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'quarters')], [-128.00]],
  [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'quarters')], [-144.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'quarters')], [-207.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'quarters')], [-204.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'quarters')], [-78.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'quarters')], [-256.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'quarters')], [-105.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'quarters')], [-48.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'quarters')], [-6.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'quarters')], [-1.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'quarters')], [-193.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'quarters')], [-15.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'quarters')], [-217.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'quarters')], [-6.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'quarters')], [-1.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'quarters')], [-193.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'quarters')], [-15.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'quarters')], [-170.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'quarters')], [-222.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'quarters')], [-15.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'quarters')], [-16.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'quarters')], [-11.00]],

  [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'months')], [-384.00]],
  [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'months')], [-432.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'months')], [-622.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'months')], [-613.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'months')], [-235.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'months')], [-768.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'months')], [-316.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'months')], [-145.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'months')], [-18.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'months')], [-5.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'months')], [-581.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'months')], [-47.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'months')], [-652.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'months')], [-18.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'months')], [-5.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'months')], [-581.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'months')], [-47.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'months')], [-512.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'months')], [-668.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'months')], [-47.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'months')], [-48.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'months')], [-35.00]],

  [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'weeks')], [-1672.00]],
  [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'weeks')], [-1881.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'weeks')], [-2708.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'weeks')], [-2667.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'weeks')], [-1025.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'weeks')], [-3342.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'weeks')], [-1375.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'weeks')], [-631.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'weeks')], [-81.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'weeks')], [-24.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'weeks')], [-2527.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'weeks')], [-205.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'weeks')], [-2838.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'weeks')], [-81.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'weeks')], [-24.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'weeks')], [-2527.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'weeks')], [-205.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'weeks')], [-2228.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'weeks')], [-2905.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'weeks')], [-208.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'weeks')], [-208.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'weeks')], [-156.00]],

  [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'days')], [-11708.00]],
  [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'days')], [-13172.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'days')], [-18958.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'days')], [-18670.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'days')], [-7177.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'days')], [-23398.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'days')], [-9625.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'days')], [-4418.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'days')], [-567.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'days')], [-171.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'days')], [-17694.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'days')], [-1440.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'days')], [-19872.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'days')], [-567.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'days')], [-171.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'days')], [-17694.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'days')], [-1440.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'days')], [-15599.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'days')], [-20339.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'days')], [-1460.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'days')], [-1461.00]],
  [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'days')], [-1094.00]],

  [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'years')], [32.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'years')], [36.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'years')], [51.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'years')], [51.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'years')], [19.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'years')], [64.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'years')], [26.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'years')], [12.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'years')], [1.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'years')], [0.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'years')], [48.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'years')], [3.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'years')], [54.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'years')], [1.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'years')], [0.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'years')], [48.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'years')], [3.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'years')], [42.00]],
  [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'years')], [55.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'years')], [3.00]],
  [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'years')], [4.00]],
  [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'years')], [2.00]],

  [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'months')], [384.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'months')], [432.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'months')], [622.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'months')], [613.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'months')], [235.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'months')], [768.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'months')], [316.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'months')], [145.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'months')], [18.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'months')], [5.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'months')], [581.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'months')], [47.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'months')], [652.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'months')], [18.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'months')], [5.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'months')], [581.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'months')], [47.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'months')], [512.00]],
  [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'months')], [668.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'months')], [47.00]],
  [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'months')], [48.00]],
  [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'months')], [35.00]],

  [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'quarters')], [128.00]],
  [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'quarters')], [144.00]],
  [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'quarters')], [207.00]],
  [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'quarters')], [204.00]],
  [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'quarters')], [78.00]],
  [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'quarters')], [256.00]],
  [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'quarters')], [105.00]],
  [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'quarters')], [48.00]],
  [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'quarters')], [6.00]],
  [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'quarters')], [1.00]],
  [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'quarters')], [193.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'quarters')], [15.00]],
  [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'quarters')], [217.00]],
  [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'quarters')], [6.00]],
  [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'quarters')], [1.00]],
  [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'quarters')], [193.00]],
  [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'quarters')], [15.00]],
  [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'quarters')], [170.00]],
  [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'quarters')], [222.00]],
  [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'quarters')], [15.00]],
  [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'quarters')], [16.00]],
  [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'quarters')], [11.00]],

dnl time of day is significant for DATEDIFF
  [[datediff(date.mdy(10,15,1910) + 234, date.mdy(10,10,1910) + 123, 'days')],
    [5.00]],
  [[datediff(date.mdy(10,15,1910) + 123, date.mdy(10,10,1910) + 234, 'days')],
    [4.00]],
  [[datediff(date.mdy(10,24,1910) + 234, date.mdy(10,10,1910) + 123, 'weeks')],
    [2.00]],
  [[datediff(date.mdy(10,24,1910) + 123, date.mdy(10,10,1910) + 234, 'weeks')],
    [1.00]],
  [[datediff(date.mdy(10,10,1910) + 234, date.mdy(5,10,1910) + 123, 'months')],
    [5.00]],
  [[datediff(date.mdy(10,10,1910) + 123, date.mdy(5,10,1910) + 234, 'months')],
    [4.00]],
  [[datediff(date.mdy(5,10,1919) + 234, date.mdy(5,10,1910) + 123, 'years')],
    [9.00]],
  [[datediff(date.mdy(5,10,1919) + 123, date.mdy(5,10,1910) + 234, 'years')],
    [8.00]],

  [[datediff(date.mdy(10,10,1910) + 123, date.mdy(10,15,1910) + 234, 'days')],
    [-5.00]],
  [[datediff(date.mdy(10,10,1910) + 234, date.mdy(10,15,1910) + 123, 'days')],
    [-4.00]],
  [[datediff(date.mdy(10,10,1910) + 123, date.mdy(10,24,1910) + 234, 'weeks')],
    [-2.00]],
  [[datediff(date.mdy(10,10,1910) + 234, date.mdy(10,24,1910) + 123, 'weeks')],
    [-1.00]],
  [[datediff(date.mdy(5,10,1910) + 123, date.mdy(10,10,1910) + 234, 'months')],
    [-5.00]],
  [[datediff(date.mdy(5,10,1910) + 234, date.mdy(10,10,1910) + 123, 'months')],
    [-4.00]],
  [[datediff(date.mdy(5,10,1910) + 123, date.mdy(5,10,1919) + 234, 'years')],
    [-9.00]],
  [[datediff(date.mdy(5,10,1910) + 234, date.mdy(5,10,1919) + 123, 'years')],
    [-8.00]])

CHECK_EXPR_EVAL([datesum],
dnl DATESUM with non-leap year
  [[ctime.days(datesum(date.mdy(1,31,1900), 1, 'months') - date.mdy(1,1,1900))], [58.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 2, 'months') - date.mdy(1,1,1900))], [89.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 3, 'months') - date.mdy(1,1,1900))], [119.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 4, 'months') - date.mdy(1,1,1900))], [150.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 5.4, 'months') - date.mdy(1,1,1900))], [180.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 6, 'months') - date.mdy(1,1,1900))], [211.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 7, 'months') - date.mdy(1,1,1900))], [242.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 8, 'months') - date.mdy(1,1,1900))], [272.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 9, 'months') - date.mdy(1,1,1900))], [303.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 10, 'months') - date.mdy(1,1,1900))], [333.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 11, 'months') - date.mdy(1,1,1900))], [364.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 12, 'months') - date.mdy(1,1,1900))], [395.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 13.9, 'months') - date.mdy(1,1,1900))], [423.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 1, 'months', 'rollover') - date.mdy(1,1,1900))], [61.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 2, 'months', 'rollover') - date.mdy(1,1,1900))], [89.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 3.2, 'months', 'rollover') - date.mdy(1,1,1900))], [120.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 4, 'months', 'rollover') - date.mdy(1,1,1900))], [150.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 5, 'months', 'rollover') - date.mdy(1,1,1900))], [181.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 6, 'months', 'rollover') - date.mdy(1,1,1900))], [211.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 7, 'months', 'rollover') - date.mdy(1,1,1900))], [242.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 8, 'months', 'rollover') - date.mdy(1,1,1900))], [273.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 9, 'months', 'rollover') - date.mdy(1,1,1900))], [303.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 10, 'months', 'rollover') - date.mdy(1,1,1900))], [334.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 11, 'months', 'rollover') - date.mdy(1,1,1900))], [364.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 12, 'months', 'rollover') - date.mdy(1,1,1900))], [395.00]],
  [[ctime.days(datesum(date.mdy(1,31,1900), 13, 'months', 'rollover') - date.mdy(1,1,1900))], [426.00]],

dnl DATESUM with leap year
  [[ctime.days(datesum(date.mdy(1,31,1904), 1, 'months') - date.mdy(1,1,1904))], [59.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 2.5, 'months') - date.mdy(1,1,1904))], [90.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 3, 'months') - date.mdy(1,1,1904))], [120.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 4.9, 'months') - date.mdy(1,1,1904))], [151.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 5.1, 'months') - date.mdy(1,1,1904))], [181.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 6, 'months') - date.mdy(1,1,1904))], [212.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 7, 'months') - date.mdy(1,1,1904))], [243.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 8, 'months') - date.mdy(1,1,1904))], [273.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 9, 'months') - date.mdy(1,1,1904))], [304.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 10, 'months') - date.mdy(1,1,1904))], [334.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 11, 'months') - date.mdy(1,1,1904))], [365.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 12, 'months') - date.mdy(1,1,1904))], [396.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 13, 'months') - date.mdy(1,1,1904))], [424.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 1, 'months', 'rollover') - date.mdy(1,1,1904))], [61.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 2, 'months', 'rollover') - date.mdy(1,1,1904))], [90.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 3, 'months', 'rollover') - date.mdy(1,1,1904))], [121.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 4, 'months', 'rollover') - date.mdy(1,1,1904))], [151.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 5, 'months', 'rollover') - date.mdy(1,1,1904))], [182.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 6, 'months', 'rollover') - date.mdy(1,1,1904))], [212.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 7, 'months', 'rollover') - date.mdy(1,1,1904))], [243.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 8, 'months', 'rollover') - date.mdy(1,1,1904))], [274.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 9, 'months', 'rollover') - date.mdy(1,1,1904))], [304.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 10, 'months', 'rollover') - date.mdy(1,1,1904))], [335.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 11, 'months', 'rollover') - date.mdy(1,1,1904))], [365.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 12, 'months', 'rollover') - date.mdy(1,1,1904))], [396.00]],
  [[ctime.days(datesum(date.mdy(1,31,1904), 13, 'months', 'rollover') - date.mdy(1,1,1904))], [427.00]],

  [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'weeks') - date.mdy(6,10,1648))], [7.00]],
  [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'weeks') - date.mdy(6,30,1680))], [17.50]],
  [[ctime.days(datesum(date.mdy(7,24,1716), -3, 'weeks') - date.mdy(7,24,1716))], [-21.00]],
  [[ctime.days(datesum(date.mdy(6,19,1768), 4, 'weeks') - date.mdy(6,19,1768))], [28.00]],
  [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'weeks') - date.mdy(8,2,1819))], [35.00]],

  [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'days') - date.mdy(6,10,1648))], [1.00]],
  [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'days') - date.mdy(6,30,1680))], [2.50]],
  [[ctime.days(datesum(date.mdy(7,24,1716), -3, 'days') - date.mdy(7,24,1716))], [-3.00]],
  [[ctime.days(datesum(date.mdy(6,19,1768), 4, 'days') - date.mdy(6,19,1768))], [4.00]],
  [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'days') - date.mdy(8,2,1819))], [5.00]],
  [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'hours') - date.mdy(6,10,1648))], [0.04]],
  [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'hours') - date.mdy(6,30,1680))], [0.10]],
  [[ctime.days(datesum(date.mdy(6,19,1768), -4, 'hours') - date.mdy(6,19,1768))], [-0.17]],
  [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'hours') - date.mdy(8,2,1819))], [0.21]],

dnl DATESUM preserves time-of-day for units of days and longer.
  [[ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'days') - (date.mdy(8,2,1819) + time.hms(1,2,3)))], [5.00]],
  [[ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'weeks') - (date.mdy(8,2,1819) + time.hms(1,2,3)))], [35.00]],
  [[ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'months') - (date.mdy(8,2,1819) + time.hms(1,2,3)))], [153.00]],
  [[ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'years') - (date.mdy(8,2,1819) + time.hms(1,2,3)))], [1827.00]])

CHECK_EXPR_EVAL([miscellaneous],
dnl These test values are from Applied Statistics, Algorithm AS 310.
  [[1000 * ncdf.beta(.868,10,20,150)], [937.66]],
  [[1000 * ncdf.beta(.9,10,10,120)], [730.68]],
  [[1000 * ncdf.beta(.88,15,5,80)], [160.43]],
  [[1000 * ncdf.beta(.85,20,10,110)], [186.75]],
  [[1000 * ncdf.beta(.66,20,30,65)], [655.94]],
  [[1000 * ncdf.beta(.72,20,50,130)], [979.69]],
  [[1000 * ncdf.beta(.72,30,20,80)], [116.24]],
  [[1000 * ncdf.beta(.8,30,40,130)], [993.04]],

dnl FIXME: LAG
dnl
  [[X], [1.00], [], [(X = 1.00)]],
  [[SYSMIS(1)], [false]],
  [[SYSMIS($SYSMIS)], [true]],
  [[SYSMIS(1 + $SYSMIS)], [true]],

dnl FIXME: out-of-range and nearly out-of-range values on dates
dnl
dnl Tests correctness of generic optimizations in optimize_tree().
  [[x + 0], [10.00], [], [(X = 10.00)]],
  [[x - 0], [-3.00], [], [(X = -3.00)]],
  [[0 + x], [5.00], [], [(X = 5.00)]],
  [[x * 1], [10.00], [], [(X = 10.00)]],
  [[1 * x], [-3.00], [], [(X = -3.00)]],
  [[x / 1], [5.00], [], [(X = 5.00)]],
  [[0 * x], [0.00], [], [(X = 10.00)]],
  [[x * 0], [0.00], [], [(X = -3.00)]],
  [[0 / x], [0.00], [], [(X = 5.00)]],
  [[mod(0, x)], [0.00], [], [(X = 5.00)]],
  [[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.
begin data.
1
2
3
4
5
end data.

compute X=lag(w,1).
compute Y=lag(x).
compute Z=lag(w,2).
list.
])
AT_CHECK([pspp -o pspp.csv lag.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Reading 1 record from INLINE.
Variable,Record,Columns,Format
W,1,1-1,F1.0

Table: Data List
W,X,Y,Z
1,.  ,.  ,.  @&t@
2,1.00,.  ,.  @&t@
3,2.00,1.00,1.00
4,3.00,2.00,2.00
5,4.00,3.00,3.00
])
AT_CLEANUP

AT_SETUP([LAG crash bug])
AT_DATA([lag.sps], [dnl
DATA LIST LIST /x.
BEGIN DATA
1
2
END DATA.

DO IF (x <> LAG(x) ).
	ECHO 'hello'.
END IF.

EXECUTE.
])
AT_CHECK([pspp -o pspp.csv lag.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Reading free-form data from INLINE.
Variable,Format
x,F8.0

hello
])
AT_CLEANUP

dnl Tests for a bug which caused UNIFORM(x) to always return zero.
AT_SETUP([UNIFORM function])
AT_DATA([uniform.sps], [dnl
set seed=10.
input program.
+ loop #i = 1 to 20.
+    do repeat response=R1.
+       compute response = uniform(10).
+    end repeat.
+    end case.
+ end loop.
+ end file.
end input program.

list.
])
AT_CHECK([pspp -o pspp.csv uniform.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Data List
R1
7.71
2.99
.21
4.95
6.34
4.43
7.49
8.32
4.99
5.83
2.25
.25
1.98
7.09
7.61
2.66
1.69
2.64
.88
1.50
])
AT_CLEANUP

AT_SETUP([VALUELABEL function])
AT_DATA([valuelabel.sps], [dnl
DATA LIST notable /n 1 s 2(a).
VALUE LABELS /n 0 'Very dissatisfied'
                1 'Dissatisfied'
		1.5 'Slightly Peeved'
                2 'Neutral'
                3 'Satisfied'
                4 'Very satisfied'.
VALUE LABELS /s 'a' 'Wouldn''t buy again'
                'b' 'Unhappy'
                'c' 'Bored'
                'd' 'Satiated'
                'e' 'Elated'.
STRING nlabel slabel(a10).
COMPUTE nlabel = VALUELABEL(n).
COMPUTE slabel = VALUELABEL(s).
LIST.
BEGIN DATA.

0a
1b
2c
3d
4e
5f
6g
END DATA.
])
AT_CHECK([pspp -o pspp.csv valuelabel.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Data List
n,s,nlabel,slabel
.,,,
0,a,Very dissa,Wouldn't b
1,b,Dissatisfi,Unhappy
2,c,Neutral,Bored
3,d,Satisfied,Satiated
4,e,Very satis,Elated
5,f,,
6,g,,
])
AT_CLEANUP

AT_SETUP([variables in expressions])
AT_DATA([variables.sps], [dnl
DATA LIST NOTABLE/N1 TO N5 1-5.
MISSING VALUES N1 TO N5 (3 THRU 5, 1).
BEGIN DATA.
12345
6789
END DATA.

COMPUTE P1=N1.
COMPUTE P2=N2.
COMPUTE P3=N3.
COMPUTE P4=N4.
COMPUTE P5=N5.

COMPUTE MC=NMISS(N1 TO N5).
COMPUTE VC=NVALID(N1 TO N5).

COMPUTE S1=SYSMIS(N1).
COMPUTE S2=SYSMIS(N2).
COMPUTE S3=SYSMIS(N3).
COMPUTE S4=SYSMIS(N4).
COMPUTE S5=SYSMIS(N5).

COMPUTE M1=MISSING(N1).
COMPUTE M2=MISSING(N2).
COMPUTE M3=MISSING(N3).
COMPUTE M4=MISSING(N4).
COMPUTE M5=MISSING(N5).

COMPUTE V1=VALUE(N1).
COMPUTE V2=VALUE(N2).
COMPUTE V3=VALUE(N3).
COMPUTE V4=VALUE(N4).
COMPUTE V5=VALUE(N5).

FORMATS ALL (F1).

LIST.
])
AT_CHECK([pspp -o pspp.csv variables.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Data List
N1,N2,N3,N4,N5,P1,P2,P3,P4,P5,MC,VC,S1,S2,S3,S4,S5,M1,M2,M3,M4,M5,V1,V2,V3,V4,V5
1,2,3,4,5,.,2,.,.,.,4,1,0,0,0,0,0,1,0,1,1,1,1,2,3,4,5
6,7,8,9,.,6,7,8,9,.,1,4,0,0,0,0,1,0,0,0,0,1,6,7,8,9,.
])
AT_CLEANUP

AT_SETUP([vectors in expressions])
AT_DATA([vectors.sps], [dnl
DATA LIST NOTABLE /N1 TO N5 1-5.
MISSING VALUES N1 TO N5 (3 THRU 5, 1).
BEGIN DATA.
12345
6789
END DATA.

VECTOR N=N1 TO N5.
VECTOR X(5).
LOOP I=1 TO 5.
COMPUTE X(I)=N(I) + 1.
END LOOP.

FORMATS ALL (F2).

LIST.
])
AT_CHECK([pspp -o pspp.csv vectors.sps])
AT_CHECK([cat pspp.csv], [0], [dnl
Table: Data List
N1,N2,N3,N4,N5,X1,X2,X3,X4,X5,I
1,2,3,4,5,.,3,.,.,.,5
6,7,8,9,.,7,8,9,10,.,5
])
AT_CLEANUP