pintos-os.org Git - pspp/blob - tests/language/expressions/evaluate.at

   1 m4_define([CHECK_EXPR_EVAL],
   2   [AT_SETUP([expressions - $1])
   3    AT_DATA([evaluate.sps],
   4      [set mxwarn 1000.
   5 set mxerr 1000.
   6 set epoch 1940.
   7 m4_foreach([check], [m4_shift($@)],
   8                  [DEBUG EVALUATE NOOPT m4_argn(4, check)/[]m4_car(check).
   9 DEBUG EVALUATE m4_argn(4, check)/[]m4_car(check).
  10 ])])
  11    AT_CAPTURE_FILE([evaluate.sps])
  12    m4_pushdef([i], [3])
  13    AT_CHECK([pspp --testing-mode --error-file=- --no-output evaluate.sps],
  14      [m4_if(m4_bregexp([m4_foreach([check], [m4_shift($@)], [m4_argn(3, check)])], [error:]), [-1], [0], [1])],
  15      [stdout])
  16    # Use sed to transform "file:line.column:" into plain "file:line:",
  17    # because column numbers change between opt and noopt versions.
  18    AT_CHECK([[sed 's/\(evaluate.sps:[0-9]\{1,\}\)\.[0-9]\{1,\}:/\1:/' stdout]],
  19      [0],
  20      [m4_foreach([check], [m4_shift($@)],
  21         [m4_define([i], m4_incr(i))dnl
  22 m4_if(m4_argn(3, check), [], [], [evaluate.sps:[]i[]: m4_argn(3, check)
  23 ])dnl
  24 m4_argn(2, check)
  25 m4_define([i], m4_incr(i))dnl
  26 m4_if(m4_argn(3, check), [], [], [evaluate.sps:[]i[]: m4_argn(3, check)
  27 ])dnl
  28 m4_argn(2, check)
  29 ])], [])
  30    m4_popdef([i])
  31    AT_CLEANUP])
  32
  33 AT_BANNER([expressions])
  34
  35 CHECK_EXPR_EVAL([numeric syntax],
  36   [[1e2], [100.00]],
  37   [[1e+2], [100.00]],
  38   [[1e-2], [0.01]],
  39   [[1e-99], [0.00]])
  40
  41 CHECK_EXPR_EVAL([coercion to/from Boolean],
  42   [[0 AND 1], [false]],
  43   [[$true AND 1], [true]],
  44   [[1 OR $false], [true]],
  45   [[1 OR $sysmis], [true]],
  46   [[2 OR $sysmis], [sysmis],
  47    [error: DEBUG EVALUATE: An operand of the logical disjunction (`OR') operator was found to have a value other than 0 (false), 1 (true), or the system-missing value.  The result was forced to 0.]],
  48   [[2 AND $sysmis], [false],
  49    [error: DEBUG EVALUATE: An operand of the logical conjunction (`AND') operator was found to have a value other than 0 (false), 1 (true), or the system-missing value.  The result was forced to 0.]],
  50   [['string' AND $sysmis], [error],
  51    [error: DEBUG EVALUATE: Type mismatch while applying logical conjunction (`AND') operator: cannot convert string to boolean.]],
  52   [[0 AND $sysmis], [false]],
  53   [[(1>2) + 1], [1.00]],
  54   [[$true + $false], [1.00]])
  55
  56 CHECK_EXPR_EVAL([addition and subtraction],
  57   [[1 + 2], [3.00]],
  58   [[1 + $true], [2.00]],
  59   [[$sysmis + 1], [sysmis]],
  60   [[7676 + $sysmis], [sysmis]],
  61   [[('foo') + 5], [error],
  62    [error: DEBUG EVALUATE: Type mismatch while applying addition (`+') operator: cannot convert string to number.]],
  63   dnl Arithmetic concatenation requires CONCAT:
  64   [[('foo') + ('bar')], [error],
  65    [error: DEBUG EVALUATE: Type mismatch while applying addition (`+') operator: cannot convert string to number.]],
  66   dnl Lexical concatenation succeeds:
  67   [['foo' + 'bar'], ["foobar"]],
  68   [[1 +3 - 2 +4 -5], [1.00]],
  69   [[1 - $true], [0.00]],
  70   [[$true - 4/3], [-0.33]],
  71   [['string' - 1e10], [error],
  72    [error: DEBUG EVALUATE: Type mismatch while applying subtraction (`-') operator: cannot convert string to number.]],
  73   [[9.5 - ''], [error],
  74    [error: DEBUG EVALUATE: Type mismatch while applying subtraction (`-') operator: cannot convert string to number.]],
  75   [[1 - 2], [-1.00]],
  76   [[52 -23], [29.00]])
  77
  78 CHECK_EXPR_EVAL([multiplication and division],
  79   [[5 * 10], [50.00]],
  80   [[10 * $true], [10.00]],
  81   [[$true * 5], [5.00]],
  82   [[1.5 * $true], [1.50]],
  83   [[5 * $sysmis], [sysmis]],
  84   [[$sysmis * 15], [sysmis]],
  85   [[2 * 5 / 10], [1.00]],
  86   [[1 / 2], [0.50]],
  87   [[2 / 5], [0.40]],
  88   [[12 / 3 / 2], [2.00]])
  89
  90 CHECK_EXPR_EVAL([exponentiation],
  91   [[2**8], [256.00]],
  92   [[(2**3)**4], [4096.00]],
  93   [[2**3**4], [4096.00],
  94    [warning: DEBUG EVALUATE: The exponentiation operator (`**') is left-associative, even though right-associative semantics are more useful.  That is, `a**b**c' equals `(a**b)**c', not as `a**(b**c)'.  To disable this warning, insert parentheses.]])
  95
  96 CHECK_EXPR_EVAL([unary minus],
  97   [[2+-3], [-1.00]],
  98   [[2*-3], [-6.00]],
  99   [[-3**2], [-9.00]],
 100   [[(-3)**2], [9.00]],
 101   [[2**-1], [0.50]],
 102   [[0**0], [sysmis]],
 103   [[0**-1], [sysmis]],
 104   [[(-3)**1.5], [sysmis]])
 105
 106 CHECK_EXPR_EVAL([AND truth table],
 107   [[$false AND $false], [false]],
 108   [[$false AND $true], [false]],
 109   [[$false AND $sysmis], [false]],
 110   [[$true AND $false], [false]],
 111   [[$true AND $true], [true]],
 112   [[$true AND $sysmis], [sysmis]],
 113   [[$sysmis AND $false], [false]],
 114   [[$sysmis AND $true], [sysmis]],
 115   [[$sysmis AND $sysmis], [sysmis]],
 116   [[$false & $false], [false]],
 117   [[$false & $true], [false]],
 118   [[$false & $sysmis], [false]],
 119   [[$true & $false], [false]],
 120   [[$true & $true], [true]],
 121   [[$true & $sysmis], [sysmis]],
 122   [[$sysmis & $false], [false]],
 123   [[$sysmis & $true], [sysmis]],
 124   [[$sysmis & $sysmis], [sysmis]])
 125
 126 CHECK_EXPR_EVAL([OR truth table],
 127   [[$false OR $false], [false]],
 128   [[$false OR $true], [true]],
 129   [[$false OR $sysmis], [sysmis]],
 130   [[$true OR $false], [true]],
 131   [[$true OR $true], [true]],
 132   [[$true OR $sysmis], [true]],
 133   [[$sysmis OR $false], [sysmis]],
 134   [[$sysmis OR $true], [true]],
 135   [[$sysmis OR $sysmis], [sysmis]],
 136   [[$false | $false], [false]],
 137   [[$false | $true], [true]],
 138   [[$false | $sysmis], [sysmis]],
 139   [[$true | $false], [true]],
 140   [[$true | $true], [true]],
 141   [[$true | $sysmis], [true]],
 142   [[$sysmis | $false], [sysmis]],
 143   [[$sysmis | $true], [true]],
 144   [[$sysmis | $sysmis], [sysmis]])
 145
 146 CHECK_EXPR_EVAL([NOT truth table],
 147   [[not $false], [true]],
 148   [[not 0], [true]],
 149   [[not 2.5], [true],
 150    [error: DEBUG EVALUATE: An operand of the logical negation (`NOT') operator was found to have a value other than 0 (false), 1 (true), or the system-missing value.  The result was forced to 0.]],
 151   [[not $true], [false]],
 152   [[not 1], [false]],
 153   [[not $sysmis], [sysmis]],
 154   [[~ $false], [true]],
 155   [[~ 0], [true]],
 156   [[~ 2.5], [true],
 157    [error: DEBUG EVALUATE: An operand of the logical negation (`NOT') operator was found to have a value other than 0 (false), 1 (true), or the system-missing value.  The result was forced to 0.]],
 158   [[~ $true], [false]],
 159   [[~ 1], [false]],
 160   [[~ $sysmis], [sysmis]])
 161
 162 CHECK_EXPR_EVAL([= <= <],
 163   [[1 eq 1], [true]],
 164   [[1 = 1], [true]],
 165   [[1 eq 2], [false]],
 166   [[2 = 3], [false]],
 167   [[1 eq 'foobar'], [error],
 168    [error: DEBUG EVALUATE: Type mismatch while applying numeric equality (`EQ') operator: cannot convert string to number.]],
 169   [[5 eq 'foobar'], [error],
 170    [error: DEBUG EVALUATE: Type mismatch while applying numeric equality (`EQ') operator: cannot convert string to number.]],
 171   [['baz' = 10], [error],
 172    [error: DEBUG EVALUATE: Type mismatch while applying string equality (`=') operator: cannot convert number to string.]],
 173   [['quux' = 5.55], [error],
 174    [error: DEBUG EVALUATE: Type mismatch while applying string equality (`=') operator: cannot convert number to string.]],
 175   [['foobar' = 'foobar'], [true]],
 176   [['quux' = 'bar'], [false]],
 177   [['bar   ' = 'bar'], [true]],
 178   [['asdf         ' = 'asdf  '], [true]],
 179   [['asdfj   ' = 'asdf'], [false]],
 180 dnl Check precedence:
 181   [[1 + 2 = 3], [true]],
 182   [[1 >= 2 = 2 ge 3], [false],
 183    [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').  If chaining is really intended, parentheses will disable this warning (e.g. `(a < b) < c'.)]],
 184 dnl Mathematically true:
 185   [[3 ne 2 ~= 1], [false],
 186    [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').  If chaining is really intended, parentheses will disable this warning (e.g. `(a < b) < c'.)]],
 187   [[3 > 2 > 1], [false],
 188    [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').  If chaining is really intended, parentheses will disable this warning (e.g. `(a < b) < c'.)]],
 189
 190   [[1 <= 2], [true]],
 191   [[2.5 <= 1.5], [false]],
 192   [[1 le 2], [true]],
 193   [[2 <= 2], [true]],
 194   [[2 le 2], [true]],
 195 dnl Make sure <= token can't be split:
 196   [[2 < = 2], [error],
 197    [error: DEBUG EVALUATE: Syntax error at `='.]],
 198   [[1 <= 'foobar'], [error],
 199    [error: DEBUG EVALUATE: Type mismatch while applying numeric less-than-or-equal-to (`<=') operator: cannot convert string to number.]],
 200   [[5 <= 'foobar'], [error],
 201    [error: DEBUG EVALUATE: Type mismatch while applying numeric less-than-or-equal-to (`<=') operator: cannot convert string to number.]],
 202   [['baz' <= 10], [error],
 203    [error: DEBUG EVALUATE: Type mismatch while applying string less-than-or-equal-to (`<=') operator: cannot convert number to string.]],
 204   [['quux' <= 5.55], [error],
 205    [error: DEBUG EVALUATE: Type mismatch while applying string less-than-or-equal-to (`<=') operator: cannot convert number to string.]],
 206   [['0123' <= '0123'], [true]],
 207   [['0123' <= '0124'], [true]],
 208   [['0124' le '0123'], [false]],
 209   [['0123  ' <= '0123'], [true]],
 210   [['0123' le '0123  '], [true]],
 211
 212   [[1 < 2], [true]],
 213   [[2.5 < 1.5], [false]],
 214   [[3.5 lt 4], [true]],
 215   [[4 lt 3.5], [false]],
 216   [[1 lt 'foobar'], [error],
 217    [error: DEBUG EVALUATE: Type mismatch while applying numeric less than (`<') operator: cannot convert string to number.]],
 218   [[5 lt 'foobar'], [error],
 219    [error: DEBUG EVALUATE: Type mismatch while applying numeric less than (`<') operator: cannot convert string to number.]],
 220   [['baz' < 10], [error],
 221    [error: DEBUG EVALUATE: Type mismatch while applying string less than (`<') operator: cannot convert number to string.]],
 222   [['quux' < 5.55], [error],
 223    [error: DEBUG EVALUATE: Type mismatch while applying string less than (`<') operator: cannot convert number to string.]],
 224   [['0123' lt '0123'], [false]],
 225   [['0123' < '0124'], [true]],
 226   [['0124' lt '0123'], [false]],
 227   [['0123  ' < '0123'], [false]],
 228   [['0123' lt '0123  '], [false]])
 229
 230 CHECK_EXPR_EVAL([>= > <>],
 231   [[1 >= 2], [false]],
 232   [[2.5 >= 1.5], [true]],
 233   [[1 ge 2], [false]],
 234   [[2 >= 2], [true]],
 235   [[2 ge 2], [true]],
 236 dnl Make sure >= token can't be split:
 237   [[2 > = 2], [error],
 238    [error: DEBUG EVALUATE: Syntax error at `='.]],
 239   [[1 >= 'foobar'], [error],
 240    [error: DEBUG EVALUATE: Type mismatch while applying numeric greater-than-or-equal-to (`>=') operator: cannot convert string to number.]],
 241   [[5 ge 'foobar'], [error],
 242    [error: DEBUG EVALUATE: Type mismatch while applying numeric greater-than-or-equal-to (`>=') operator: cannot convert string to number.]],
 243   [['baz' ge 10], [error],
 244    [error: DEBUG EVALUATE: Type mismatch while applying string greater-than-or-equal-to (`>=') operator: cannot convert number to string.]],
 245   [['quux' >= 5.55], [error],
 246    [error: DEBUG EVALUATE: Type mismatch while applying string greater-than-or-equal-to (`>=') operator: cannot convert number to string.]],
 247   [['0123' ge '0123'], [true]],
 248   [['0123' >= '0124'], [false]],
 249   [['0124' >= '0123'], [true]],
 250   [['0123  ' ge '0123'], [true]],
 251   [['0123' >= '0123  '], [true]],
 252
 253   [[1 > 2], [false]],
 254   [[2.5 > 1.5], [true]],
 255   [[3.5 gt 4], [false]],
 256   [[4 gt 3.5], [true]],
 257   [[1 gt 'foobar'], [error],
 258    [error: DEBUG EVALUATE: Type mismatch while applying numeric greater than (`>') operator: cannot convert string to number.]],
 259   [[5 gt 'foobar'], [error],
 260    [error: DEBUG EVALUATE: Type mismatch while applying numeric greater than (`>') operator: cannot convert string to number.]],
 261   [['baz' > 10], [error],
 262    [error: DEBUG EVALUATE: Type mismatch while applying string greater than (`>') operator: cannot convert number to string.]],
 263   [['quux' > 5.55], [error],
 264    [error: DEBUG EVALUATE: Type mismatch while applying string greater than (`>') operator: cannot convert number to string.]],
 265   [['0123' gt '0123'], [false]],
 266   [['0123' > '0124'], [false]],
 267   [['0124' gt '0123'], [true]],
 268   [['0123  ' > '0123'], [false]],
 269   [['0123' gt '0123  '], [false]],
 270
 271   [[1 ne 1], [false]],
 272   [[1 ~= 1], [false]],
 273   [[1 <> 2], [true]],
 274   [[2 ne 3], [true]],
 275   [[1 ~= 'foobar'], [error],
 276    [error: DEBUG EVALUATE: Type mismatch while applying numeric inequality (`<>') operator: cannot convert string to number.]],
 277   [[5 <> 'foobar'], [error],
 278    [error: DEBUG EVALUATE: Type mismatch while applying numeric inequality (`<>') operator: cannot convert string to number.]],
 279   [['baz' ne 10], [error],
 280    [error: DEBUG EVALUATE: Type mismatch while applying string inequality (`<>') operator: cannot convert number to string.]],
 281   [['quux' ~= 5.55], [error],
 282    [error: DEBUG EVALUATE: Type mismatch while applying string inequality (`<>') operator: cannot convert number to string.]],
 283   [['foobar' <> 'foobar'], [false]],
 284   [['quux' ne 'bar'], [true]],
 285   [['bar   ' <> 'bar'], [false]],
 286   [['asdf         ' ~= 'asdf  '], [false]],
 287   [['asdfj   ' ne 'asdf'], [true]],
 288 dnl <> token can't be split:
 289   [[1 < > 1], [error],
 290    [error: DEBUG EVALUATE: Syntax error at `>'.]],
 291 dnl # ~= token can't be split:
 292   [[1 ~ = 1], [error],
 293    [error: DEBUG EVALUATE: Syntax error at `~': expecting end of command.]])
 294
 295 CHECK_EXPR_EVAL([exp lg10 ln sqrt abs mod mod10 rnd trunc],
 296   [[exp(10)], [22026.47]],
 297   [[exp('x')], [error],
 298    [error: DEBUG EVALUATE: Type mismatch invoking EXP(number) as exp(string).]],
 299
 300   [[lg10(500)], [2.70]],
 301   [[lg10('x')], [error],
 302    [error: DEBUG EVALUATE: Type mismatch invoking LG10(number) as lg10(string).]],
 303
 304   [[ln(10)], [2.30]],
 305   [[ln('x')], [error],
 306    [error: DEBUG EVALUATE: Type mismatch invoking LN(number) as ln(string).]],
 307
 308   [[sqrt(500)], [22.36]],
 309   [[sqrt('x')], [error],
 310    [error: DEBUG EVALUATE: Type mismatch invoking SQRT(number) as sqrt(string).]],
 311
 312   [[abs(-10.5)], [10.50]],
 313   [[abs(-55.79)], [55.79]],
 314   [[abs(22)], [22.00]],
 315   [[abs(0)], [0.00]],
 316
 317   [[mod(55.5, 2)], [1.50]],
 318   [[mod(-55.5, 2)], [-1.50]],
 319   [[mod(55.5, -2)], [1.50]],
 320   [[mod(-55.5, -2)], [-1.50]],
 321   [[mod('a', 2)], [error],
 322    [error: DEBUG EVALUATE: Type mismatch invoking MOD(number, number) as mod(string, number).]],
 323   [[mod(2, 'a')], [error],
 324    [error: DEBUG EVALUATE: Type mismatch invoking MOD(number, number) as mod(number, string).]],
 325   [[mod('a', 'b')], [error],
 326    [error: DEBUG EVALUATE: Type mismatch invoking MOD(number, number) as mod(string, string).]],
 327
 328   [[mod10(55.5)], [5.50]],
 329   [[mod10(-55.5)], [-5.50]],
 330   [[mod10('x')], [error],
 331    [error: DEBUG EVALUATE: Type mismatch invoking MOD10(number) as mod10(string).]],
 332
 333   [[rnd(5.4)], [5.00]],
 334   [[rnd(5.6)], [6.00]],
 335   [[rnd(-5.4)], [-5.00]],
 336   [[rnd(-5.6)], [-6.00]],
 337   [[rnd(5.56, .1)], [5.60]],
 338   [[rnd(-5.56, .1)], [-5.60]],
 339   [[rnd(.5)], [1.00]],
 340   [[rnd(.5 - 2**-53)], [1.00]],
 341   [[rnd(.5 - 2**-52)], [1.00]],
 342   [[rnd(.5 - 2**-51)], [1.00]],
 343   [[rnd(.5 - 2**-45)], [0.00]],
 344   [[rnd(.5 - 2**-45, 1, 10)], [1.00]],
 345   [[rnd('x')], [error],
 346    [error: DEBUG EVALUATE: Function invocation rnd(string) does not match any known function.  Candidates are:
 347 RND(number)
 348 RND(number, number)
 349 RND(number, number, number).]],
 350
 351   [[trunc(1.2)], [1.00]],
 352   [[trunc(1.9)], [1.00]],
 353   [[trunc(-1.2)], [-1.00]],
 354   [[trunc(-1.9)], [-1.00]],
 355   [[trunc('x')], [error],
 356    [error: DEBUG EVALUATE: Type mismatch invoking TRUNC(number) as trunc(string).]])
 357
 358 CHECK_EXPR_EVAL([acos arsin artan cos sin tan],
 359   [[acos(.5) / 3.14159 * 180], [60.00]],
 360   [[arcos(.75) / 3.14159 * 180], [41.41]],
 361   [[arcos(-.5) / 3.14159 * 180], [120.00]],
 362   [[acos(-.75) / 3.14159 * 180], [138.59]],
 363   [[acos(-1) / 3.14159 * 180], [180.00]],
 364   [[arcos(1) / 3.14159 * 180], [0.00]],
 365   [[acos(-1.01)], [sysmis]],
 366   [[arcos(1.01)], [sysmis]],
 367   [[acos('x')], [error],
 368    [error: DEBUG EVALUATE: Type mismatch invoking ACOS(number) as acos(string).]],
 369
 370   [[arsin(.5) / 3.14159 * 180], [30.00]],
 371   [[asin(.25) / 3.14159 * 180], [14.48]],
 372   [[arsin(-.5) / 3.14159 * 180], [-30.00]],
 373   [[asin(-.25) / 3.14159 * 180], [-14.48]],
 374   [[arsin(-1.01)], [sysmis]],
 375   [[asin(1.01)], [sysmis]],
 376   [[arsin('x')], [error],
 377    [error: DEBUG EVALUATE: Type mismatch invoking ARSIN(number) as arsin(string).]],
 378
 379   [[artan(1) / 3.14159 * 180], [45.00]],
 380   [[atan(10) / 3.14159 * 180], [84.29]],
 381   [[artan(-1) / 3.14159 * 180], [-45.00]],
 382   [[atan(-10) / 3.14159 * 180], [-84.29]],
 383   [[artan('x')], [error],
 384    [error: DEBUG EVALUATE: Type mismatch invoking ARTAN(number) as artan(string).]],
 385
 386   [[cos(60 / 180 * 3.14159)], [0.50]],
 387   [[cos(45 / 180 * 3.14159)], [0.71]],
 388   [[cos(30 / 180 * 3.14159)], [0.87]],
 389   [[cos(15 / 180 * 3.14159)], [0.97]],
 390   [[cos(-60 / 180 * 3.14159)], [0.50]],
 391   [[cos(-45 / 180 * 3.14159)], [0.71]],
 392   [[cos(-30 / 180 * 3.14159)], [0.87]],
 393   [[cos(-15 / 180 * 3.14159)], [0.97]],
 394   [[cos(123 / 180 * 3.14159)], [-0.54]],
 395   [[cos(321 / 180 * 3.14159)], [0.78]],
 396   [[cos('x')], [error],
 397    [error: DEBUG EVALUATE: Type mismatch invoking COS(number) as cos(string).]],
 398
 399   [[sin(60 / 180 * 3.14159)], [0.87]],
 400   [[sin(45 / 180 * 3.14159)], [0.71]],
 401   [[sin(30 / 180 * 3.14159)], [0.50]],
 402   [[sin(15 / 180 * 3.14159)], [0.26]],
 403   [[sin(-60 / 180 * 3.14159)], [-0.87]],
 404   [[sin(-45 / 180 * 3.14159)], [-0.71]],
 405   [[sin(-30 / 180 * 3.14159)], [-0.50]],
 406   [[sin(-15 / 180 * 3.14159)], [-0.26]],
 407   [[sin(123 / 180 * 3.14159)], [0.84]],
 408   [[sin(321 / 180 * 3.14159)], [-0.63]],
 409   [[sin('x')], [error],
 410    [error: DEBUG EVALUATE: Type mismatch invoking SIN(number) as sin(string).]],
 411
 412   [[tan(60 / 180 * 3.14159)], [1.73]],
 413   [[tan(45 / 180 * 3.14159)], [1.00]],
 414   [[tan(30 / 180 * 3.14159)], [0.58]],
 415   [[tan(15 / 180 * 3.14159)], [0.27]],
 416   [[tan(-60 / 180 * 3.14159)], [-1.73]],
 417   [[tan(-45 / 180 * 3.14159)], [-1.00]],
 418   [[tan(-30 / 180 * 3.14159)], [-0.58]],
 419   [[tan(-15 / 180 * 3.14159)], [-0.27]],
 420   [[tan(123 / 180 * 3.14159)], [-1.54]],
 421   [[tan(321 / 180 * 3.14159)], [-0.81]],
 422   [[tan('x')], [error],
 423    [error: DEBUG EVALUATE: Type mismatch invoking TAN(number) as tan(string).]])
 424 # FIXME: a variable name as the argument to SYSMIS is a special case
 425 # that we don't yet test.  We also can't test VALUE this way.
 426 CHECK_EXPR_EVAL([missing nmiss nvalid sysmis any range max min],
 427   [[missing(10)], [false]],
 428   [[missing($sysmis)], [true]],
 429   [[missing(asin(1.01))], [true]],
 430   [[missing(asin(.5))], [false]],
 431   [[missing('    ')], [error],
 432    [error: DEBUG EVALUATE: Type mismatch invoking MISSING(number) as missing(string).]],
 433
 434   [[nmiss($sysmis)], [1.00]],
 435   [[nmiss(0)], [0.00]],
 436   [[nmiss($sysmis, $sysmis, $sysmis)], [3.00]],
 437   [[nmiss(1, 2, 3, 4)], [0.00]],
 438   [[nmiss(1, $sysmis, $sysmis, 2, 2, $sysmis, $sysmis, 3, 4)], [4.00]],
 439
 440   [[nvalid($sysmis)], [0.00]],
 441   [[nvalid(0)], [1.00]],
 442   [[nvalid($sysmis, $sysmis, $sysmis)], [0.00]],
 443   [[nvalid(1, 2, 3, 4)], [4.00]],
 444   [[nvalid(1, $sysmis, $sysmis, 2, 2, $sysmis, $sysmis, 3, 4)], [5.00]],
 445
 446   [[sysmis(10)], [false]],
 447   [[sysmis($sysmis)], [true]],
 448   [[sysmis(asin(1.01))], [true]],
 449   [[sysmis(asin(.5))], [false]],
 450   [[sysmis('    ')], [error],
 451    [error: DEBUG EVALUATE: Function invocation sysmis(string) does not match any known function.  Candidates are:
 452 SYSMIS(num_variable)
 453 SYSMIS(number).]],
 454
 455   [[any($sysmis, 1, $sysmis, 3)], [sysmis]],
 456   [[any(1, 1, 2, 3)], [true]],
 457   [[any(1, $true, 2, 3)], [true]],
 458   [[any(1, $false, 2, 3)], [false]],
 459   [[any(2, 1, 2, 3)], [true]],
 460   [[any(3, 1, 2, 3)], [true]],
 461   [[any(5, 1, 2, 3)], [false]],
 462   [[any(1, 1, 1, 1)], [true]],
 463   [[any($sysmis, 1, 1, 1)], [sysmis]],
 464   [[any(1, $sysmis, $sysmis, $sysmis)], [sysmis]],
 465   [[any($sysmis, $sysmis, $sysmis, $sysmis)], [sysmis]],
 466   [[any(1)], [error],
 467    [error: DEBUG EVALUATE: Function invocation any(number) does not match any known function.  Candidates are:
 468 ANY(number, number[, number]...)
 469 ANY(string, string[, string]...).]],
 470   [[any('1', 2, 3, 4)], [error],
 471    [error: DEBUG EVALUATE: Function invocation any(string, number, number, number) does not match any known function.  Candidates are:
 472 ANY(number, number[, number]...)
 473 ANY(string, string[, string]...).]],
 474   [[any(1, '2', 3, 4)], [error],
 475    [error: DEBUG EVALUATE: Function invocation any(number, string, number, number) does not match any known function.  Candidates are:
 476 ANY(number, number[, number]...)
 477 ANY(string, string[, string]...).]],
 478   [[any(1, 2, '3', 4)], [error],
 479    [error: DEBUG EVALUATE: Function invocation any(number, number, string, number) does not match any known function.  Candidates are:
 480 ANY(number, number[, number]...)
 481 ANY(string, string[, string]...).]],
 482   [[any(1, 2, 3, '4')], [error],
 483    [error: DEBUG EVALUATE: Function invocation any(number, number, number, string) does not match any known function.  Candidates are:
 484 ANY(number, number[, number]...)
 485 ANY(string, string[, string]...).]],
 486
 487   [[any('', 'a', '', 'c')], [true]],
 488   [[any('a', 'a', 'b', 'c')], [true]],
 489   [[any('b', 'a', 'b', 'c')], [true]],
 490   [[any('c', 'a', 'b', 'c')], [true]],
 491   [[any('e', 'a', 'b', 'c')], [false]],
 492   [[any('a', 'a', 'a', 'a')], [true]],
 493   [[any('', 'a', 'a', 'a')], [false]],
 494   [[any('a', '', '', '')], [false]],
 495   [[any('a')], [error],
 496    [error: DEBUG EVALUATE: Function invocation any(string) does not match any known function.  Candidates are:
 497 ANY(number, number[, number]...)
 498 ANY(string, string[, string]...).]],
 499   [[any('a', 'a  ', 'b', 'c')], [true]],
 500   [[any('b   ', 'a', 'b', 'c')], [true]],
 501   [[any('c   ', 'a', 'b', 'c     ')], [true]],
 502   [[any(a10, 'b', 'c', 'd')], [error],
 503    [error: DEBUG EVALUATE: Function invocation any(format, string, string, string) does not match any known function.  Candidates are:
 504 ANY(number, number[, number]...)
 505 ANY(string, string[, string]...).]],
 506   [[any('a', b, 'c', 'd')], [error],
 507    [error: DEBUG EVALUATE: Unknown identifier b.]],
 508   [[any('a', 'b', c, 'd')], [error],
 509    [error: DEBUG EVALUATE: Unknown identifier c.]],
 510   [[any('a', 'b', 'c', d)], [error],
 511    [error: DEBUG EVALUATE: Unknown identifier d.]],
 512
 513   [[range(5, 1, 10)], [true]],
 514   [[range(1, 1, 10)], [true]],
 515   [[range(10, 1, 10)], [true]],
 516   [[range(-1, 1, 10)], [false]],
 517   [[range(12, 1, 10)], [false]],
 518   [[range($sysmis, 1, 10)], [sysmis]],
 519   [[range(5, 1, $sysmis)], [sysmis]],
 520   [[range(5, $sysmis, 10)], [sysmis]],
 521   [[range($sysmis, $sysmis, 10)], [sysmis ]],
 522   [[range($sysmis, 1, $sysmis)], [sysmis]],
 523   [[range($sysmis, $sysmis, $sysmis)], [sysmis]],
 524   [[range(0, 1, 8, 10, 18)], [false]],
 525   [[range(1, 1, 8, 10, 18)], [true]],
 526   [[range(6, 1, 8, 10, 18)], [true]],
 527   [[range(8, 1, 8, 10, 18)], [true]],
 528   [[range(9, 1, 8, 10, 18)], [false]],
 529   [[range(10, 1, 8, 10, 18)], [true]],
 530   [[range(13, 1, 8, 10, 18)], [true]],
 531   [[range(16, 1, 8, 10, 18)], [true]],
 532   [[range(18, 1, 8, 10, 18)], [true]],
 533   [[range(20, 1, 8, 10, 18)], [false]],
 534   [[range(1)], [error],
 535    [error: DEBUG EVALUATE: Function invocation range(number) does not match any known function.  Candidates are:
 536 RANGE(number, number, number[, number, number]...)
 537 RANGE(string, string, string[, string, string]...).]],
 538   [[range(1, 2)], [error],
 539    [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
 540   [[range(1, 2, 3, 4)], [error],
 541    [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
 542   [[range(1, 2, 3, 4, 5, 6)], [error],
 543    [error: DEBUG EVALUATE: RANGE(number, number, number[, number, number]...) must have an even number of arguments in list.]],
 544   [[range('1', 2, 3)], [error],
 545    [error: DEBUG EVALUATE: Function invocation range(string, number, number) does not match any known function.  Candidates are:
 546 RANGE(number, number, number[, number, number]...)
 547 RANGE(string, string, string[, string, string]...).]],
 548   [[range(1, '2', 3)], [error],
 549    [error: DEBUG EVALUATE: Function invocation range(number, string, number) does not match any known function.  Candidates are:
 550 RANGE(number, number, number[, number, number]...)
 551 RANGE(string, string, string[, string, string]...).]],
 552   [[range(1, 2, '3')], [error],
 553    [error: DEBUG EVALUATE: Function invocation range(number, number, string) does not match any known function.  Candidates are:
 554 RANGE(number, number, number[, number, number]...)
 555 RANGE(string, string, string[, string, string]...).]],
 556
 557   [[range('123', '111', '888')], [true]],
 558   [[range('111', '111', '888')], [true]],
 559   [[range('888', '111', '888')], [true]],
 560   [[range('110', '111', '888')], [false]],
 561   [[range('889', '111', '888')], [false]],
 562   [[range('000', '111', '888')], [false]],
 563   [[range('999', '111', '888')], [false]],
 564   [[range('123   ', '111', '888')], [true]],
 565   [[range('123', '111   ', '888')], [true]],
 566   [[range('123', '111', '888   ')], [true]],
 567   [[range('123', '111    ', '888   ')], [true]],
 568   [[range('00', '01', '08', '10', '18')], [false]],
 569   [[range('01', '01', '08', '10', '18')], [true]],
 570   [[range('06', '01', '08', '10', '18')], [true]],
 571   [[range('08', '01', '08', '10', '18')], [true]],
 572   [[range('09', '01', '08', '10', '18')], [false]],
 573   [[range('10', '01', '08', '10', '18')], [true]],
 574   [[range('15', '01', '08', '10', '18')], [true]],
 575   [[range('18', '01', '08', '10', '18')], [true]],
 576   [[range('19', '01', '08', '10', '18')], [false]],
 577   [[range('1')], [error],
 578    [error: DEBUG EVALUATE: Function invocation range(string) does not match any known function.  Candidates are:
 579 RANGE(number, number, number[, number, number]...)
 580 RANGE(string, string, string[, string, string]...).]],
 581   [[range('1', '2')], [error],
 582    [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
 583   [[range('1', '2', '3', '4')], [error],
 584    [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
 585   [[range('1', '2', '3', '4', '5', '6')], [error],
 586    [error: DEBUG EVALUATE: RANGE(string, string, string[, string, string]...) must have an even number of arguments in list.]],
 587   [[range(1, '2', '3')], [error],
 588    [error: DEBUG EVALUATE: Function invocation range(number, string, string) does not match any known function.  Candidates are:
 589 RANGE(number, number, number[, number, number]...)
 590 RANGE(string, string, string[, string, string]...).]],
 591   [[range('1', 2, '3')], [error],
 592    [error: DEBUG EVALUATE: Function invocation range(string, number, string) does not match any known function.  Candidates are:
 593 RANGE(number, number, number[, number, number]...)
 594 RANGE(string, string, string[, string, string]...).]],
 595   [[range('1', '2', 3)], [error],
 596    [error: DEBUG EVALUATE: Function invocation range(string, string, number) does not match any known function.  Candidates are:
 597 RANGE(number, number, number[, number, number]...)
 598 RANGE(string, string, string[, string, string]...).]],
 599
 600   [[max(1, 2, 3, 4, 5)], [5.00]],
 601   [[max(1, $sysmis, 2, 3, $sysmis, 4, 5)], [5.00]],
 602   [[max(1, 2)], [2.00]],
 603   [[max()], [error],
 604    [error: DEBUG EVALUATE: Function invocation max() does not match any known function.  Candidates are:
 605 MAX(number[, number]...)
 606 MAX(string[, string]...).]],
 607   [[max(1)], [1.00]],
 608   [[max(1, $sysmis)], [1.00]],
 609   [[max(1, 2, 3, $sysmis)], [3.00]],
 610   [[max.4(1, 2, 3, $sysmis)], [sysmis]],
 611   [[max.4(1, 2, 3)], [error],
 612    [error: DEBUG EVALUATE: With MAX(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 613
 614   [[max("2", "3", "5", "1", "4")], ["5"]],
 615   [[max("1", "2")], ["2"]],
 616   [[max("1")], ["1"]],
 617
 618   [[min(1, 2, 3, 4, 5)], [1.00]],
 619   [[min(1, $sysmis, 2, 3, $sysmis, 4, 5)], [1.00]],
 620   [[min(1, 2)], [1.00]],
 621   [[min()], [error],
 622    [error: DEBUG EVALUATE: Function invocation min() does not match any known function.  Candidates are:
 623 MIN(number[, number]...)
 624 MIN(string[, string]...).]],
 625   [[min(1)], [1.00]],
 626   [[min(1, $sysmis)], [1.00]],
 627   [[min(1, 2, 3, $sysmis)], [1.00]],
 628   [[min.4(1, 2, 3, $sysmis)], [sysmis]],
 629   [[min.4(1, 2, 3)], [error],
 630    [error: DEBUG EVALUATE: With MIN(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 631
 632   [[min("2", "3", "5", "1", "4")], ["1"]],
 633   [[min("1", "2")], ["1"]],
 634   [[min("1")], ["1"]])
 635
 636 CHECK_EXPR_EVAL([cfvar mean median sd sum variance],
 637   [[cfvar(1, 2, 3, 4, 5)], [0.53]],
 638   [[cfvar(1, $sysmis, 2, 3, $sysmis, 4, 5)], [0.53]],
 639   [[cfvar(1, 2)], [0.47]],
 640   [[cfvar(1)], [error],
 641    [error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(number).]],
 642   [[cfvar(1, $sysmis)], [sysmis]],
 643   [[cfvar(1, 2, 3, $sysmis)], [0.50]],
 644   [[cfvar.4(1, 2, 3, $sysmis)], [sysmis]],
 645   [[cfvar.4(1, 2, 3)], [error],
 646    [error: DEBUG EVALUATE: With CFVAR(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 647   [[cfvar('x')], [error],
 648    [error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(string).]],
 649   [[cfvar('x', 1, 2, 3)], [error],
 650    [error: DEBUG EVALUATE: Type mismatch invoking CFVAR(number, number[, number]...) as cfvar(string, number, number, number).]],
 651
 652   [[mean(1, 2, 3, 4, 5)], [3.00]],
 653   [[mean(1, $sysmis, 2, 3, $sysmis, 4, 5)], [3.00]],
 654   [[mean(1, 2)], [1.50]],
 655   [[mean()], [error],
 656    [error: DEBUG EVALUATE: Type mismatch invoking MEAN(number[, number]...) as mean().]],
 657   [[mean(1)], [1.00]],
 658   [[mean(1, $sysmis)], [1.00]],
 659   [[mean(1, 2, 3, $sysmis)], [2.00]],
 660   [[mean.4(1, 2, 3, $sysmis)], [sysmis]],
 661   [[mean.4(1, 2, 3)], [error],
 662    [error: DEBUG EVALUATE: With MEAN(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 663
 664   [[median(1, 2, 3, 4, 5)], [3.00]],
 665   [[median(2, 3, 4, 5, 1)], [3.00]],
 666   [[median(2, 3, 4, 1, 5)], [3.00]],
 667   [[median(2, 1, 4, 5, 3)], [3.00]],
 668   [[median(1, 2, 3, 4)], [2.50]],
 669   [[median(2, 3, 1, 4)], [2.50]],
 670   [[median(2, 3, 4, 1)], [2.50]],
 671   [[median(2, 1, 4, 3)], [2.50]],
 672   [[median(1, $sysmis, 3, 4, 5)], [3.50]],
 673   [[median(2, 3, 4, 5, $sysmis, 1)], [3.00]],
 674   [[median($sysmis, $sysmis, $sysmis, 2, 3, 4, 1, 5)], [3.00]],
 675   [[median(1, 2, 3)], [2.00]],
 676   [[median(1)], [1.00]],
 677   [[median(1, 2)], [1.50]],
 678   [[median(1, 2, $sysmis)], [1.50]],
 679   [[median(1, $sysmis, $sysmis)], [1.00]],
 680   [[median($sysmis, $sysmis, $sysmis)], [sysmis]],
 681   [[median.3(1, 2, $sysmis)], [sysmis]],
 682   [[median.2(1, $sysmis)], [sysmis]],
 683
 684   [[sd(1, 2, 3, 4, 5)], [1.58]],
 685   [[sd(1, $sysmis, 2, 3, $sysmis, 4, 5)], [1.58]],
 686   [[sd(1, 2)], [0.71]],
 687   [[sd(1)], [error],
 688    [error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(number).]],
 689   [[sd(1, $sysmis)], [sysmis]],
 690   [[sd(1, 2, 3, $sysmis)], [1.00]],
 691   [[sd.4(1, 2, 3, $sysmis)], [sysmis]],
 692   [[sd.4(1, 2, 3)], [error],
 693    [error: DEBUG EVALUATE: With SD(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 694   [[sd('x')], [error],
 695    [error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(string).]],
 696   [[sd('x', 1, 2, 3)], [error],
 697    [error: DEBUG EVALUATE: Type mismatch invoking SD(number, number[, number]...) as sd(string, number, number, number).]],
 698
 699   [[sum(1, 2, 3, 4, 5)], [15.00]],
 700   [[sum(1, $sysmis, 2, 3, $sysmis, 4, 5)], [15.00]],
 701   [[sum(1, 2)], [3.00]],
 702   [[sum()], [error],
 703    [error: DEBUG EVALUATE: Type mismatch invoking SUM(number[, number]...) as sum().]],
 704   [[sum(1)], [1.00]],
 705   [[sum(1, $sysmis)], [1.00]],
 706   [[sum(1, 2, 3, $sysmis)], [6.00]],
 707   [[sum.4(1, 2, 3, $sysmis)], [sysmis]],
 708   [[sum.4(1, 2, 3)], [error],
 709    [error: DEBUG EVALUATE: With SUM(number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 710
 711   [[variance(1, 2, 3, 4, 5)], [2.50]],
 712   [[variance(1, $sysmis, 2, 3, $sysmis, 4, 5)], [2.50]],
 713   [[variance(1, 2)], [0.50]],
 714   [[variance(1)], [error],
 715    [error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(number).]],
 716   [[variance(1, $sysmis)], [sysmis]],
 717   [[variance(1, 2, 3, $sysmis)], [1.00]],
 718   [[variance.4(1, 2, 3, $sysmis)], [sysmis]],
 719   [[variance.4(1, 2, 3)], [error],
 720    [error: DEBUG EVALUATE: With VARIANCE(number, number[, number]...), using minimum valid argument count of 4 does not make sense when passing only 3 arguments in list.]],
 721   [[variance('x')], [error],
 722    [error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(string).]],
 723   [[variance('x', 1, 2, 3)], [error],
 724    [error: DEBUG EVALUATE: Type mismatch invoking VARIANCE(number, number[, number]...) as variance(string, number, number, number).]])
 725
 726 CHECK_EXPR_EVAL([concat index rindex length lower],
 727   [[concat('')], [""]],
 728   [[concat('a', 'b')], ["ab"]],
 729   [[concat('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h')], ["abcdefgh"]],
 730   [[concat('abcdefgh', 'ijklmnopq')], ["abcdefghijklmnopq"]],
 731   [[concat('a', 1)], [error],
 732    [error: DEBUG EVALUATE: Type mismatch invoking CONCAT(string[, string]...) as concat(string, number).]],
 733   [[concat(1, 2)], [error],
 734    [error: DEBUG EVALUATE: Type mismatch invoking CONCAT(string[, string]...) as concat(number, number).]],
 735
 736   [[index('abcbcde', 'bc')], [2.00]],
 737   [[index('abcbcde', 'bcd')], [4.00]],
 738   [[index('abcbcde', 'bcbc')], [2.00]],
 739   [[index('abcdefgh', 'abc')], [1.00]],
 740   [[index('abcdefgh', 'bcd')], [2.00]],
 741   [[index('abcdefgh', 'cde')], [3.00]],
 742   [[index('abcdefgh', 'def')], [4.00]],
 743   [[index('abcdefgh', 'efg')], [5.00]],
 744   [[index('abcdefgh', 'fgh')], [6.00]],
 745   [[index('abcdefgh', 'fghi')], [0.00]],
 746   [[index('abcdefgh', 'x')], [0.00]],
 747   [[index('abcdefgh', 'abch')], [0.00]],
 748   [[index('banana', 'na')], [3.00]],
 749   [[index('banana', 'ana')], [2.00]],
 750   [[index('', 'x')], [0.00]],
 751   [[index('', '')], [sysmis]],
 752   [[index('abcdefgh', '')], [sysmis]],
 753   [[index('abcdefgh', 'alkjsfdjlskalkjfa')], [0.00]],
 754
 755   [[index('abcbcde', 'bc', 1)], [2.00]],
 756   [[index('abcbcde', 'dc', 1)], [3.00]],
 757   [[index('abcbcde', 'abc', 1)], [1.00]],
 758   [[index('abcbcde', 'bc', 2)], [2.00]],
 759   [[index('abcbcde', 'dc', 2)], [0.00]],
 760   [[index('abcbcde', 'abc', 1)], [1.00]],
 761   [[index('abcbcde', 'bccb', 2)], [2.00]],
 762   [[index('abcbcde', 'bcbc', 2)], [2.00]],
 763   [[index('abcbcde', 'bcbc', $sysmis)], [sysmis]],
 764
 765   [[rindex('abcbcde', 'bc')], [4.00]],
 766   [[rindex('abcbcde', 'bcd')], [4.00]],
 767   [[rindex('abcbcde', 'bcbc')], [2.00]],
 768   [[rindex('abcdefgh', 'abc')], [1.00]],
 769   [[rindex('abcdefgh', 'bcd')], [2.00]],
 770   [[rindex('abcdefgh', 'cde')], [3.00]],
 771   [[rindex('abcdefgh', 'def')], [4.00]],
 772   [[rindex('abcdefgh', 'efg')], [5.00]],
 773   [[rindex('abcdefgh', 'fgh')], [6.00]],
 774   [[rindex('abcdefgh', 'fghi')], [0.00]],
 775   [[rindex('abcdefgh', 'x')], [0.00]],
 776   [[rindex('abcdefgh', 'abch')], [0.00]],
 777   [[rindex('banana', 'na')], [5.00]],
 778   [[rindex('banana', 'ana')], [4.00]],
 779   [[rindex('', 'x')], [0.00]],
 780   [[rindex('', '')], [sysmis]],
 781   [[rindex('abcdefgh', '')], [sysmis]],
 782   [[rindex('abcdefgh', 'alkjsfdjlskalkjfa')], [0.00]],
 783
 784   [[rindex('abcbcde', 'bc', 1)], [5.00]],
 785   [[rindex('abcbcde', 'dc', 1)], [6.00]],
 786   [[rindex('abcbcde', 'abc', 1)], [5.00]],
 787   [[rindex('abcbcde', 'bc', 2)], [4.00]],
 788   [[rindex('abcbcde', 'dc', 2)], [0.00]],
 789   [[rindex('abcbcde', 'abc', 1)], [5.00]],
 790   [[rindex('abcbcde', 'bccb', 2)], [4.00]],
 791   [[rindex('abcbcde', 'bcbc', 2)], [4.00]],
 792   [[rindex('abcbcde', 'bcbc', 0)], [sysmis]],
 793   [[rindex('abcbcde', 'bcbc', $sysmis)], [sysmis]],
 794   [[rindex('abcbcde', 'bcbcg', 2)], [sysmis]],
 795   [[rindex('abcbcde', 'bcbcg', $sysmis)], [sysmis]],
 796   [[rindex('abcbcde', 'bcbcg', 'x')], [error],
 797    [error: DEBUG EVALUATE: Function invocation rindex(string, string, string) does not match any known function.  Candidates are:
 798 RINDEX(string, string)
 799 RINDEX(string, string, number).]],
 800   [[rindex(1, 'bcdfkjl', 2)], [error],
 801    [error: DEBUG EVALUATE: Function invocation rindex(number, string, number) does not match any known function.  Candidates are:
 802 RINDEX(string, string)
 803 RINDEX(string, string, number).]],
 804   [[rindex('aksj', 2, 2)], [error],
 805    [error: DEBUG EVALUATE: Function invocation rindex(string, number, number) does not match any known function.  Candidates are:
 806 RINDEX(string, string)
 807 RINDEX(string, string, number).]],
 808   [[rindex(1, 2, 3)], [error],
 809    [error: DEBUG EVALUATE: Function invocation rindex(number, number, number) does not match any known function.  Candidates are:
 810 RINDEX(string, string)
 811 RINDEX(string, string, number).]],
 812   [[rindex(1, 2, '3')], [error],
 813    [error: DEBUG EVALUATE: Function invocation rindex(number, number, string) does not match any known function.  Candidates are:
 814 RINDEX(string, string)
 815 RINDEX(string, string, number).]],
 816
 817   [[length('')], [0.00]],
 818   [[length('a')], [1.00]],
 819   [[length('xy')], [2.00]],
 820   [[length('adsf    ')], [8.00]],
 821   [[length('abcdefghijkl')], [12.00]],
 822   [[length(0)], [error],
 823    [error: DEBUG EVALUATE: Type mismatch invoking LENGTH(string) as length(number).]],
 824   [[length($sysmis)], [error],
 825    [error: DEBUG EVALUATE: Type mismatch invoking LENGTH(string) as length(number).]],
 826
 827   [[lower('ABCDEFGHIJKLMNOPQRSTUVWXYZ!@%&*089')], ["abcdefghijklmnopqrstuvwxyz!@%&*089"]],
 828   [[lower('')], [""]],
 829   [[lower(1)], [error],
 830    [error: DEBUG EVALUATE: Type mismatch invoking LOWER(string) as lower(number).]])
 831
 832 CHECK_EXPR_EVAL([replace],
 833   [[replace('banana', 'an', 'AN')], ["bANANa"]],
 834   [[replace('banana', 'an', 'a')], ["baaa"]],
 835   [[replace('banana', 'an', '')], ["ba"]],
 836   [[replace('banana', 'na', '')], ["ba"]],
 837   [[replace('banana', 'ba', 'BA')], ["BAnana"]],
 838   [[replace('banana', 'na', 'xyzzy')], ["baxyzzyxyzzy"]],
 839   [[replace('banana', 'an', 'xyzzy', 1)], ["bxyzzyana"]],
 840   [[replace('banana', 'an', 'xyzzy', 1.5)], ["bxyzzyana"]],
 841   [[replace('banana', 'bananana', 'xyzzy')], ["banana"]],
 842   [[replace('banana', '', 'xyzzy')], ["banana"]],
 843   [[replace('banana', 'ba', '', 0)], ["banana"]],
 844   [[replace('banana', 'ba', '', -1)], ["banana"]],
 845   [[replace('banana', 'ba', '', $sysmis)], ["banana"]])
 846
 847 CHECK_EXPR_EVAL([lpad number ltrim lpad rtrim rpad string substr upcase],
 848   [[lpad('abc', -1)], [""]],
 849   [[lpad('abc', 0)], ["abc"]],
 850   [[lpad('abc', 2)], ["abc"]],
 851   [[lpad('abc', 3)], ["abc"]],
 852   [[lpad('abc', 10)], ["       abc"]],
 853   [[lpad('abc', 32768)], [""]],
 854   [[lpad('abc', $sysmis)], [""]],
 855   [[lpad('abc', -1, '*')], [""]],
 856   [[lpad('abc', 0, '*')], ["abc"]],
 857   [[lpad('abc', 2, '*')], ["abc"]],
 858   [[lpad('abc', 3, '*')], ["abc"]],
 859   [[lpad('abc', 10, '*')], ["*******abc"]],
 860   [[lpad('abc', 32768, '*')], [""]],
 861   [[lpad('abc', $sysmis, '*')], [""]],
 862   [[lpad('abc', $sysmis, '')], [""]],
 863   [[lpad('abc', $sysmis, 'xy')], [""]],
 864   [[lpad(0, 10)], [error],
 865    [error: DEBUG EVALUATE: Function invocation lpad(number, number) does not match any known function.  Candidates are:
 866 LPAD(string, number)
 867 LPAD(string, number, string).]],
 868   [[lpad('abc', 'def')], [error],
 869    [error: DEBUG EVALUATE: Function invocation lpad(string, string) does not match any known function.  Candidates are:
 870 LPAD(string, number)
 871 LPAD(string, number, string).]],
 872   [[lpad(0, 10, ' ')], [error],
 873    [error: DEBUG EVALUATE: Function invocation lpad(number, number, string) does not match any known function.  Candidates are:
 874 LPAD(string, number)
 875 LPAD(string, number, string).]],
 876   [[lpad('abc', 'def', ' ')], [error],
 877    [error: DEBUG EVALUATE: Function invocation lpad(string, string, string) does not match any known function.  Candidates are:
 878 LPAD(string, number)
 879 LPAD(string, number, string).]],
 880   [[lpad('x', 5, 0)], [error],
 881    [error: DEBUG EVALUATE: Function invocation lpad(string, number, number) does not match any known function.  Candidates are:
 882 LPAD(string, number)
 883 LPAD(string, number, string).]],
 884   [[lpad('x', 5, 2)], [error],
 885    [error: DEBUG EVALUATE: Function invocation lpad(string, number, number) does not match any known function.  Candidates are:
 886 LPAD(string, number)
 887 LPAD(string, number, string).]],
 888
 889   [[number("123", f3.0)], [123.00]],
 890   [[number(" 123", f3.0)], [12.00]],
 891   [[number("123", f3.1)], [12.30]],
 892   [[number("   ", f3.1)], [sysmis]],
 893   [[number("123", a8)], [error],
 894    [error: DEBUG EVALUATE: Type mismatch invoking NUMBER(string, num_input_format) as number(string, format).]],
 895 dnl CCA is not an input format:
 896   [[number("123", cca1.2)], [error],
 897    [error: DEBUG EVALUATE: Type mismatch invoking NUMBER(string, num_input_format) as number(string, format).]],
 898
 899   [[ltrim('   abc')], ["abc"]],
 900   [[rtrim('   abc   ')], ["   abc"]],
 901   [[ltrim('abc')], ["abc"]],
 902   [[ltrim('     abc')], ["      abc"]],
 903   [[ltrim('    ')], [""]],
 904   [[ltrim('')], [""]],
 905   [[ltrim(8)], [error],
 906    [error: DEBUG EVALUATE: Function invocation ltrim(number) does not match any known function.  Candidates are:
 907 LTRIM(string)
 908 LTRIM(string, string).]],
 909   [[ltrim('***abc', '*')], ["abc"]],
 910   [[ltrim('abc', '*')], ["abc"]],
 911   [[ltrim('*abc', '*')], ["abc"]],
 912   [[ltrim('', '*')], [""]],
 913   [[ltrim(8, '*')], [error],
 914    [error: DEBUG EVALUATE: Function invocation ltrim(number, string) does not match any known function.  Candidates are:
 915 LTRIM(string)
 916 LTRIM(string, string).]],
 917   [[ltrim(' x', 8)], [error],
 918    [error: DEBUG EVALUATE: Function invocation ltrim(string, number) does not match any known function.  Candidates are:
 919 LTRIM(string)
 920 LTRIM(string, string).]],
 921   [[ltrim(8, 9)], [error],
 922    [error: DEBUG EVALUATE: Function invocation ltrim(number, number) does not match any known function.  Candidates are:
 923 LTRIM(string)
 924 LTRIM(string, string).]],
 925
 926   [[rpad('abc', -1)], [""]],
 927   [[rpad('abc', 0)], ["abc"]],
 928   [[rpad('abc', 2)], ["abc"]],
 929   [[rpad('abc', 3)], ["abc"]],
 930   [[rpad('abc', 10)], ["abc       "]],
 931   [[rpad('abc', 32768)], [""]],
 932   [[rpad('abc', $sysmis)], [""]],
 933   [[rpad('abc', -1, '*')], [""]],
 934   [[rpad('abc', 0, '*')], ["abc"]],
 935   [[rpad('abc', 2, '*')], ["abc"]],
 936   [[rpad('abc', 3, '*')], ["abc"]],
 937   [[rpad('abc', 10, '*')], ["abc*******"]],
 938   [[rpad('abc', 32768, '*')], [""]],
 939   [[rpad('abc', $sysmis, '*')], [""]],
 940   [[rpad('abc', $sysmis, '')], [""]],
 941   [[rpad('abc', $sysmis, 'xy')], [""]],
 942   [[rpad(0, 10)], [error],
 943    [error: DEBUG EVALUATE: Function invocation rpad(number, number) does not match any known function.  Candidates are:
 944 RPAD(string, number)
 945 RPAD(string, number, string).]],
 946   [[rpad('abc', 'def')], [error],
 947    [error: DEBUG EVALUATE: Function invocation rpad(string, string) does not match any known function.  Candidates are:
 948 RPAD(string, number)
 949 RPAD(string, number, string).]],
 950   [[rpad(0, 10, ' ')], [error],
 951    [error: DEBUG EVALUATE: Function invocation rpad(number, number, string) does not match any known function.  Candidates are:
 952 RPAD(string, number)
 953 RPAD(string, number, string).]],
 954   [[rpad('abc', 'def', ' ')], [error],
 955    [error: DEBUG EVALUATE: Function invocation rpad(string, string, string) does not match any known function.  Candidates are:
 956 RPAD(string, number)
 957 RPAD(string, number, string).]],
 958   [[rpad('x', 5, 0)], [error],
 959    [error: DEBUG EVALUATE: Function invocation rpad(string, number, number) does not match any known function.  Candidates are:
 960 RPAD(string, number)
 961 RPAD(string, number, string).]],
 962   [[rpad('x', 5, 2)], [error],
 963    [error: DEBUG EVALUATE: Function invocation rpad(string, number, number) does not match any known function.  Candidates are:
 964 RPAD(string, number)
 965 RPAD(string, number, string).]],
 966
 967   [[rtrim('abc   ')], ["abc"]],
 968   [[rtrim('   abc   ')], ["   abc"]],
 969   [[rtrim('abc')], ["abc"]],
 970   [[rtrim('abc  ')], ["abc      "]],
 971   [[rtrim('    ')], [""]],
 972   [[rtrim('')], [""]],
 973   [[rtrim(8)], [error],
 974    [error: DEBUG EVALUATE: Function invocation rtrim(number) does not match any known function.  Candidates are:
 975 RTRIM(string)
 976 RTRIM(string, string).]],
 977   [[rtrim('abc***', '*')], ["abc"]],
 978   [[rtrim('abc', '*')], ["abc"]],
 979   [[rtrim('abc*', '*')], ["abc"]],
 980   [[rtrim('', '*')], [""]],
 981   [[rtrim(8, '*')], [error],
 982    [error: DEBUG EVALUATE: Function invocation rtrim(number, string) does not match any known function.  Candidates are:
 983 RTRIM(string)
 984 RTRIM(string, string).]],
 985   [[rtrim(' x', 8)], [error],
 986    [error: DEBUG EVALUATE: Function invocation rtrim(string, number) does not match any known function.  Candidates are:
 987 RTRIM(string)
 988 RTRIM(string, string).]],
 989   [[rtrim(8, 9)], [error],
 990    [error: DEBUG EVALUATE: Function invocation rtrim(number, number) does not match any known function.  Candidates are:
 991 RTRIM(string)
 992 RTRIM(string, string).]],
 993
 994   [[string(123.56, f5.1)], ["123.6"]],
 995   [[string($sysmis, f5.1)], ["   . "]],
 996   [[string("abc", A5)], [error],
 997    [error: DEBUG EVALUATE: Type mismatch invoking STRING(number, num_output_format) as string(string, format).]],
 998 dnl E has a minimum width of 6 on output:
 999   [[string(123, e1)], [error],
1000    [error: DEBUG EVALUATE: Type mismatch invoking STRING(number, num_output_format) as string(number, format).]],
1001   [[string(123, e6.0)], ["1E+002"]],
1002
1003   [[substr('abcdefgh', -5)], [""]],
1004   [[substr('abcdefgh', 0)], [""]],
1005   [[substr('abcdefgh', 1)], ["abcdefgh"]],
1006   [[substr('abcdefgh', 3)], ["cdefgh"]],
1007   [[substr('abcdefgh', 5)], ["efgh"]],
1008   [[substr('abcdefgh', 6)], ["fgh"]],
1009   [[substr('abcdefgh', 7)], ["gh"]],
1010   [[substr('abcdefgh', 8)], ["h"]],
1011   [[substr('abcdefgh', 9)], [""]],
1012   [[substr('abcdefgh', 10)], [""]],
1013   [[substr('abcdefgh', 20)], [""]],
1014   [[substr('abcdefgh', $sysmis)], [""]],
1015   [[substr(0, 10)], [error],
1016    [error: DEBUG EVALUATE: Function invocation substr(number, number) does not match any known function.  Candidates are:
1017 SUBSTR(string, number)
1018 SUBSTR(string, number, number).]],
1019   [[substr('abcd', 'abc')], [error],
1020    [error: DEBUG EVALUATE: Function invocation substr(string, string) does not match any known function.  Candidates are:
1021 SUBSTR(string, number)
1022 SUBSTR(string, number, number).]],
1023   [[substr(0, 'abc')], [error],
1024    [error: DEBUG EVALUATE: Function invocation substr(number, string) does not match any known function.  Candidates are:
1025 SUBSTR(string, number)
1026 SUBSTR(string, number, number).]],
1027
1028   [[substr('abcdefgh', 0, 0)], [""]],
1029   [[substr('abcdefgh', 3, 0)], [""]],
1030   [[substr('abcdefgh', 5, 0)], [""]],
1031   [[substr('abcdefgh', 9, 0)], [""]],
1032   [[substr('abcdefgh', 0, 1)], [""]],
1033   [[substr('abcdefgh', 0, 5)], [""]],
1034   [[substr('abcdefgh', 1, 8)], ["abcdefgh"]],
1035   [[substr('abcdefgh', 1, 10)], ["abcdefgh"]],
1036   [[substr('abcdefgh', 1, 20)], ["abcdefgh"]],
1037   [[substr('abcdefgh', 3, 4)], ["cdef"]],
1038   [[substr('abcdefgh', 5, 2)], ["ef"]],
1039   [[substr('abcdefgh', 6, 1)], ["f"]],
1040   [[substr('abcdefgh', 7, 10)], ["gh"]],
1041   [[substr('abcdefgh', 8, 1)], ["h"]],
1042   [[substr('abcdefgh', 8, 2)], ["h"]],
1043   [[substr('abcdefgh', 9, 11)], [""]],
1044   [[substr('abcdefgh', 10, 52)], [""]],
1045   [[substr('abcdefgh', 20, 1)], [""]],
1046   [[substr('abcdefgh', $sysmis, 2)], [""]],
1047   [[substr('abcdefgh', 9, $sysmis)], [""]],
1048   [[substr('abcdefgh', $sysmis, $sysmis)], [""]],
1049   [[substr('abc', 1, 'x')], [error],
1050    [error: DEBUG EVALUATE: Function invocation substr(string, number, string) does not match any known function.  Candidates are:
1051 SUBSTR(string, number)
1052 SUBSTR(string, number, number).]],
1053   [[substr(0, 10, 1)], [error],
1054    [error: DEBUG EVALUATE: Function invocation substr(number, number, number) does not match any known function.  Candidates are:
1055 SUBSTR(string, number)
1056 SUBSTR(string, number, number).]],
1057   [[substr(0, 10, 'x')], [error],
1058    [error: DEBUG EVALUATE: Function invocation substr(number, number, string) does not match any known function.  Candidates are:
1059 SUBSTR(string, number)
1060 SUBSTR(string, number, number).]],
1061   [[substr('abcd', 'abc', 0)], [error],
1062    [error: DEBUG EVALUATE: Function invocation substr(string, string, number) does not match any known function.  Candidates are:
1063 SUBSTR(string, number)
1064 SUBSTR(string, number, number).]],
1065   [[substr('abcd', 'abc', 'j')], [error],
1066    [error: DEBUG EVALUATE: Function invocation substr(string, string, string) does not match any known function.  Candidates are:
1067 SUBSTR(string, number)
1068 SUBSTR(string, number, number).]],
1069   [[substr(0, 'abc', 4)], [error],
1070    [error: DEBUG EVALUATE: Function invocation substr(number, string, number) does not match any known function.  Candidates are:
1071 SUBSTR(string, number)
1072 SUBSTR(string, number, number).]],
1073   [[substr(0, 'abc', 'k')], [error],
1074    [error: DEBUG EVALUATE: Function invocation substr(number, string, string) does not match any known function.  Candidates are:
1075 SUBSTR(string, number)
1076 SUBSTR(string, number, number).]],
1077
1078   [[upcase('abcdefghijklmnopqrstuvwxyz!@%&*089')], ["ABCDEFGHIJKLMNOPQRSTUVWXYZ!@%&*089"]],
1079   [[upcase('')], [""]],
1080   [[upcase(1)], [error],
1081    [error: DEBUG EVALUATE: Type mismatch invoking UPCASE(string) as upcase(number).]])
1082
1083 CHECK_EXPR_EVAL([time ctime date yrmoda],
1084   [[time.days(1)], [86400.00]],
1085   [[time.days(-1)], [-86400.00]],
1086   [[time.days(0.5)], [43200.00]],
1087   [[time.days('x')], [error],
1088    [error: DEBUG EVALUATE: Type mismatch invoking TIME.DAYS(number) as time.days(string).]],
1089   [[time.days($sysmis)], [sysmis]],
1090
1091   [[time.hms(4,50,38)], [17438.00]],
1092   [[time.hms(12,31,35)], [45095.00]],
1093   [[time.hms(12,47,53)], [46073.00]],
1094   [[time.hms(1,26,0)], [5160.00]],
1095   [[time.hms(20,58,11)], [75491.00]],
1096   [[time.hms(7,36,5)], [27365.00]],
1097   [[time.hms(15,43,49)], [56629.00]],
1098   [[time.hms(4,25,9)], [15909.00]],
1099   [[time.hms(6,49,27)], [24567.00]],
1100   [[time.hms(2,57,52)], [10672.00]],
1101   [[time.hms(16,45,44)], [60344.00]],
1102   [[time.hms(21,30,57)], [77457.00]],
1103   [[time.hms(22,30,4)], [81004.00]],
1104   [[time.hms(1,56,51)], [7011.00]],
1105   [[time.hms(5, 6, 7)], [18367.00]],
1106   [[time.hms(5, 6, 0)], [18360.00]],
1107   [[time.hms(5, 0, 7)], [18007.00]],
1108   [[time.hms(0, 6, 7)], [367.00]],
1109   [[time.hms(-5, 6, -7)], [sysmis],
1110    [warning: DEBUG EVALUATE: TIME.HMS cannot mix positive and negative arguments.]],
1111   [[time.hms(-5, 5, -7)], [sysmis],
1112    [warning: DEBUG EVALUATE: TIME.HMS cannot mix positive and negative arguments.]],
1113   [[time.hms($sysmis, 6, 7)], [sysmis]],
1114   [[time.hms(5, $sysmis, 7)], [sysmis]],
1115   [[time.hms(5, $sysmis, 7)], [sysmis]],
1116   [[time.hms($sysmis, $sysmis, 7)], [sysmis]],
1117   [[time.hms(5, $sysmis, $sysmis)], [sysmis]],
1118   [[time.hms($sysmis, $sysmis, 7)], [sysmis]],
1119   [[time.hms($sysmis, $sysmis, $sysmis)], [sysmis]],
1120
1121   [[ctime.days(106272)], [1.23]],
1122   [[ctime.hours(106272)], [29.52]],
1123   [[ctime.minutes(106272)], [1771.20]],
1124   [[ctime.seconds(106272)], [106272.00]],
1125   [[ctime.days(-106272)], [-1.23]],
1126   [[ctime.hours(-106272)], [-29.52]],
1127   [[ctime.minutes(-106272)], [-1771.20]],
1128   [[ctime.seconds(-106272)], [-106272.00]],
1129   [[ctime.days($sysmis)], [sysmis]],
1130   [[ctime.hours($sysmis)], [sysmis]],
1131   [[ctime.minutes($sysmis)], [sysmis]],
1132   [[ctime.seconds($sysmis)], [sysmis]],
1133   [[ctime.days('a')], [error],
1134    [error: DEBUG EVALUATE: Type mismatch invoking CTIME.DAYS(number) as ctime.days(string).]],
1135   [[ctime.hours('b')], [error],
1136    [error: DEBUG EVALUATE: Type mismatch invoking CTIME.HOURS(number) as ctime.hours(string).]],
1137   [[ctime.minutes('c')], [error],
1138    [error: DEBUG EVALUATE: Type mismatch invoking CTIME.MINUTES(number) as ctime.minutes(string).]],
1139   [[ctime.seconds('d')], [error],
1140    [error: DEBUG EVALUATE: Type mismatch invoking CTIME.SECONDS(number) as ctime.seconds(string).]],
1141
1142   [[ctime.days(date.dmy(15,10,1582))], [1.00]],
1143   [[ctime.days(date.dmy(6,9,1719))], [50000.00]],
1144   [[ctime.days(date.dmy(24,1,1583))], [102.00]],
1145   [[ctime.days(date.dmy(14,12,1585))], [1157.00]],
1146   [[ctime.days(date.dmy(26,11,1621))], [14288.00]],
1147   [[ctime.days(date.dmy(25,12,1821))], [87365.00]],
1148   [[ctime.days(date.dmy(3,12,1882))], [109623.00]],
1149   [[ctime.days(date.dmy(6,4,2002))], [153211.00]],
1150   [[ctime.days(date.dmy(19,12,1999))], [152372.00]],
1151   [[ctime.days(date.dmy(1,10,1978))], [144623.00]],
1152   [[ctime.days(date.dmy(0,10,1978))], [144622.00]],
1153   [[ctime.days(date.dmy(32,10,1978))], [sysmis],
1154    [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
1155   [[ctime.days(date.dmy(31,0,1978))], [144349.00]],
1156   [[ctime.days(date.dmy(31,13,1978))], [144745.00]],
1157   [[ctime.days(date.dmy($sysmis,10,1978))], [sysmis]],
1158   [[ctime.days(date.dmy(31,$sysmis,1978))], [sysmis]],
1159   [[ctime.days(date.dmy(31,10,$sysmis))], [sysmis]],
1160   [[ctime.days(date.dmy($sysmis,$sysmis,1978))], [sysmis]],
1161   [[ctime.days(date.dmy(31,$sysmis,$sysmis))], [sysmis]],
1162   [[ctime.days(date.dmy($sysmis,10,$sysmis))], [sysmis]],
1163   [[ctime.days(date.dmy($sysmis,$sysmis,$sysmis))], [sysmis]],
1164   [[date.dmy('a',1,2)], [error],
1165    [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(string, number, number).]],
1166   [[date.dmy(1,'a',2)], [error],
1167    [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(number, string, number).]],
1168   [[date.dmy(1,2,'a')], [error],
1169    [error: DEBUG EVALUATE: Type mismatch invoking DATE.DMY(number, number, number) as date.dmy(number, number, string).]],
1170 dnl FIXME: check out-of-range and nearly out-of-range values
1171 dnl
1172   [[yrmoda(1582,10,15)], [1.00]],
1173   [[yrmoda(1719,9,6)], [50000.00]],
1174   [[yrmoda(1583,1,24)], [102.00]],
1175   [[yrmoda(1585,12,14)], [1157.00]],
1176   [[yrmoda(1621,11,26)], [14288.00]],
1177   [[yrmoda(1821,12,25)], [87365.00]],
1178   [[yrmoda(1882,12,3)], [109623.00]],
1179   [[yrmoda(2002,4,6)], [153211.00]],
1180   [[yrmoda(1999,12,19)], [152372.00]],
1181   [[yrmoda(1978,10,1)], [144623.00]],
1182   [[yrmoda(1978,10,0)], [144622.00]],
1183   [[yrmoda(1978,10,32)], [sysmis],
1184    [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
1185   [[yrmoda(1978,0,31)], [144349.00]],
1186   [[yrmoda(1978,13,31)], [144745.00]],
1187   [[yrmoda(1978,10,$sysmis)], [sysmis]],
1188   [[yrmoda(1978,$sysmis,31)], [sysmis]],
1189   [[yrmoda($sysmis,10,31)], [sysmis]],
1190   [[yrmoda(1978,$sysmis,$sysmis)], [sysmis]],
1191   [[yrmoda($sysmis,$sysmis,31)], [sysmis]],
1192   [[yrmoda($sysmis,10,$sysmis)], [sysmis]],
1193   [[yrmoda($sysmis,$sysmis,$sysmis)], [sysmis]],
1194   [[yrmoda('a',1,2)], [error],
1195    [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(string, number, number).]],
1196   [[yrmoda(1,'a',2)], [error],
1197    [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(number, string, number).]],
1198   [[yrmoda(1,2,'a')], [error],
1199    [error: DEBUG EVALUATE: Type mismatch invoking YRMODA(number, number, number) as yrmoda(number, number, string).]],
1200 dnl FIXME: check out-of-range and nearly out-of-range values
1201 dnl
1202   [[ctime.days(date.mdy(6,10,1648)) + 577735], [601716.00]],
1203   [[ctime.days(date.mdy(6,30,1680)) + 577735], [613424.00]],
1204   [[ctime.days(date.mdy(7,24,1716)) + 577735], [626596.00]],
1205   [[ctime.days(date.mdy(6,19,1768)) + 577735], [645554.00]],
1206   [[ctime.days(date.mdy(8,2,1819)) + 577735], [664224.00]],
1207   [[ctime.days(date.mdy(3,27,1839)) + 577735], [671401.00]],
1208   [[ctime.days(date.mdy(4,19,1903)) + 577735], [694799.00]],
1209   [[ctime.days(date.mdy(8,25,1929)) + 577735], [704424.00]],
1210   [[ctime.days(date.mdy(9,29,1941)) + 577735], [708842.00]],
1211   [[ctime.days(date.mdy(4,19,1943)) + 577735], [709409.00]],
1212   [[ctime.days(date.mdy(10,7,1943)) + 577735], [709580.00]],
1213   [[ctime.days(date.mdy(3,17,1992)) + 577735], [727274.00]],
1214   [[ctime.days(date.mdy(2,25,1996)) + 577735], [728714.00]],
1215   [[ctime.days(date.mdy(11,10,2038)) + 577735], [744313.00]],
1216   [[ctime.days(date.mdy(7,18,2094)) + 577735], [764652.00]],
1217 dnl FIXME: check out-of-range and nearly out-of-range values
1218 dnl
1219   [[ctime.days(date.mdy(10,15,1582))], [1.00]],
1220   [[ctime.days(date.mdy(9,6,1719))], [50000.00]],
1221   [[ctime.days(date.mdy(1,24,1583))], [102.00]],
1222   [[ctime.days(date.mdy(12,14,1585))], [1157.00]],
1223   [[ctime.days(date.mdy(11,26,1621))], [14288.00]],
1224   [[ctime.days(date.mdy(12,25,1821))], [87365.00]],
1225   [[ctime.days(date.mdy(12,3,1882))], [109623.00]],
1226   [[ctime.days(date.mdy(4,6,2002))], [153211.00]],
1227   [[ctime.days(date.mdy(12,19,1999))], [152372.00]],
1228   [[ctime.days(date.mdy(10,1,1978))], [144623.00]],
1229   [[ctime.days(date.mdy(10,0,1978))], [144622.00]],
1230   [[ctime.days(date.mdy(10,32,1978))], [sysmis],
1231    [error: DEBUG EVALUATE: Day 32 is not in acceptable range of 0 to 31.]],
1232   [[ctime.days(date.mdy(0,31,1978))], [144349.00]],
1233   [[ctime.days(date.mdy(13,31,1978))], [144745.00]],
1234   [[ctime.days(date.mdy(10,$sysmis,1978))], [sysmis]],
1235   [[ctime.days(date.mdy($sysmis,31,1978))], [sysmis]],
1236   [[ctime.days(date.mdy(10,31,$sysmis))], [sysmis]],
1237   [[ctime.days(date.mdy($sysmis,$sysmis,1978))], [sysmis]],
1238   [[ctime.days(date.mdy($sysmis,31,$sysmis))], [sysmis]],
1239   [[ctime.days(date.mdy(10,$sysmis,$sysmis))], [sysmis]],
1240   [[ctime.days(date.mdy($sysmis,$sysmis,$sysmis))], [sysmis]],
1241   [[date.mdy('a',1,2)], [error],
1242    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(string, number, number).]],
1243   [[date.mdy(1,'a',2)], [error],
1244    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(number, string, number).]],
1245   [[date.mdy(1,2,'a')], [error],
1246    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MDY(number, number, number) as date.mdy(number, number, string).]],
1247   [[ctime.days(date.mdy(0,0,0))], [152353.00]],
1248   [[ctime.days(date.mdy(0,0,999))], [sysmis],
1249    [error: DEBUG EVALUATE: Date 0998-12-0 is before the earliest acceptable date of 1582-10-15.]],
1250   [[date.mdy(1,1,1582)], [sysmis],
1251    [error: DEBUG EVALUATE: Date 1582-1-1 is before the earliest acceptable date of 1582-10-15.]],
1252   [[date.mdy(10,14,1582)], [sysmis],
1253    [error: DEBUG EVALUATE: Date 1582-10-14 is before the earliest acceptable date of 1582-10-15.]],
1254   [[date.mdy(10,15,1582)], [86400.00]],
1255
1256   [[ctime.days(date.moyr(1,2000))], [152385.00]],
1257   [[ctime.days(date.moyr(2,2000))], [152416.00]],
1258   [[ctime.days(date.moyr(3,2000))], [152445.00]],
1259   [[ctime.days(date.moyr(4,2000))], [152476.00]],
1260   [[ctime.days(date.moyr(5,2000))], [152506.00]],
1261   [[ctime.days(date.moyr(13,2000))], [152751.00]],
1262   [[ctime.days(date.moyr(14,2000))], [sysmis],
1263    [error: DEBUG EVALUATE: Month 14 is not in acceptable range of 0 to 13.]],
1264   [[ctime.days(date.moyr($sysmis,2000))], [sysmis]],
1265   [[ctime.days(date.moyr(1,$sysmis))], [sysmis]],
1266   [[ctime.days(date.moyr($sysmis,$sysmis))], [sysmis]],
1267   [[date.moyr('a',2000)], [error],
1268    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(string, number).]],
1269   [[date.moyr(5,'a')], [error],
1270    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(number, string).]],
1271   [[date.moyr('a','b')], [error],
1272    [error: DEBUG EVALUATE: Type mismatch invoking DATE.MOYR(number, number) as date.moyr(string, string).]],
1273
1274   [[ctime.days(date.qyr(1,2000))], [152385.00]],
1275   [[ctime.days(date.qyr(2,2000))], [152476.00]],
1276   [[ctime.days(date.qyr(5,2000))], [sysmis],
1277    [warning: DEBUG EVALUATE: The first argument to DATE.QYR must be 1, 2, 3, or 4.]],
1278   [[ctime.days(date.qyr(6,2000))], [sysmis],
1279    [warning: DEBUG EVALUATE: The first argument to DATE.QYR must be 1, 2, 3, or 4.]],
1280   [[ctime.days(date.qyr($sysmis,2000))], [sysmis]],
1281   [[ctime.days(date.qyr(1,$sysmis))], [sysmis]],
1282   [[ctime.days(date.qyr($sysmis,$sysmis))], [sysmis]],
1283   [[date.qyr('a',2000)], [error],
1284    [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(string, number).]],
1285   [[date.qyr(5,'a')], [error],
1286    [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(number, string).]],
1287   [[date.qyr('a','b')], [error],
1288    [error: DEBUG EVALUATE: Type mismatch invoking DATE.QYR(number, number) as date.qyr(string, string).]],
1289
1290   [[ctime.days(date.wkyr(1,2000))], [152385.00]],
1291   [[ctime.days(date.wkyr(15,1999))], [152118.00]],
1292   [[ctime.days(date.wkyr(36,1999))], [152265.00]],
1293   [[ctime.days(date.wkyr(54,1999))], [sysmis],
1294    [error: DEBUG EVALUATE: The week argument to DATE.WKYR is outside the acceptable range of 1 to 53.  The result will be system-missing.]],
1295   [[ctime.days(date.wkyr($sysmis,1999))], [sysmis]],
1296   [[ctime.days(date.wkyr(1,$sysmis))], [sysmis]],
1297   [[ctime.days(date.wkyr($sysmis,$sysmis))], [sysmis]],
1298   [[date.wkyr('a',1999)], [error],
1299    [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(string, number).]],
1300   [[date.wkyr(5,'a')], [error],
1301    [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(number, string).]],
1302   [[date.wkyr('a','b')], [error],
1303    [error: DEBUG EVALUATE: Type mismatch invoking DATE.WKYR(number, number) as date.wkyr(string, string).]],
1304
1305   [[ctime.days(date.yrday(2000,1))], [152385.00]],
1306   [[ctime.days(date.yrday(2000,100))], [152484.00]],
1307   [[ctime.days(date.yrday(2000,253))], [152637.00]],
1308   [[ctime.days(date.yrday(2000,500))], [sysmis],
1309    [error: DEBUG EVALUATE: The day argument to DATE.YRDAY is outside the acceptable range of 1 to 366.  The result will be system-missing.]],
1310   [[ctime.days(date.yrday(2000,-100))], [sysmis],
1311    [error: DEBUG EVALUATE: The day argument to DATE.YRDAY is outside the acceptable range of 1 to 366.  The result will be system-missing.]],
1312   [[ctime.days(date.yrday(1999,$sysmis))], [sysmis]],
1313   [[ctime.days(date.yrday($sysmis,1))], [sysmis]],
1314   [[ctime.days(date.yrday($sysmis,$sysmis))], [sysmis]],
1315   [[date.yrday(1999,'a')], [error],
1316    [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(number, string).]],
1317   [[date.yrday('a',5)], [error],
1318    [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(string, number).]],
1319   [[date.yrday('a','b')], [error],
1320    [error: DEBUG EVALUATE: Type mismatch invoking DATE.YRDAY(number, number) as date.yrday(string, string).]])
1321
1322 CHECK_EXPR_EVAL([xdate],
1323   [[xdate.date(date.mdy(6,10,1648) + time.hms(0,0,0)) / 86400], [23981.00]],
1324   [[xdate.date(date.mdy(6,30,1680) + time.hms(4,50,38)) / 86400], [35689.00]],
1325   [[xdate.date(date.mdy(7,24,1716) + time.hms(12,31,35)) / 86400], [48861.00]],
1326   [[xdate.date(date.mdy(6,19,1768) + time.hms(12,47,53)) / 86400], [67819.00]],
1327   [[xdate.date(date.mdy(8,2,1819) + time.hms(1,26,0)) / 86400], [86489.00]],
1328   [[xdate.date(date.mdy(3,27,1839) + time.hms(20,58,11)) / 86400], [93666.00]],
1329   [[xdate.date(date.mdy(4,19,1903) + time.hms(7,36,5)) / 86400], [117064.00]],
1330   [[xdate.date(date.mdy(8,25,1929) + time.hms(15,43,49)) / 86400], [126689.00]],
1331   [[xdate.date(date.mdy(9,29,1941) + time.hms(4,25,9)) / 86400], [131107.00]],
1332   [[xdate.date(date.mdy(4,19,1943) + time.hms(6,49,27)) / 86400], [131674.00]],
1333   [[xdate.date(date.mdy(10,7,1943) + time.hms(2,57,52)) / 86400], [131845.00]],
1334   [[xdate.date(date.mdy(3,17,1992) + time.hms(16,45,44)) / 86400], [149539.00]],
1335   [[xdate.date(date.mdy(2,25,1996) + time.hms(21,30,57)) / 86400], [150979.00]],
1336   [[xdate.date(date.mdy(9,29,1941) + time.hms(4,25,9)) / 86400], [131107.00]],
1337   [[xdate.date(date.mdy(4,19,43) + time.hms(6,49,27)) / 86400], [131674.00]],
1338   [[xdate.date(date.mdy(10,7,43) + time.hms(2,57,52)) / 86400], [131845.00]],
1339   [[xdate.date(date.mdy(3,17,92) + time.hms(16,45,44)) / 86400], [149539.00]],
1340   [[xdate.date(date.mdy(2,25,96) + time.hms(21,30,57)) / 86400], [150979.00]],
1341   [[xdate.date(date.mdy(11,10,2038) + time.hms(22,30,4)) / 86400], [166578.00]],
1342   [[xdate.date(date.mdy(7,18,2094) + time.hms(1,56,51)) / 86400], [186917.00]],
1343   [[xdate.date(123.4)], [0.00]],
1344   [[xdate.date('')], [error],
1345    [error: DEBUG EVALUATE: Type mismatch invoking XDATE.DATE(number) as xdate.date(string).]],
1346
1347   [[xdate.hour(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
1348   [[xdate.hour(date.mdy(6,30,1680) + time.hms(4,50,38))], [4.00]],
1349   [[xdate.hour(date.mdy(7,24,1716) + time.hms(12,31,35))], [12.00]],
1350   [[xdate.hour(date.mdy(6,19,1768) + time.hms(12,47,53))], [12.00]],
1351   [[xdate.hour(date.mdy(8,2,1819) + time.hms(1,26,0))], [1.00]],
1352   [[xdate.hour(date.mdy(3,27,1839) + time.hms(20,58,11))], [20.00]],
1353   [[xdate.hour(date.mdy(4,19,1903) + time.hms(7,36,5))], [7.00]],
1354   [[xdate.hour(date.mdy(8,25,1929) + time.hms(15,43,49))], [15.00]],
1355   [[xdate.hour(date.mdy(9,29,1941) + time.hms(4,25,9))], [4.00]],
1356   [[xdate.hour(date.mdy(4,19,1943) + time.hms(6,49,27))], [6.00]],
1357   [[xdate.hour(date.mdy(10,7,1943) + time.hms(2,57,52))], [2.00]],
1358   [[xdate.hour(date.mdy(3,17,1992) + time.hms(16,45,44))], [16.00]],
1359   [[xdate.hour(date.mdy(2,25,1996) + time.hms(21,30,57))], [21.00]],
1360   [[xdate.hour(date.mdy(9,29,1941) + time.hms(4,25,9))], [4.00]],
1361   [[xdate.hour(date.mdy(4,19,43) + time.hms(6,49,27))], [6.00]],
1362   [[xdate.hour(date.mdy(10,7,43) + time.hms(2,57,52))], [2.00]],
1363   [[xdate.hour(date.mdy(3,17,92) + time.hms(16,45,44))], [16.00]],
1364   [[xdate.hour(date.mdy(2,25,96) + time.hms(21,30,57))], [21.00]],
1365   [[xdate.hour(date.mdy(11,10,2038) + time.hms(22,30,4))], [22.00]],
1366   [[xdate.hour(date.mdy(7,18,2094) + time.hms(1,56,51))], [1.00]],
1367   [[xdate.hour(-1)], [-1.00]],
1368   [[xdate.hour(1)], [0.00]],
1369   [[xdate.hour($sysmis)], [sysmis]],
1370   [[xdate.hour('')], [error],
1371    [error: DEBUG EVALUATE: Type mismatch invoking XDATE.HOUR(number) as xdate.hour(string).]],
1372
1373   [[xdate.jday(date.mdy(6,10,1648) + time.hms(0,0,0))], [162.00]],
1374   [[xdate.jday(date.mdy(6,30,1680) + time.hms(4,50,38))], [182.00]],
1375   [[xdate.jday(date.mdy(7,24,1716) + time.hms(12,31,35))], [206.00]],
1376   [[xdate.jday(date.mdy(6,19,1768) + time.hms(12,47,53))], [171.00]],
1377   [[xdate.jday(date.mdy(8,2,1819) + time.hms(1,26,0))], [214.00]],
1378   [[xdate.jday(date.mdy(3,27,1839) + time.hms(20,58,11))], [86.00]],
1379   [[xdate.jday(date.mdy(4,19,1903) + time.hms(7,36,5))], [109.00]],
1380   [[xdate.jday(date.mdy(8,25,1929) + time.hms(15,43,49))], [237.00]],
1381   [[xdate.jday(date.mdy(9,29,1941) + time.hms(4,25,9))], [272.00]],
1382   [[xdate.jday(date.mdy(4,19,1943) + time.hms(6,49,27))], [109.00]],
1383   [[xdate.jday(date.mdy(10,7,1943) + time.hms(2,57,52))], [280.00]],
1384   [[xdate.jday(date.mdy(3,17,1992) + time.hms(16,45,44))], [77.00]],
1385   [[xdate.jday(date.mdy(2,25,1996) + time.hms(21,30,57))], [56.00]],
1386   [[xdate.jday(date.mdy(9,29,1941) + time.hms(4,25,9))], [272.00]],
1387   [[xdate.jday(date.mdy(4,19,43) + time.hms(6,49,27))], [109.00]],
1388   [[xdate.jday(date.mdy(10,7,43) + time.hms(2,57,52))], [280.00]],
1389   [[xdate.jday(date.mdy(3,17,92) + time.hms(16,45,44))], [77.00]],
1390   [[xdate.jday(date.mdy(2,25,96) + time.hms(21,30,57))], [56.00]],
1391   [[xdate.jday(date.mdy(11,10,2038) + time.hms(22,30,4))], [314.00]],
1392   [[xdate.jday(date.mdy(7,18,2094) + time.hms(1,56,51))], [199.00]],
1393   [[xdate.jday(0)], [sysmis]],
1394   [[xdate.jday(1)], [sysmis]],
1395   [[xdate.jday(86400)], [288.00]],
1396
1397   [[xdate.mday(date.mdy(6,10,1648) + time.hms(0,0,0))], [10.00]],
1398   [[xdate.mday(date.mdy(6,30,1680) + time.hms(4,50,38))], [30.00]],
1399   [[xdate.mday(date.mdy(7,24,1716) + time.hms(12,31,35))], [24.00]],
1400   [[xdate.mday(date.mdy(6,19,1768) + time.hms(12,47,53))], [19.00]],
1401   [[xdate.mday(date.mdy(8,2,1819) + time.hms(1,26,0))], [2.00]],
1402   [[xdate.mday(date.mdy(3,27,1839) + time.hms(20,58,11))], [27.00]],
1403   [[xdate.mday(date.mdy(4,19,1903) + time.hms(7,36,5))], [19.00]],
1404   [[xdate.mday(date.mdy(8,25,1929) + time.hms(15,43,49))], [25.00]],
1405   [[xdate.mday(date.mdy(9,29,1941) + time.hms(4,25,9))], [29.00]],
1406   [[xdate.mday(date.mdy(4,19,1943) + time.hms(6,49,27))], [19.00]],
1407   [[xdate.mday(date.mdy(10,7,1943) + time.hms(2,57,52))], [7.00]],
1408   [[xdate.mday(date.mdy(3,17,1992) + time.hms(16,45,44))], [17.00]],
1409   [[xdate.mday(date.mdy(2,25,1996) + time.hms(21,30,57))], [25.00]],
1410   [[xdate.mday(date.mdy(9,29,1941) + time.hms(4,25,9))], [29.00]],
1411   [[xdate.mday(date.mdy(4,19,43) + time.hms(6,49,27))], [19.00]],
1412   [[xdate.mday(date.mdy(10,7,43) + time.hms(2,57,52))], [7.00]],
1413   [[xdate.mday(date.mdy(3,17,92) + time.hms(16,45,44))], [17.00]],
1414   [[xdate.mday(date.mdy(2,25,96) + time.hms(21,30,57))], [25.00]],
1415   [[xdate.mday(date.mdy(11,10,2038) + time.hms(22,30,4))], [10.00]],
1416   [[xdate.mday(date.mdy(7,18,2094) + time.hms(1,56,51))], [18.00]],
1417
1418   [[xdate.minute(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
1419   [[xdate.minute(date.mdy(6,30,1680) + time.hms(4,50,38))], [50.00]],
1420   [[xdate.minute(date.mdy(7,24,1716) + time.hms(12,31,35))], [31.00]],
1421   [[xdate.minute(date.mdy(6,19,1768) + time.hms(12,47,53))], [47.00]],
1422   [[xdate.minute(date.mdy(8,2,1819) + time.hms(1,26,0))], [26.00]],
1423   [[xdate.minute(date.mdy(3,27,1839) + time.hms(20,58,11))], [58.00]],
1424   [[xdate.minute(date.mdy(4,19,1903) + time.hms(7,36,5))], [36.00]],
1425   [[xdate.minute(date.mdy(8,25,1929) + time.hms(15,43,49))], [43.00]],
1426   [[xdate.minute(date.mdy(9,29,1941) + time.hms(4,25,9))], [25.00]],
1427   [[xdate.minute(date.mdy(4,19,1943) + time.hms(6,49,27))], [49.00]],
1428   [[xdate.minute(date.mdy(10,7,1943) + time.hms(2,57,52))], [57.00]],
1429   [[xdate.minute(date.mdy(3,17,1992) + time.hms(16,45,44))], [45.00]],
1430   [[xdate.minute(date.mdy(2,25,1996) + time.hms(21,30,57))], [30.00]],
1431   [[xdate.minute(date.mdy(9,29,1941) + time.hms(4,25,9))], [25.00]],
1432   [[xdate.minute(date.mdy(4,19,43) + time.hms(6,49,27))], [49.00]],
1433   [[xdate.minute(date.mdy(10,7,43) + time.hms(2,57,52))], [57.00]],
1434   [[xdate.minute(date.mdy(3,17,92) + time.hms(16,45,44))], [45.00]],
1435   [[xdate.minute(date.mdy(2,25,96) + time.hms(21,30,57))], [30.00]],
1436   [[xdate.minute(date.mdy(11,10,2038) + time.hms(22,30,4))], [30.00]],
1437   [[xdate.minute(date.mdy(7,18,2094) + time.hms(1,56,51))], [56.00]],
1438
1439   [[xdate.month(date.mdy(6,10,1648) + time.hms(0,0,0))], [6.00]],
1440   [[xdate.month(date.mdy(6,30,1680) + time.hms(4,50,38))], [6.00]],
1441   [[xdate.month(date.mdy(7,24,1716) + time.hms(12,31,35))], [7.00]],
1442   [[xdate.month(date.mdy(6,19,1768) + time.hms(12,47,53))], [6.00]],
1443   [[xdate.month(date.mdy(8,2,1819) + time.hms(1,26,0))], [8.00]],
1444   [[xdate.month(date.mdy(3,27,1839) + time.hms(20,58,11))], [3.00]],
1445   [[xdate.month(date.mdy(4,19,1903) + time.hms(7,36,5))], [4.00]],
1446   [[xdate.month(date.mdy(8,25,1929) + time.hms(15,43,49))], [8.00]],
1447   [[xdate.month(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
1448   [[xdate.month(date.mdy(4,19,1943) + time.hms(6,49,27))], [4.00]],
1449   [[xdate.month(date.mdy(10,7,1943) + time.hms(2,57,52))], [10.00]],
1450   [[xdate.month(date.mdy(3,17,1992) + time.hms(16,45,44))], [3.00]],
1451   [[xdate.month(date.mdy(2,25,1996) + time.hms(21,30,57))], [2.00]],
1452   [[xdate.month(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
1453   [[xdate.month(date.mdy(4,19,43) + time.hms(6,49,27))], [4.00]],
1454   [[xdate.month(date.mdy(10,7,43) + time.hms(2,57,52))], [10.00]],
1455   [[xdate.month(date.mdy(3,17,92) + time.hms(16,45,44))], [3.00]],
1456   [[xdate.month(date.mdy(2,25,96) + time.hms(21,30,57))], [2.00]],
1457   [[xdate.month(date.mdy(11,10,2038) + time.hms(22,30,4))], [11.00]],
1458   [[xdate.month(date.mdy(7,18,2094) + time.hms(1,56,51))], [7.00]],
1459
1460   [[xdate.quarter(date.mdy(6,10,1648) + time.hms(0,0,0))], [2.00]],
1461   [[xdate.quarter(date.mdy(6,30,1680) + time.hms(4,50,38))], [2.00]],
1462   [[xdate.quarter(date.mdy(7,24,1716) + time.hms(12,31,35))], [3.00]],
1463   [[xdate.quarter(date.mdy(6,19,1768) + time.hms(12,47,53))], [2.00]],
1464   [[xdate.quarter(date.mdy(8,2,1819) + time.hms(1,26,0))], [3.00]],
1465   [[xdate.quarter(date.mdy(3,27,1839) + time.hms(20,58,11))], [1.00]],
1466   [[xdate.quarter(date.mdy(4,19,1903) + time.hms(7,36,5))], [2.00]],
1467   [[xdate.quarter(date.mdy(8,25,1929) + time.hms(15,43,49))], [3.00]],
1468   [[xdate.quarter(date.mdy(9,29,1941) + time.hms(4,25,9))], [3.00]],
1469   [[xdate.quarter(date.mdy(4,19,1943) + time.hms(6,49,27))], [2.00]],
1470   [[xdate.quarter(date.mdy(10,7,1943) + time.hms(2,57,52))], [4.00]],
1471   [[xdate.quarter(date.mdy(3,17,1992) + time.hms(16,45,44))], [1.00]],
1472   [[xdate.quarter(date.mdy(2,25,1996) + time.hms(21,30,57))], [1.00]],
1473   [[xdate.quarter(date.mdy(9,29,1941) + time.hms(4,25,9))], [3.00]],
1474   [[xdate.quarter(date.mdy(4,19,43) + time.hms(6,49,27))], [2.00]],
1475   [[xdate.quarter(date.mdy(10,7,43) + time.hms(2,57,52))], [4.00]],
1476   [[xdate.quarter(date.mdy(3,17,92) + time.hms(16,45,44))], [1.00]],
1477   [[xdate.quarter(date.mdy(2,25,96) + time.hms(21,30,57))], [1.00]],
1478   [[xdate.quarter(date.mdy(11,10,2038) + time.hms(22,30,4))], [4.00]],
1479   [[xdate.quarter(date.mdy(7,18,2094) + time.hms(1,56,51))], [3.00]],
1480
1481   [[xdate.second(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
1482   [[xdate.second(date.mdy(6,30,1680) + time.hms(4,50,38))], [38.00]],
1483   [[xdate.second(date.mdy(7,24,1716) + time.hms(12,31,35))], [35.00]],
1484   [[xdate.second(date.mdy(6,19,1768) + time.hms(12,47,53))], [53.00]],
1485   [[xdate.second(date.mdy(8,2,1819) + time.hms(1,26,0))], [0.00]],
1486   [[xdate.second(date.mdy(3,27,1839) + time.hms(20,58,11))], [11.00]],
1487   [[xdate.second(date.mdy(4,19,1903) + time.hms(7,36,5))], [5.00]],
1488   [[xdate.second(date.mdy(8,25,1929) + time.hms(15,43,49))], [49.00]],
1489   [[xdate.second(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
1490   [[xdate.second(date.mdy(4,19,1943) + time.hms(6,49,27))], [27.00]],
1491   [[xdate.second(date.mdy(10,7,1943) + time.hms(2,57,52))], [52.00]],
1492   [[xdate.second(date.mdy(3,17,1992) + time.hms(16,45,44))], [44.00]],
1493   [[xdate.second(date.mdy(2,25,1996) + time.hms(21,30,57))], [57.00]],
1494   [[xdate.second(date.mdy(9,29,1941) + time.hms(4,25,9))], [9.00]],
1495   [[xdate.second(date.mdy(4,19,43) + time.hms(6,49,27))], [27.00]],
1496   [[xdate.second(date.mdy(10,7,43) + time.hms(2,57,52))], [52.00]],
1497   [[xdate.second(date.mdy(3,17,92) + time.hms(16,45,44))], [44.00]],
1498   [[xdate.second(date.mdy(2,25,96) + time.hms(21,30,57))], [57.00]],
1499   [[xdate.second(date.mdy(11,10,2038) + time.hms(22,30,4))], [4.00]],
1500   [[xdate.second(date.mdy(7,18,2094) + time.hms(1,56,51))], [51.00]],
1501
1502   [[xdate.tday(date.mdy(6,10,1648) + time.hms(0,0,0))], [23981.00]],
1503   [[xdate.tday(date.mdy(6,30,1680) + time.hms(4,50,38))], [35689.00]],
1504   [[xdate.tday(date.mdy(7,24,1716) + time.hms(12,31,35))], [48861.00]],
1505   [[xdate.tday(date.mdy(6,19,1768) + time.hms(12,47,53))], [67819.00]],
1506   [[xdate.tday(date.mdy(8,2,1819) + time.hms(1,26,0))], [86489.00]],
1507   [[xdate.tday(date.mdy(3,27,1839) + time.hms(20,58,11))], [93666.00]],
1508   [[xdate.tday(date.mdy(4,19,1903) + time.hms(7,36,5))], [117064.00]],
1509   [[xdate.tday(date.mdy(8,25,1929) + time.hms(15,43,49))], [126689.00]],
1510   [[xdate.tday(date.mdy(9,29,1941) + time.hms(4,25,9))], [131107.00]],
1511   [[xdate.tday(date.mdy(4,19,1943) + time.hms(6,49,27))], [131674.00]],
1512   [[xdate.tday(date.mdy(10,7,1943) + time.hms(2,57,52))], [131845.00]],
1513   [[xdate.tday(date.mdy(3,17,1992) + time.hms(16,45,44))], [149539.00]],
1514   [[xdate.tday(date.mdy(2,25,1996) + time.hms(21,30,57))], [150979.00]],
1515   [[xdate.tday(date.mdy(9,29,1941) + time.hms(4,25,9))], [131107.00]],
1516   [[xdate.tday(date.mdy(4,19,43) + time.hms(6,49,27))], [131674.00]],
1517   [[xdate.tday(date.mdy(10,7,43) + time.hms(2,57,52))], [131845.00]],
1518   [[xdate.tday(date.mdy(3,17,92) + time.hms(16,45,44))], [149539.00]],
1519   [[xdate.tday(date.mdy(2,25,96) + time.hms(21,30,57))], [150979.00]],
1520   [[xdate.tday(date.mdy(11,10,2038) + time.hms(22,30,4))], [166578.00]],
1521   [[xdate.tday(date.mdy(7,18,2094) + time.hms(1,56,51))], [186917.00]],
1522
1523   [[xdate.time(date.mdy(6,10,1648) + time.hms(0,0,0))], [0.00]],
1524   [[xdate.time(date.mdy(6,30,1680) + time.hms(4,50,38))], [17438.00]],
1525   [[xdate.time(date.mdy(7,24,1716) + time.hms(12,31,35))], [45095.00]],
1526   [[xdate.time(date.mdy(6,19,1768) + time.hms(12,47,53))], [46073.00]],
1527   [[xdate.time(date.mdy(8,2,1819) + time.hms(1,26,0))], [5160.00]],
1528   [[xdate.time(date.mdy(3,27,1839) + time.hms(20,58,11))], [75491.00]],
1529   [[xdate.time(date.mdy(4,19,1903) + time.hms(7,36,5))], [27365.00]],
1530   [[xdate.time(date.mdy(8,25,1929) + time.hms(15,43,49))], [56629.00]],
1531   [[xdate.time(date.mdy(9,29,1941) + time.hms(4,25,9))], [15909.00]],
1532   [[xdate.time(date.mdy(4,19,1943) + time.hms(6,49,27))], [24567.00]],
1533   [[xdate.time(date.mdy(10,7,1943) + time.hms(2,57,52))], [10672.00]],
1534   [[xdate.time(date.mdy(3,17,1992) + time.hms(16,45,44))], [60344.00]],
1535   [[xdate.time(date.mdy(2,25,1996) + time.hms(21,30,57))], [77457.00]],
1536   [[xdate.time(date.mdy(9,29,1941) + time.hms(4,25,9))], [15909.00]],
1537   [[xdate.time(date.mdy(4,19,43) + time.hms(6,49,27))], [24567.00]],
1538   [[xdate.time(date.mdy(10,7,43) + time.hms(2,57,52))], [10672.00]],
1539   [[xdate.time(date.mdy(3,17,92) + time.hms(16,45,44))], [60344.00]],
1540   [[xdate.time(date.mdy(2,25,96) + time.hms(21,30,57))], [77457.00]],
1541   [[xdate.time(date.mdy(11,10,2038) + time.hms(22,30,4))], [81004.00]],
1542   [[xdate.time(date.mdy(7,18,2094) + time.hms(1,56,51))], [7011.00]],
1543
1544   [[xdate.week(date.mdy(6,10,1648) + time.hms(0,0,0))], [24.00]],
1545   [[xdate.week(date.mdy(6,30,1680) + time.hms(4,50,38))], [26.00]],
1546   [[xdate.week(date.mdy(7,24,1716) + time.hms(12,31,35))], [30.00]],
1547   [[xdate.week(date.mdy(6,19,1768) + time.hms(12,47,53))], [25.00]],
1548   [[xdate.week(date.mdy(8,2,1819) + time.hms(1,26,0))], [31.00]],
1549   [[xdate.week(date.mdy(3,27,1839) + time.hms(20,58,11))], [13.00]],
1550   [[xdate.week(date.mdy(4,19,1903) + time.hms(7,36,5))], [16.00]],
1551   [[xdate.week(date.mdy(8,25,1929) + time.hms(15,43,49))], [34.00]],
1552   [[xdate.week(date.mdy(9,29,1941) + time.hms(4,25,9))], [39.00]],
1553   [[xdate.week(date.mdy(4,19,1943) + time.hms(6,49,27))], [16.00]],
1554   [[xdate.week(date.mdy(10,7,1943) + time.hms(2,57,52))], [40.00]],
1555   [[xdate.week(date.mdy(3,17,1992) + time.hms(16,45,44))], [11.00]],
1556   [[xdate.week(date.mdy(2,25,1996) + time.hms(21,30,57))], [8.00]],
1557   [[xdate.week(date.mdy(9,29,1941) + time.hms(4,25,9))], [39.00]],
1558   [[xdate.week(date.mdy(4,19,43) + time.hms(6,49,27))], [16.00]],
1559   [[xdate.week(date.mdy(10,7,43) + time.hms(2,57,52))], [40.00]],
1560   [[xdate.week(date.mdy(3,17,92) + time.hms(16,45,44))], [11.00]],
1561   [[xdate.week(date.mdy(2,25,96) + time.hms(21,30,57))], [8.00]],
1562   [[xdate.week(date.mdy(11,10,2038) + time.hms(22,30,4))], [45.00]],
1563   [[xdate.week(date.mdy(7,18,2094) + time.hms(1,56,51))], [29.00]],
1564
1565   [[xdate.wkday(date.mdy(6,10,1648))], [4.00]],
1566   [[xdate.wkday(date.mdy(6,30,1680))], [1.00]],
1567   [[xdate.wkday(date.mdy(7,24,1716))], [6.00]],
1568   [[xdate.wkday(date.mdy(6,19,1768))], [1.00]],
1569   [[xdate.wkday(date.mdy(8,2,1819))], [2.00]],
1570   [[xdate.wkday(date.mdy(3,27,1839))], [4.00]],
1571   [[xdate.wkday(date.mdy(4,19,1903))], [1.00]],
1572   [[xdate.wkday(date.mdy(8,25,1929))], [1.00]],
1573   [[xdate.wkday(date.mdy(9,29,1941))], [2.00]],
1574   [[xdate.wkday(date.mdy(4,19,1943))], [2.00]],
1575   [[xdate.wkday(date.mdy(10,7,1943))], [5.00]],
1576   [[xdate.wkday(date.mdy(3,17,1992))], [3.00]],
1577   [[xdate.wkday(date.mdy(2,25,1996))], [1.00]],
1578   [[xdate.wkday(date.mdy(9,29,1941))], [2.00]],
1579   [[xdate.wkday(date.mdy(4,19,43))], [2.00]],
1580   [[xdate.wkday(date.mdy(10,7,43))], [5.00]],
1581   [[xdate.wkday(date.mdy(3,17,92))], [3.00]],
1582   [[xdate.wkday(date.mdy(2,25,96))], [1.00]],
1583   [[xdate.wkday(date.mdy(11,10,2038))], [4.00]],
1584   [[xdate.wkday(date.mdy(7,18,2094))], [1.00]],
1585
1586   [[xdate.year(date.mdy(6,10,1648) + time.hms(0,0,0))], [1648.00]],
1587   [[xdate.year(date.mdy(6,30,1680) + time.hms(4,50,38))], [1680.00]],
1588   [[xdate.year(date.mdy(7,24,1716) + time.hms(12,31,35))], [1716.00]],
1589   [[xdate.year(date.mdy(6,19,1768) + time.hms(12,47,53))], [1768.00]],
1590   [[xdate.year(date.mdy(8,2,1819) + time.hms(1,26,0))], [1819.00]],
1591   [[xdate.year(date.mdy(3,27,1839) + time.hms(20,58,11))], [1839.00]],
1592   [[xdate.year(date.mdy(4,19,1903) + time.hms(7,36,5))], [1903.00]],
1593   [[xdate.year(date.mdy(8,25,1929) + time.hms(15,43,49))], [1929.00]],
1594   [[xdate.year(date.mdy(9,29,1941) + time.hms(4,25,9))], [1941.00]],
1595   [[xdate.year(date.mdy(4,19,1943) + time.hms(6,49,27))], [1943.00]],
1596   [[xdate.year(date.mdy(10,7,1943) + time.hms(2,57,52))], [1943.00]],
1597   [[xdate.year(date.mdy(3,17,1992) + time.hms(16,45,44))], [1992.00]],
1598   [[xdate.year(date.mdy(2,25,1996) + time.hms(21,30,57))], [1996.00]],
1599   [[xdate.year(date.mdy(9,29,1941) + time.hms(4,25,9))], [1941.00]],
1600   [[xdate.year(date.mdy(4,19,43) + time.hms(6,49,27))], [1943.00]],
1601   [[xdate.year(date.mdy(10,7,43) + time.hms(2,57,52))], [1943.00]],
1602   [[xdate.year(date.mdy(3,17,92) + time.hms(16,45,44))], [1992.00]],
1603   [[xdate.year(date.mdy(2,25,96) + time.hms(21,30,57))], [1996.00]],
1604   [[xdate.year(date.mdy(11,10,2038) + time.hms(22,30,4))], [2038.00]],
1605   [[xdate.year(date.mdy(7,18,2094) + time.hms(1,56,51))], [2094.00]])
1606
1607 CHECK_EXPR_EVAL([datediff],
1608   [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'years')], [-32.00]],
1609   [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'years')], [-36.00]],
1610   [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'years')], [-51.00]],
1611   [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'years')], [-51.00]],
1612   [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'years')], [-19.00]],
1613   [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'years')], [-64.00]],
1614   [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'years')], [-26.00]],
1615   [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'years')], [-12.00]],
1616   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'years')], [-1.00]],
1617   [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'years')], [0.00]],
1618   [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'years')], [-48.00]],
1619   [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'years')], [-3.00]],
1620   [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'years')], [-54.00]],
1621   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'years')], [-1.00]],
1622   [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'years')], [0.00]],
1623   [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'years')], [-48.00]],
1624   [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'years')], [-3.00]],
1625   [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'years')], [-42.00]],
1626   [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'years')], [-55.00]],
1627   [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'years')], [-3.00]],
1628   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'years')], [-4.00]],
1629   [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'years')], [-2.00]],
1630
1631   [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'quarters')], [-128.00]],
1632   [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'quarters')], [-144.00]],
1633   [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'quarters')], [-207.00]],
1634   [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'quarters')], [-204.00]],
1635   [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'quarters')], [-78.00]],
1636   [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'quarters')], [-256.00]],
1637   [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'quarters')], [-105.00]],
1638   [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'quarters')], [-48.00]],
1639   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'quarters')], [-6.00]],
1640   [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'quarters')], [-1.00]],
1641   [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'quarters')], [-193.00]],
1642   [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'quarters')], [-15.00]],
1643   [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'quarters')], [-217.00]],
1644   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'quarters')], [-6.00]],
1645   [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'quarters')], [-1.00]],
1646   [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'quarters')], [-193.00]],
1647   [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'quarters')], [-15.00]],
1648   [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'quarters')], [-170.00]],
1649   [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'quarters')], [-222.00]],
1650   [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'quarters')], [-15.00]],
1651   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'quarters')], [-16.00]],
1652   [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'quarters')], [-11.00]],
1653
1654   [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'months')], [-384.00]],
1655   [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'months')], [-432.00]],
1656   [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'months')], [-622.00]],
1657   [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'months')], [-613.00]],
1658   [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'months')], [-235.00]],
1659   [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'months')], [-768.00]],
1660   [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'months')], [-316.00]],
1661   [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'months')], [-145.00]],
1662   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'months')], [-18.00]],
1663   [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'months')], [-5.00]],
1664   [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'months')], [-581.00]],
1665   [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'months')], [-47.00]],
1666   [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'months')], [-652.00]],
1667   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'months')], [-18.00]],
1668   [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'months')], [-5.00]],
1669   [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'months')], [-581.00]],
1670   [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'months')], [-47.00]],
1671   [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'months')], [-512.00]],
1672   [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'months')], [-668.00]],
1673   [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'months')], [-47.00]],
1674   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'months')], [-48.00]],
1675   [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'months')], [-35.00]],
1676
1677   [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'weeks')], [-1672.00]],
1678   [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'weeks')], [-1881.00]],
1679   [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'weeks')], [-2708.00]],
1680   [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'weeks')], [-2667.00]],
1681   [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'weeks')], [-1025.00]],
1682   [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'weeks')], [-3342.00]],
1683   [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'weeks')], [-1375.00]],
1684   [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'weeks')], [-631.00]],
1685   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'weeks')], [-81.00]],
1686   [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'weeks')], [-24.00]],
1687   [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'weeks')], [-2527.00]],
1688   [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'weeks')], [-205.00]],
1689   [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'weeks')], [-2838.00]],
1690   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'weeks')], [-81.00]],
1691   [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'weeks')], [-24.00]],
1692   [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'weeks')], [-2527.00]],
1693   [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'weeks')], [-205.00]],
1694   [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'weeks')], [-2228.00]],
1695   [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'weeks')], [-2905.00]],
1696   [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'weeks')], [-208.00]],
1697   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'weeks')], [-208.00]],
1698   [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'weeks')], [-156.00]],
1699
1700   [[datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'days')], [-11708.00]],
1701   [[datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'days')], [-13172.00]],
1702   [[datediff(date.mdy(7,24,1716), date.mdy(6,19,1768), 'days')], [-18958.00]],
1703   [[datediff(date.mdy(6,19,1768), date.mdy(8,2,1819), 'days')], [-18670.00]],
1704   [[datediff(date.mdy(8,2,1819), date.mdy(3,27,1839), 'days')], [-7177.00]],
1705   [[datediff(date.mdy(3,27,1839), date.mdy(4,19,1903), 'days')], [-23398.00]],
1706   [[datediff(date.mdy(4,19,1903), date.mdy(8,25,1929), 'days')], [-9625.00]],
1707   [[datediff(date.mdy(8,25,1929), date.mdy(9,29,1941), 'days')], [-4418.00]],
1708   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,1943), 'days')], [-567.00]],
1709   [[datediff(date.mdy(4,19,1943), date.mdy(10,7,1943), 'days')], [-171.00]],
1710   [[datediff(date.mdy(10,7,1943), date.mdy(3,17,1992), 'days')], [-17694.00]],
1711   [[datediff(date.mdy(3,17,1992), date.mdy(2,25,1996), 'days')], [-1440.00]],
1712   [[datediff(date.mdy(9,29,1941), date.mdy(2,25,1996), 'days')], [-19872.00]],
1713   [[datediff(date.mdy(9,29,1941), date.mdy(4,19,43), 'days')], [-567.00]],
1714   [[datediff(date.mdy(4,19,43), date.mdy(10,7,43), 'days')], [-171.00]],
1715   [[datediff(date.mdy(10,7,43), date.mdy(3,17,92), 'days')], [-17694.00]],
1716   [[datediff(date.mdy(3,17,92), date.mdy(2,25,96), 'days')], [-1440.00]],
1717   [[datediff(date.mdy(2,25,96), date.mdy(11,10,2038), 'days')], [-15599.00]],
1718   [[datediff(date.mdy(11,10,2038), date.mdy(7,18,2094), 'days')], [-20339.00]],
1719   [[datediff(date.mdy(2,29,1900), date.mdy(2,29,1904), 'days')], [-1460.00]],
1720   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1908), 'days')], [-1461.00]],
1721   [[datediff(date.mdy(2,29,1900), date.mdy(2,28,1903), 'days')], [-1094.00]],
1722
1723   [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'years')], [32.00]],
1724   [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'years')], [36.00]],
1725   [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'years')], [51.00]],
1726   [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'years')], [51.00]],
1727   [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'years')], [19.00]],
1728   [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'years')], [64.00]],
1729   [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'years')], [26.00]],
1730   [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'years')], [12.00]],
1731   [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'years')], [1.00]],
1732   [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'years')], [0.00]],
1733   [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'years')], [48.00]],
1734   [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'years')], [3.00]],
1735   [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'years')], [54.00]],
1736   [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'years')], [1.00]],
1737   [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'years')], [0.00]],
1738   [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'years')], [48.00]],
1739   [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'years')], [3.00]],
1740   [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'years')], [42.00]],
1741   [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'years')], [55.00]],
1742   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'years')], [3.00]],
1743   [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'years')], [4.00]],
1744   [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'years')], [2.00]],
1745
1746   [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'months')], [384.00]],
1747   [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'months')], [432.00]],
1748   [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'months')], [622.00]],
1749   [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'months')], [613.00]],
1750   [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'months')], [235.00]],
1751   [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'months')], [768.00]],
1752   [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'months')], [316.00]],
1753   [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'months')], [145.00]],
1754   [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'months')], [18.00]],
1755   [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'months')], [5.00]],
1756   [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'months')], [581.00]],
1757   [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'months')], [47.00]],
1758   [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'months')], [652.00]],
1759   [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'months')], [18.00]],
1760   [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'months')], [5.00]],
1761   [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'months')], [581.00]],
1762   [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'months')], [47.00]],
1763   [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'months')], [512.00]],
1764   [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'months')], [668.00]],
1765   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'months')], [47.00]],
1766   [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'months')], [48.00]],
1767   [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'months')], [35.00]],
1768
1769   [[datediff(date.mdy(6,30,1680), date.mdy(6,10,1648), 'quarters')], [128.00]],
1770   [[datediff(date.mdy(7,24,1716), date.mdy(6,30,1680), 'quarters')], [144.00]],
1771   [[datediff(date.mdy(6,19,1768), date.mdy(7,24,1716), 'quarters')], [207.00]],
1772   [[datediff(date.mdy(8,2,1819), date.mdy(6,19,1768), 'quarters')], [204.00]],
1773   [[datediff(date.mdy(3,27,1839), date.mdy(8,2,1819), 'quarters')], [78.00]],
1774   [[datediff(date.mdy(4,19,1903), date.mdy(3,27,1839), 'quarters')], [256.00]],
1775   [[datediff(date.mdy(8,25,1929), date.mdy(4,19,1903), 'quarters')], [105.00]],
1776   [[datediff(date.mdy(9,29,1941), date.mdy(8,25,1929), 'quarters')], [48.00]],
1777   [[datediff(date.mdy(4,19,1943), date.mdy(9,29,1941), 'quarters')], [6.00]],
1778   [[datediff(date.mdy(10,7,1943), date.mdy(4,19,1943), 'quarters')], [1.00]],
1779   [[datediff(date.mdy(3,17,1992), date.mdy(10,7,1943), 'quarters')], [193.00]],
1780   [[datediff(date.mdy(2,25,1996), date.mdy(3,17,1992), 'quarters')], [15.00]],
1781   [[datediff(date.mdy(2,25,1996), date.mdy(9,29,1941), 'quarters')], [217.00]],
1782   [[datediff(date.mdy(4,19,43), date.mdy(9,29,1941), 'quarters')], [6.00]],
1783   [[datediff(date.mdy(10,7,43), date.mdy(4,19,43), 'quarters')], [1.00]],
1784   [[datediff(date.mdy(3,17,92), date.mdy(10,7,43), 'quarters')], [193.00]],
1785   [[datediff(date.mdy(2,25,96), date.mdy(3,17,92), 'quarters')], [15.00]],
1786   [[datediff(date.mdy(11,10,2038), date.mdy(2,25,96), 'quarters')], [170.00]],
1787   [[datediff(date.mdy(7,18,2094), date.mdy(11,10,2038), 'quarters')], [222.00]],
1788   [[datediff(date.mdy(2,29,1904), date.mdy(2,29,1900), 'quarters')], [15.00]],
1789   [[datediff(date.mdy(2,29,1908), date.mdy(2,29,1904), 'quarters')], [16.00]],
1790   [[datediff(date.mdy(2,28,1903), date.mdy(2,29,1900), 'quarters')], [11.00]],
1791
1792 dnl time of day is significant for DATEDIFF
1793   [[datediff(date.mdy(10,15,1910) + 234, date.mdy(10,10,1910) + 123, 'days')],
1794     [5.00]],
1795   [[datediff(date.mdy(10,15,1910) + 123, date.mdy(10,10,1910) + 234, 'days')],
1796     [4.00]],
1797   [[datediff(date.mdy(10,24,1910) + 234, date.mdy(10,10,1910) + 123, 'weeks')],
1798     [2.00]],
1799   [[datediff(date.mdy(10,24,1910) + 123, date.mdy(10,10,1910) + 234, 'weeks')],
1800     [1.00]],
1801   [[datediff(date.mdy(10,10,1910) + 234, date.mdy(5,10,1910) + 123, 'months')],
1802     [5.00]],
1803   [[datediff(date.mdy(10,10,1910) + 123, date.mdy(5,10,1910) + 234, 'months')],
1804     [4.00]],
1805   [[datediff(date.mdy(5,10,1919) + 234, date.mdy(5,10,1910) + 123, 'years')],
1806     [9.00]],
1807   [[datediff(date.mdy(5,10,1919) + 123, date.mdy(5,10,1910) + 234, 'years')],
1808     [8.00]],
1809
1810   [[datediff(date.mdy(10,10,1910) + 123, date.mdy(10,15,1910) + 234, 'days')],
1811     [-5.00]],
1812   [[datediff(date.mdy(10,10,1910) + 234, date.mdy(10,15,1910) + 123, 'days')],
1813     [-4.00]],
1814   [[datediff(date.mdy(10,10,1910) + 123, date.mdy(10,24,1910) + 234, 'weeks')],
1815     [-2.00]],
1816   [[datediff(date.mdy(10,10,1910) + 234, date.mdy(10,24,1910) + 123, 'weeks')],
1817     [-1.00]],
1818   [[datediff(date.mdy(5,10,1910) + 123, date.mdy(10,10,1910) + 234, 'months')],
1819     [-5.00]],
1820   [[datediff(date.mdy(5,10,1910) + 234, date.mdy(10,10,1910) + 123, 'months')],
1821     [-4.00]],
1822   [[datediff(date.mdy(5,10,1910) + 123, date.mdy(5,10,1919) + 234, 'years')],
1823     [-9.00]],
1824   [[datediff(date.mdy(5,10,1910) + 234, date.mdy(5,10,1919) + 123, 'years')],
1825     [-8.00]])
1826
1827 CHECK_EXPR_EVAL([datesum],
1828 dnl DATESUM with non-leap year
1829   [[ctime.days(datesum(date.mdy(1,31,1900), 1, 'months') - date.mdy(1,1,1900))], [58.00]],
1830   [[ctime.days(datesum(date.mdy(1,31,1900), 2, 'months') - date.mdy(1,1,1900))], [89.00]],
1831   [[ctime.days(datesum(date.mdy(1,31,1900), 3, 'months') - date.mdy(1,1,1900))], [119.00]],
1832   [[ctime.days(datesum(date.mdy(1,31,1900), 4, 'months') - date.mdy(1,1,1900))], [150.00]],
1833   [[ctime.days(datesum(date.mdy(1,31,1900), 5.4, 'months') - date.mdy(1,1,1900))], [180.00]],
1834   [[ctime.days(datesum(date.mdy(1,31,1900), 6, 'months') - date.mdy(1,1,1900))], [211.00]],
1835   [[ctime.days(datesum(date.mdy(1,31,1900), 7, 'months') - date.mdy(1,1,1900))], [242.00]],
1836   [[ctime.days(datesum(date.mdy(1,31,1900), 8, 'months') - date.mdy(1,1,1900))], [272.00]],
1837   [[ctime.days(datesum(date.mdy(1,31,1900), 9, 'months') - date.mdy(1,1,1900))], [303.00]],
1838   [[ctime.days(datesum(date.mdy(1,31,1900), 10, 'months') - date.mdy(1,1,1900))], [333.00]],
1839   [[ctime.days(datesum(date.mdy(1,31,1900), 11, 'months') - date.mdy(1,1,1900))], [364.00]],
1840   [[ctime.days(datesum(date.mdy(1,31,1900), 12, 'months') - date.mdy(1,1,1900))], [395.00]],
1841   [[ctime.days(datesum(date.mdy(1,31,1900), 13.9, 'months') - date.mdy(1,1,1900))], [423.00]],
1842   [[ctime.days(datesum(date.mdy(1,31,1900), 1, 'months', 'rollover') - date.mdy(1,1,1900))], [61.00]],
1843   [[ctime.days(datesum(date.mdy(1,31,1900), 2, 'months', 'rollover') - date.mdy(1,1,1900))], [89.00]],
1844   [[ctime.days(datesum(date.mdy(1,31,1900), 3.2, 'months', 'rollover') - date.mdy(1,1,1900))], [120.00]],
1845   [[ctime.days(datesum(date.mdy(1,31,1900), 4, 'months', 'rollover') - date.mdy(1,1,1900))], [150.00]],
1846   [[ctime.days(datesum(date.mdy(1,31,1900), 5, 'months', 'rollover') - date.mdy(1,1,1900))], [181.00]],
1847   [[ctime.days(datesum(date.mdy(1,31,1900), 6, 'months', 'rollover') - date.mdy(1,1,1900))], [211.00]],
1848   [[ctime.days(datesum(date.mdy(1,31,1900), 7, 'months', 'rollover') - date.mdy(1,1,1900))], [242.00]],
1849   [[ctime.days(datesum(date.mdy(1,31,1900), 8, 'months', 'rollover') - date.mdy(1,1,1900))], [273.00]],
1850   [[ctime.days(datesum(date.mdy(1,31,1900), 9, 'months', 'rollover') - date.mdy(1,1,1900))], [303.00]],
1851   [[ctime.days(datesum(date.mdy(1,31,1900), 10, 'months', 'rollover') - date.mdy(1,1,1900))], [334.00]],
1852   [[ctime.days(datesum(date.mdy(1,31,1900), 11, 'months', 'rollover') - date.mdy(1,1,1900))], [364.00]],
1853   [[ctime.days(datesum(date.mdy(1,31,1900), 12, 'months', 'rollover') - date.mdy(1,1,1900))], [395.00]],
1854   [[ctime.days(datesum(date.mdy(1,31,1900), 13, 'months', 'rollover') - date.mdy(1,1,1900))], [426.00]],
1855
1856 dnl DATESUM with leap year
1857   [[ctime.days(datesum(date.mdy(1,31,1904), 1, 'months') - date.mdy(1,1,1904))], [59.00]],
1858   [[ctime.days(datesum(date.mdy(1,31,1904), 2.5, 'months') - date.mdy(1,1,1904))], [90.00]],
1859   [[ctime.days(datesum(date.mdy(1,31,1904), 3, 'months') - date.mdy(1,1,1904))], [120.00]],
1860   [[ctime.days(datesum(date.mdy(1,31,1904), 4.9, 'months') - date.mdy(1,1,1904))], [151.00]],
1861   [[ctime.days(datesum(date.mdy(1,31,1904), 5.1, 'months') - date.mdy(1,1,1904))], [181.00]],
1862   [[ctime.days(datesum(date.mdy(1,31,1904), 6, 'months') - date.mdy(1,1,1904))], [212.00]],
1863   [[ctime.days(datesum(date.mdy(1,31,1904), 7, 'months') - date.mdy(1,1,1904))], [243.00]],
1864   [[ctime.days(datesum(date.mdy(1,31,1904), 8, 'months') - date.mdy(1,1,1904))], [273.00]],
1865   [[ctime.days(datesum(date.mdy(1,31,1904), 9, 'months') - date.mdy(1,1,1904))], [304.00]],
1866   [[ctime.days(datesum(date.mdy(1,31,1904), 10, 'months') - date.mdy(1,1,1904))], [334.00]],
1867   [[ctime.days(datesum(date.mdy(1,31,1904), 11, 'months') - date.mdy(1,1,1904))], [365.00]],
1868   [[ctime.days(datesum(date.mdy(1,31,1904), 12, 'months') - date.mdy(1,1,1904))], [396.00]],
1869   [[ctime.days(datesum(date.mdy(1,31,1904), 13, 'months') - date.mdy(1,1,1904))], [424.00]],
1870   [[ctime.days(datesum(date.mdy(1,31,1904), 1, 'months', 'rollover') - date.mdy(1,1,1904))], [61.00]],
1871   [[ctime.days(datesum(date.mdy(1,31,1904), 2, 'months', 'rollover') - date.mdy(1,1,1904))], [90.00]],
1872   [[ctime.days(datesum(date.mdy(1,31,1904), 3, 'months', 'rollover') - date.mdy(1,1,1904))], [121.00]],
1873   [[ctime.days(datesum(date.mdy(1,31,1904), 4, 'months', 'rollover') - date.mdy(1,1,1904))], [151.00]],
1874   [[ctime.days(datesum(date.mdy(1,31,1904), 5, 'months', 'rollover') - date.mdy(1,1,1904))], [182.00]],
1875   [[ctime.days(datesum(date.mdy(1,31,1904), 6, 'months', 'rollover') - date.mdy(1,1,1904))], [212.00]],
1876   [[ctime.days(datesum(date.mdy(1,31,1904), 7, 'months', 'rollover') - date.mdy(1,1,1904))], [243.00]],
1877   [[ctime.days(datesum(date.mdy(1,31,1904), 8, 'months', 'rollover') - date.mdy(1,1,1904))], [274.00]],
1878   [[ctime.days(datesum(date.mdy(1,31,1904), 9, 'months', 'rollover') - date.mdy(1,1,1904))], [304.00]],
1879   [[ctime.days(datesum(date.mdy(1,31,1904), 10, 'months', 'rollover') - date.mdy(1,1,1904))], [335.00]],
1880   [[ctime.days(datesum(date.mdy(1,31,1904), 11, 'months', 'rollover') - date.mdy(1,1,1904))], [365.00]],
1881   [[ctime.days(datesum(date.mdy(1,31,1904), 12, 'months', 'rollover') - date.mdy(1,1,1904))], [396.00]],
1882   [[ctime.days(datesum(date.mdy(1,31,1904), 13, 'months', 'rollover') - date.mdy(1,1,1904))], [427.00]],
1883
1884   [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'weeks') - date.mdy(6,10,1648))], [7.00]],
1885   [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'weeks') - date.mdy(6,30,1680))], [17.50]],
1886   [[ctime.days(datesum(date.mdy(7,24,1716), -3, 'weeks') - date.mdy(7,24,1716))], [-21.00]],
1887   [[ctime.days(datesum(date.mdy(6,19,1768), 4, 'weeks') - date.mdy(6,19,1768))], [28.00]],
1888   [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'weeks') - date.mdy(8,2,1819))], [35.00]],
1889
1890   [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'days') - date.mdy(6,10,1648))], [1.00]],
1891   [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'days') - date.mdy(6,30,1680))], [2.50]],
1892   [[ctime.days(datesum(date.mdy(7,24,1716), -3, 'days') - date.mdy(7,24,1716))], [-3.00]],
1893   [[ctime.days(datesum(date.mdy(6,19,1768), 4, 'days') - date.mdy(6,19,1768))], [4.00]],
1894   [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'days') - date.mdy(8,2,1819))], [5.00]],
1895   [[ctime.days(datesum(date.mdy(6,10,1648), 1, 'hours') - date.mdy(6,10,1648))], [0.04]],
1896   [[ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'hours') - date.mdy(6,30,1680))], [0.10]],
1897   [[ctime.days(datesum(date.mdy(6,19,1768), -4, 'hours') - date.mdy(6,19,1768))], [-0.17]],
1898   [[ctime.days(datesum(date.mdy(8,2,1819), 5, 'hours') - date.mdy(8,2,1819))], [0.21]],
1899
1900 dnl DATESUM preserves time-of-day for units of days and longer.
1901   [[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]],
1902   [[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]],
1903   [[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]],
1904   [[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]])
1905
1906 CHECK_EXPR_EVAL([miscellaneous],
1907 dnl These test values are from Applied Statistics, Algorithm AS 310.
1908   [[1000 * ncdf.beta(.868,10,20,150)], [937.66]],
1909   [[1000 * ncdf.beta(.9,10,10,120)], [730.68]],
1910   [[1000 * ncdf.beta(.88,15,5,80)], [160.43]],
1911   [[1000 * ncdf.beta(.85,20,10,110)], [186.75]],
1912   [[1000 * ncdf.beta(.66,20,30,65)], [655.94]],
1913   [[1000 * ncdf.beta(.72,20,50,130)], [979.69]],
1914   [[1000 * ncdf.beta(.72,30,20,80)], [116.24]],
1915   [[1000 * ncdf.beta(.8,30,40,130)], [993.04]],
1916
1917 dnl FIXME: LAG
1918 dnl
1919   [[X], [1.00], [], [(X = 1.00)]],
1920   [[SYSMIS(1)], [false]],
1921   [[SYSMIS($SYSMIS)], [true]],
1922   [[SYSMIS(1 + $SYSMIS)], [true]],
1923
1924 dnl FIXME: out-of-range and nearly out-of-range values on dates
1925 dnl
1926 dnl Tests correctness of generic optimizations in optimize_tree().
1927   [[x + 0], [10.00], [], [(X = 10.00)]],
1928   [[x - 0], [-3.00], [], [(X = -3.00)]],
1929   [[0 + x], [5.00], [], [(X = 5.00)]],
1930   [[x * 1], [10.00], [], [(X = 10.00)]],
1931   [[1 * x], [-3.00], [], [(X = -3.00)]],
1932   [[x / 1], [5.00], [], [(X = 5.00)]],
1933   [[0 * x], [0.00], [], [(X = 10.00)]],
1934   [[x * 0], [0.00], [], [(X = -3.00)]],
1935   [[0 / x], [0.00], [], [(X = 5.00)]],
1936   [[mod(0, x)], [0.00], [], [(X = 5.00)]],
1937   [[x ** 1], [5.00], [], [(X = 5.00)]],
1938   [[x ** 2], [25.00], [], [(X = 5.00)]])
1939
1940 AT_SETUP([LAG function])
1941 AT_DATA([lag.sps], [dnl
1942 data list /W 1.
1943 begin data.
1944 1
1945 2
1946 3
1947 4
1948 5
1949 end data.
1950
1951 compute X=lag(w,1).
1952 compute Y=lag(x).
1953 compute Z=lag(w,2).
1954 list.
1955 ])
1956 AT_CHECK([pspp -o pspp.csv lag.sps])
1957 AT_CHECK([cat pspp.csv], [0], [dnl
1958 Table: Reading 1 record from INLINE.
1959 Variable,Record,Columns,Format
1960 W,1,1-  1,F1.0
1961
1962 Table: Data List
1963 W,X,Y,Z
1964 1,.  ,.  ,.  @&t@
1965 2,1.00,.  ,.  @&t@
1966 3,2.00,1.00,1.00
1967 4,3.00,2.00,2.00
1968 5,4.00,3.00,3.00
1969 ])
1970 AT_CLEANUP
1971
1972 AT_SETUP([LAG crash bug])
1973 AT_DATA([lag.sps], [dnl
1974 DATA LIST LIST /x.
1975 BEGIN DATA
1976 1
1977 2
1978 END DATA.
1979
1980 DO IF (x <> LAG(x) ).
1981         ECHO 'hello'.
1982 END IF.
1983
1984 EXECUTE.
1985 ])
1986 AT_CHECK([pspp -o pspp.csv lag.sps])
1987 AT_CHECK([cat pspp.csv], [0], [dnl
1988 Table: Reading free-form data from INLINE.
1989 Variable,Format
1990 x,F8.0
1991
1992 hello
1993 ])
1994 AT_CLEANUP
1995
1996 dnl Tests for a bug which caused UNIFORM(x) to always return zero.
1997 AT_SETUP([UNIFORM function])
1998 AT_DATA([uniform.sps], [dnl
1999 set seed=10.
2000 input program.
2001 + loop #i = 1 to 20.
2002 +    do repeat response=R1.
2003 +       compute response = uniform(10).
2004 +    end repeat.
2005 +    end case.
2006 + end loop.
2007 + end file.
2008 end input program.
2009
2010 list.
2011 ])
2012 AT_CHECK([pspp -o pspp.csv uniform.sps])
2013 AT_CHECK([cat pspp.csv], [0], [dnl
2014 Table: Data List
2015 R1
2016 7.71
2017 2.99
2018 .21
2019 4.95
2020 6.34
2021 4.43
2022 7.49
2023 8.32
2024 4.99
2025 5.83
2026 2.25
2027 .25
2028 1.98
2029 7.09
2030 7.61
2031 2.66
2032 1.69
2033 2.64
2034 .88
2035 1.50
2036 ])
2037 AT_CLEANUP
2038
2039 AT_SETUP([VALUELABEL function])
2040 AT_DATA([valuelabel.sps], [dnl
2041 DATA LIST notable /n 1 s 2(a).
2042 VALUE LABELS /n 0 'Very dissatisfied'
2043                 1 'Dissatisfied'
2044                 1.5 'Slightly Peeved'
2045                 2 'Neutral'
2046                 3 'Satisfied'
2047                 4 'Very satisfied'.
2048 VALUE LABELS /s 'a' 'Wouldn''t buy again'
2049                 'b' 'Unhappy'
2050                 'c' 'Bored'
2051                 'd' 'Satiated'
2052                 'e' 'Elated'.
2053 STRING nlabel slabel(a10).
2054 COMPUTE nlabel = VALUELABEL(n).
2055 COMPUTE slabel = VALUELABEL(s).
2056 LIST.
2057 BEGIN DATA.
2058
2059 0a
2060 1b
2061 2c
2062 3d
2063 4e
2064 5f
2065 6g
2066 END DATA.
2067 ])
2068 AT_CHECK([pspp -o pspp.csv valuelabel.sps])
2069 AT_CHECK([cat pspp.csv], [0], [dnl
2070 Table: Data List
2071 n,s,nlabel,slabel
2072 .,,,
2073 0,a,Very dissa,Wouldn't b
2074 1,b,Dissatisfi,Unhappy   @&t@
2075 2,c,Neutral   ,Bored     @&t@
2076 3,d,Satisfied ,Satiated  @&t@
2077 4,e,Very satis,Elated    @&t@
2078 5,f,,
2079 6,g,,
2080 ])
2081 AT_CLEANUP
2082
2083 AT_SETUP([variables in expressions])
2084 AT_DATA([variables.sps], [dnl
2085 DATA LIST NOTABLE/N1 TO N5 1-5.
2086 MISSING VALUES N1 TO N5 (3 THRU 5, 1).
2087 BEGIN DATA.
2088 12345
2089 6789
2090 END DATA.
2091
2092 COMPUTE P1=N1.
2093 COMPUTE P2=N2.
2094 COMPUTE P3=N3.
2095 COMPUTE P4=N4.
2096 COMPUTE P5=N5.
2097
2098 COMPUTE MC=NMISS(N1 TO N5).
2099 COMPUTE VC=NVALID(N1 TO N5).
2100
2101 COMPUTE S1=SYSMIS(N1).
2102 COMPUTE S2=SYSMIS(N2).
2103 COMPUTE S3=SYSMIS(N3).
2104 COMPUTE S4=SYSMIS(N4).
2105 COMPUTE S5=SYSMIS(N5).
2106
2107 COMPUTE M1=MISSING(N1).
2108 COMPUTE M2=MISSING(N2).
2109 COMPUTE M3=MISSING(N3).
2110 COMPUTE M4=MISSING(N4).
2111 COMPUTE M5=MISSING(N5).
2112
2113 COMPUTE V1=VALUE(N1).
2114 COMPUTE V2=VALUE(N2).
2115 COMPUTE V3=VALUE(N3).
2116 COMPUTE V4=VALUE(N4).
2117 COMPUTE V5=VALUE(N5).
2118
2119 FORMATS ALL (F1).
2120
2121 LIST.
2122 ])
2123 AT_CHECK([pspp -o pspp.csv variables.sps])
2124 AT_CHECK([cat pspp.csv], [0], [dnl
2125 Table: Data List
2126 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
2127 1,2,3,4,5,.,2,.,.,.,4,1,0,0,0,0,0,1,0,1,1,1,1,2,3,4,5
2128 6,7,8,9,.,6,7,8,9,.,1,4,0,0,0,0,1,0,0,0,0,1,6,7,8,9,.
2129 ])
2130 AT_CLEANUP
2131
2132 AT_SETUP([vectors in expressions])
2133 AT_DATA([vectors.sps], [dnl
2134 DATA LIST NOTABLE /N1 TO N5 1-5.
2135 MISSING VALUES N1 TO N5 (3 THRU 5, 1).
2136 BEGIN DATA.
2137 12345
2138 6789
2139 END DATA.
2140
2141 VECTOR N=N1 TO N5.
2142 VECTOR X(5).
2143 LOOP I=1 TO 5.
2144 COMPUTE X(I)=N(I) + 1.
2145 END LOOP.
2146
2147 FORMATS ALL (F2).
2148
2149 LIST.
2150 ])
2151 AT_CHECK([pspp -o pspp.csv vectors.sps])
2152 AT_CHECK([cat pspp.csv], [0], [dnl
2153 Table: Data List
2154 N1,N2,N3,N4,N5,X1,X2,X3,X4,X5,I
2155 1,2,3,4,5,.,3,.,.,.,5
2156 6,7,8,9,.,7,8,9,10,.,5
2157 ])
2158 AT_CLEANUP