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