tests/data/data-in.at

   1 AT_BANNER([data input (data-in)])
   2
   3 m4_divert_push([PREPARE_TESTS])
   4 [data_in_prng () {
   5   cat > my-rand.pl <<'EOF'
   6 # This random number generator and the test for it below are drawn
   7 # from Park and Miller, "Random Number Generators: Good Ones are Hard
   8 # to Come By", Communications of the ACM 31:10 (October 1988).  It is
   9 # documented to function properly on systems with a 46-bit or longer
  10 # real significand, which includes systems that have 64-bit IEEE reals
  11 # (with 53-bit significand).  The test should catch any systems for
  12 # which this is not true, in any case.
  13
  14 our ($seed) = 1;
  15 sub my_rand {
  16   my ($modulo) = @_;
  17   my ($a) = 16807;
  18   my ($m) = 2147483647;
  19   my ($tmp) = $a * $seed;
  20   $seed = $tmp - $m * int ($tmp / $m);
  21   return $seed % $modulo;
  22 }
  23 EOF
  24   cat > test-my-rand.pl <<'EOF'
  25 #! /usr/bin/perl
  26 use strict;
  27 use warnings;
  28 do 'my-rand.pl';
  29 my_rand (1) foreach 1...10000;
  30 our $seed;
  31 die $seed if $seed != 1043618065;
  32 EOF
  33 }
  34 date_in () {
  35   data_in_prng
  36   cat > date-in.pl << 'EOF'
  37 #! /usr/bin/perl
  38
  39 use strict;
  40 use warnings;
  41
  42 do 'my-rand.pl';
  43
  44 my ($fmt_name, @templates) = @ARGV;
  45
  46 my @dates = (#yyyy  mm  dd  jjj  HH  MM  SS
  47              [1648,  6, 10, 162,  0,  0,  0],
  48              [1680,  6, 30, 182,  4, 50, 38],
  49              [1716,  7, 24, 206, 12, 31, 35],
  50              [1768,  6, 19, 171, 12, 47, 53],
  51              [1819,  8,  2, 214,  1, 26,  0],
  52              [1839,  3, 27,  86, 20, 58, 11],
  53              [1903,  4, 19, 109,  7, 36,  5],
  54              [1929,  8, 25, 237, 15, 43, 49],
  55              [1941,  9, 29, 272,  4, 25,  9],
  56              [1943,  4, 19, 109,  6, 49, 27],
  57              [1943, 10,  7, 280,  2, 57, 52],
  58              [1992,  3, 17,  77, 16, 45, 44],
  59              [1996,  2, 25,  56, 21, 30, 57],
  60              [1941,  9, 29, 272,  4, 25,  9],
  61              [1943,  4, 19, 109,  6, 49, 27],
  62              [1943, 10,  7, 280,  2, 57, 52],
  63              [1992,  3, 17,  77, 16, 45, 44],
  64              [1996,  2, 25,  56, 21, 30, 57],
  65              [2038, 11, 10, 314, 22, 30,  4],
  66              [2094,  7, 18, 199,  1, 56, 51]);
  67
  68 open (SYNTAX, '>', "$fmt_name.sps") or die "$fmt_name.sps: create: $!\n";
  69 print SYNTAX "SET EPOCH 1930.\n";
  70 print SYNTAX "DATA LIST NOTABLE FILE='$fmt_name.in'/$fmt_name 1-40 ($fmt_name).\n";
  71 print SYNTAX "PRINT OUTFILE='$fmt_name.out'/$fmt_name (F16.2).\n";
  72 print SYNTAX "EXECUTE.\n";
  73 close (SYNTAX);
  74
  75 my ($fn) = "$fmt_name.in";
  76 open (DATA, '>', $fn) or die "$fn: create: $!\n";
  77 select DATA;
  78 for my $template (@templates) {
  79     for my $date (@dates) {
  80         print_date_with_template ($date, $template) for 1...10;
  81     }
  82 }
  83 close (DATA);
  84
  85 sub print_date_with_template {
  86     my ($date, $template) = @_;
  87     my ($year, $month, $day, $julian, $hour, $minute, $second) = @$date;
  88     my ($quarter) = int (($month - 1) / 3) + 1;
  89     my ($week) = int (($julian - 1) / 7) + 1;
  90     my (@year_types) = ('full');
  91     push (@year_types, '2digit') if $year >= 1930 && $year < 2030;
  92     for my $c (split ('', $template)) {
  93         if ($c eq 'd') {
  94             printf (+pick ('%d', '%02d'), $day);
  95         } elsif ($c eq 'm') {
  96             my ($type) = pick ('arabic', 'roman', 'abbrev', 'full');
  97             if ($type eq 'arabic') {
  98                 printf (+pick ('%d', '%02d'), $month);
  99             } elsif ($type eq 'roman') {
 100                 my ($mmm) = ('i', 'ii', 'iii',
 101                              'iv', 'v', 'vi',
 102                              'vii', 'viii', 'ix',
 103                              'x', 'xi', 'xii')[$month - 1];
 104                 print_rand_case ($mmm);
 105             } elsif ($type eq 'abbrev') {
 106                 my ($mmm) = qw (jan feb mar apr may jun
 107                                 jul aug sep oct nov dec)[$month - 1];
 108                 print_rand_case ($mmm);
 109             } elsif ($type eq 'full') {
 110                 my ($mmm) = qw (january february march
 111                                 april may june
 112                                 july august september
 113                                 october november december)[$month - 1];
 114                 print_rand_case ($mmm);
 115             } else {
 116                 die;
 117             }
 118         } elsif ($c eq 'y') {
 119             my ($type) = pick (@year_types);
 120             if ($type eq '2digit') {
 121                 printf (+pick ('%d', '%02d'), $year % 100);
 122             } elsif ($type eq 'full') {
 123                 print $year;
 124             } else {
 125                 die;
 126             }
 127         } elsif ($c eq 'j') {
 128             my ($type) = pick (@year_types);
 129             if ($type eq '2digit') {
 130                 printf ("%02d%03d", $year % 100, $julian);
 131             } elsif ($type eq 'full') {
 132                 printf ("%04d%03d", $year, $julian);
 133             } else {
 134                 die;
 135             }
 136         } elsif ($c eq 'q') {
 137             print $quarter;
 138         } elsif ($c eq 'w') {
 139             print $week;
 140         } elsif ($c eq 'H') {
 141             printf (+pick ('%d', '%02d'), $hour);
 142         } elsif ($c eq 'M') {
 143             printf (+pick ('%d', '%02d'), $minute);
 144         } elsif ($c eq 'S') {
 145             printf (+pick ('%d', '%02d'), $second);
 146         } elsif ($c eq '-') {
 147             print +pick (' ', '-', '.', ',', '/');
 148         } elsif ($c eq ':') {
 149             print +pick (' ', ':');
 150         } elsif ($c eq ' ') {
 151             print ' ';
 152         } elsif ($c eq 'Q') {
 153             maybe_print_space ();
 154             print_rand_case ('q');
 155             maybe_print_space ();
 156         } elsif ($c eq 'W') {
 157             maybe_print_space ();
 158             print_rand_case ('wk');
 159             maybe_print_space ();
 160         } elsif ($c eq '+') {
 161             print +pick ('', '-', '+');
 162         } else {
 163             die;
 164         }
 165     }
 166     print "\n";
 167 }
 168
 169 sub print_rand_case {
 170     my ($s) = @_;
 171     my ($case) = pick (qw (uc lc tc));
 172     if ($case eq 'uc') {
 173         print uc ($s);
 174     } elsif ($case eq 'lc') {
 175         print lc ($s);
 176     } elsif ($case eq 'tc') {
 177         print ucfirst ($s);
 178     } else {
 179         die;
 180     }
 181 }
 182
 183 sub maybe_print_space {
 184    print +pick ('', ' ');
 185 }
 186
 187 sub pick {
 188    return $_[int (my_rand ($#_ + 1))];
 189 }
 190 EOF
 191 }]
 192 m4_divert_pop([PREPARE_TESTS])
 193
 194 AT_SETUP([numeric input formats])
 195 AT_KEYWORDS([data-in])
 196 data_in_prng
 197 AT_CHECK([$PERL test-my-rand.pl])
 198 AT_DATA([num-in.pl],
 199 [[#! /usr/bin/perl
 200
 201 use POSIX;
 202 use strict;
 203 use warnings;
 204
 205 do 'my-rand.pl';
 206
 207 for my $number (0, 1, .5, .015625, 123) {
 208     my ($base_exp) = floor ($number ? log10 ($number) : 0);
 209     for my $offset (-3...3) {
 210         my ($exponent) = $base_exp + $offset;
 211         my ($fraction) = $number / 10**$offset;
 212
 213         permute_zeros ($fraction, $exponent);
 214     }
 215 }
 216
 217 sub permute_zeros {
 218     my ($fraction, $exponent) = @_;
 219
 220     my ($frac_rep) = sprintf ("%f", $fraction);
 221     my ($leading_zeros) = length (($frac_rep =~ /^(0*)/)[0]);
 222     my ($trailing_zeros) = length (($frac_rep =~ /(\.?0*)$/)[0]);
 223     for my $i (0...$leading_zeros) {
 224         for my $j (0...$trailing_zeros) {
 225             my ($trimmed) = substr ($frac_rep, $i,
 226                                     length ($frac_rep) - $i - $j);
 227             next if $trimmed eq '.' || $trimmed eq '';
 228
 229             permute_commas ($trimmed, $exponent);
 230         }
 231     }
 232 }
 233
 234 sub permute_commas {
 235     my ($frac_rep, $exponent) = @_;
 236     permute_dot_comma ($frac_rep, $exponent);
 237     my ($pos) = int (my_rand (length ($frac_rep) + 1));
 238     $frac_rep = substr ($frac_rep, 0, $pos) . "," . substr ($frac_rep, $pos);
 239     permute_dot_comma ($frac_rep, $exponent);
 240 }
 241
 242 sub permute_dot_comma {
 243     my ($frac_rep, $exponent) = @_;
 244     permute_exponent_syntax ($frac_rep, $exponent);
 245     if ($frac_rep =~ /[,.]/) {
 246         $frac_rep =~ tr/.,/,./;
 247         permute_exponent_syntax ($frac_rep, $exponent);
 248     }
 249 }
 250
 251 sub permute_exponent_syntax {
 252     my ($frac_rep, $exponent) = @_;
 253     my (@exp_reps);
 254     if ($exponent == 0) {
 255         @exp_reps = pick ('', 'e0', 'e-0', 'e+0', '-0', '+0');
 256     } elsif ($exponent > 0) {
 257         @exp_reps = pick ("e$exponent", "e+$exponent", "+$exponent");
 258     } else {
 259         my ($abs_exp) = -$exponent;
 260         @exp_reps = pick ("e-$abs_exp", , "e-$abs_exp", "-$abs_exp");
 261     }
 262     permute_sign_and_affix ($frac_rep, $_) foreach @exp_reps;
 263 }
 264
 265 sub permute_sign_and_affix {
 266     my ($frac_rep, $exp_rep) = @_;
 267     for my $prefix (pick ('', '$'),
 268                     pick ('-', '-$', '$-', '$-$'),
 269                     pick ('+', '+$', '$+', '$+$')) {
 270         for my $suffix ('', '%') {
 271             permute_spaces ("$prefix$frac_rep$exp_rep$suffix");
 272         }
 273     }
 274 }
 275
 276 sub permute_spaces {
 277     my ($s) = @_;
 278     $s =~ s/([-+\$e%])/ $1 /g;
 279     my (@fields) = split (' ', $s);
 280     print join ('', @fields), "\n";
 281
 282     if ($#fields > 0) {
 283         my ($pos) = int (my_rand ($#fields)) + 1;
 284         print join ('', @fields[0...$pos - 1]);
 285         print " ";
 286         print join ('', @fields[$pos...$#fields]);
 287         print "\n";
 288     }
 289 }
 290
 291 sub pick {
 292     return $_[int (my_rand ($#_ + 1))];
 293 }
 294 ]])
 295 AT_CHECK([$PERL num-in.pl > num-in.data])
 296 AT_DATA([num-in.sps], [dnl
 297 SET ERRORS=NONE.
 298 SET MXERRS=10000000.
 299 SET MXWARNS=10000000.
 300 DATA LIST FILE='num-in.data' NOTABLE/
 301         f 1-40 (f)
 302         comma 1-40 (comma)
 303         dot 1-40 (dot)
 304         dollar 1-40 (dollar)
 305         pct 1-40 (pct)
 306         e 1-40 (e).
 307 PRINT OUTFILE='num-in.out'/all (6f10.4).
 308 EXECUTE.
 309 ])
 310 AT_CHECK([pspp -O format=csv num-in.sps])
 311 AT_CHECK([gzip -cd < $top_srcdir/tests/data/num-in.expected.gz > expout])
 312 AT_CHECK([cat num-in.out], [0], [expout])
 313 AT_CLEANUP
 314
 315 dnl Some very old version of PSPP crashed reading big numbers,
 316 dnl so this checks for regressions.
 317 AT_SETUP([reading big numbers])
 318 AT_KEYWORDS([data-in])
 319 AT_DATA([bignum.txt], [dnl
 320 0
 321 0.1
 322 0.5
 323 0.8
 324 0.9
 325 0.999
 326 1
 327 2
 328 3
 329 4
 330 5
 331 12
 332 123
 333 1234
 334 12345
 335 123456
 336 1234567
 337 12345678
 338 123456789
 339 1234567890
 340 19999999999
 341 199999999999
 342 1234567890123
 343 19999999999999
 344 199999999999999
 345 1234567890123456
 346 19999999999999999
 347 123456789012345678
 348 1999999999999999999
 349 12345678901234567890
 350 199999999999999999999
 351 1234567890123456789012
 352 19999999999999999999999
 353 123456789012345678901234
 354 1999999999999999999999999
 355 12345678901234567890123456
 356 199999999999999999999999999
 357 1234567890123456789012345678
 358 19999999999999999999999999999
 359 123456789012345678901234567890
 360 1999999999999999999999999999999
 361 12345678901234567890123456789012
 362 199999999999999999999999999999999
 363 1234567890123456789012345678901234
 364 19999999999999999999999999999999999
 365 123456789012345678901234567890123456
 366 1999999999999999999999999999999999999
 367 12345678901234567890123456789012345678
 368 199999999999999999999999999999999999999
 369 1234567890123456789012345678901234567890
 370 1999999999999999999999999999999999999999
 371 1e40
 372 1.1e40
 373 1.5e40
 374 1e41
 375 1e50
 376 1e100
 377 1e150
 378 1e200
 379 1e250
 380 1e300
 381 1.79641e308
 382 wizzah
 383 ])
 384 AT_DATA([bignum.sps], [dnl
 385 title 'Test use of big numbers'.
 386
 387 *** Do the portable output.
 388 data list file='bignum.txt'/BIGNUM 1-40.
 389 list.
 390
 391 *** Do the nonportable output for fun.
 392 descriptives BIGNUM.
 393 ])
 394 AT_CHECK([pspp -o pspp.csv bignum.sps], [0], [ignore])
 395 AT_CLEANUP
 396
 397 AT_SETUP([DATE input format])
 398 AT_KEYWORDS([data-in])
 399 date_in
 400 AT_CHECK([$PERL test-my-rand.pl])
 401 AT_CHECK([$PERL date-in.pl date d-m-y])
 402 AT_CHECK([test -s date.sps])
 403 AT_CHECK([test -s date.in])
 404 AT_CHECK([pspp -O format=csv date.sps])
 405 AT_CHECK([cat date.out], [0], [dnl
 406     2071958400.00
 407     2071958400.00
 408     2071958400.00
 409     2071958400.00
 410     2071958400.00
 411     2071958400.00
 412     2071958400.00
 413     2071958400.00
 414     2071958400.00
 415     2071958400.00
 416     3083529600.00
 417     3083529600.00
 418     3083529600.00
 419     3083529600.00
 420     3083529600.00
 421     3083529600.00
 422     3083529600.00
 423     3083529600.00
 424     3083529600.00
 425     3083529600.00
 426     4221590400.00
 427     4221590400.00
 428     4221590400.00
 429     4221590400.00
 430     4221590400.00
 431     4221590400.00
 432     4221590400.00
 433     4221590400.00
 434     4221590400.00
 435     4221590400.00
 436     5859561600.00
 437     5859561600.00
 438     5859561600.00
 439     5859561600.00
 440     5859561600.00
 441     5859561600.00
 442     5859561600.00
 443     5859561600.00
 444     5859561600.00
 445     5859561600.00
 446     7472649600.00
 447     7472649600.00
 448     7472649600.00
 449     7472649600.00
 450     7472649600.00
 451     7472649600.00
 452     7472649600.00
 453     7472649600.00
 454     7472649600.00
 455     7472649600.00
 456     8092742400.00
 457     8092742400.00
 458     8092742400.00
 459     8092742400.00
 460     8092742400.00
 461     8092742400.00
 462     8092742400.00
 463     8092742400.00
 464     8092742400.00
 465     8092742400.00
 466    10114329600.00
 467    10114329600.00
 468    10114329600.00
 469    10114329600.00
 470    10114329600.00
 471    10114329600.00
 472    10114329600.00
 473    10114329600.00
 474    10114329600.00
 475    10114329600.00
 476    10945929600.00
 477    10945929600.00
 478    10945929600.00
 479    10945929600.00
 480    10945929600.00
 481    10945929600.00
 482    10945929600.00
 483    10945929600.00
 484    10945929600.00
 485    10945929600.00
 486    11327644800.00
 487    11327644800.00
 488    11327644800.00
 489    11327644800.00
 490    11327644800.00
 491    11327644800.00
 492    11327644800.00
 493    11327644800.00
 494    11327644800.00
 495    11327644800.00
 496    11376633600.00
 497    11376633600.00
 498    11376633600.00
 499    11376633600.00
 500    11376633600.00
 501    11376633600.00
 502    11376633600.00
 503    11376633600.00
 504    11376633600.00
 505    11376633600.00
 506    11391408000.00
 507    11391408000.00
 508    11391408000.00
 509    11391408000.00
 510    11391408000.00
 511    11391408000.00
 512    11391408000.00
 513    11391408000.00
 514    11391408000.00
 515    11391408000.00
 516    12920169600.00
 517    12920169600.00
 518    12920169600.00
 519    12920169600.00
 520    12920169600.00
 521    12920169600.00
 522    12920169600.00
 523    12920169600.00
 524    12920169600.00
 525    12920169600.00
 526    13044585600.00
 527    13044585600.00
 528    13044585600.00
 529    13044585600.00
 530    13044585600.00
 531    13044585600.00
 532    13044585600.00
 533    13044585600.00
 534    13044585600.00
 535    13044585600.00
 536    11327644800.00
 537    11327644800.00
 538    11327644800.00
 539    11327644800.00
 540    11327644800.00
 541    11327644800.00
 542    11327644800.00
 543    11327644800.00
 544    11327644800.00
 545    11327644800.00
 546    11376633600.00
 547    11376633600.00
 548    11376633600.00
 549    11376633600.00
 550    11376633600.00
 551    11376633600.00
 552    11376633600.00
 553    11376633600.00
 554    11376633600.00
 555    11376633600.00
 556    11391408000.00
 557    11391408000.00
 558    11391408000.00
 559    11391408000.00
 560    11391408000.00
 561    11391408000.00
 562    11391408000.00
 563    11391408000.00
 564    11391408000.00
 565    11391408000.00
 566    12920169600.00
 567    12920169600.00
 568    12920169600.00
 569    12920169600.00
 570    12920169600.00
 571    12920169600.00
 572    12920169600.00
 573    12920169600.00
 574    12920169600.00
 575    12920169600.00
 576    13044585600.00
 577    13044585600.00
 578    13044585600.00
 579    13044585600.00
 580    13044585600.00
 581    13044585600.00
 582    13044585600.00
 583    13044585600.00
 584    13044585600.00
 585    13044585600.00
 586    14392339200.00
 587    14392339200.00
 588    14392339200.00
 589    14392339200.00
 590    14392339200.00
 591    14392339200.00
 592    14392339200.00
 593    14392339200.00
 594    14392339200.00
 595    14392339200.00
 596    16149628800.00
 597    16149628800.00
 598    16149628800.00
 599    16149628800.00
 600    16149628800.00
 601    16149628800.00
 602    16149628800.00
 603    16149628800.00
 604    16149628800.00
 605    16149628800.00
 606 ])
 607 AT_CLEANUP
 608
 609 AT_SETUP([ADATE input format])
 610 AT_KEYWORDS([data-in])
 611 date_in
 612 AT_CHECK([$PERL test-my-rand.pl])
 613 AT_CHECK([$PERL date-in.pl adate m-d-y])
 614 AT_CHECK([test -s adate.sps])
 615 AT_CHECK([test -s adate.in])
 616 AT_CHECK([pspp -O format=csv adate.sps])
 617 AT_CHECK([cat adate.out], [0], [dnl
 618     2071958400.00
 619     2071958400.00
 620     2071958400.00
 621     2071958400.00
 622     2071958400.00
 623     2071958400.00
 624     2071958400.00
 625     2071958400.00
 626     2071958400.00
 627     2071958400.00
 628     3083529600.00
 629     3083529600.00
 630     3083529600.00
 631     3083529600.00
 632     3083529600.00
 633     3083529600.00
 634     3083529600.00
 635     3083529600.00
 636     3083529600.00
 637     3083529600.00
 638     4221590400.00
 639     4221590400.00
 640     4221590400.00
 641     4221590400.00
 642     4221590400.00
 643     4221590400.00
 644     4221590400.00
 645     4221590400.00
 646     4221590400.00
 647     4221590400.00
 648     5859561600.00
 649     5859561600.00
 650     5859561600.00
 651     5859561600.00
 652     5859561600.00
 653     5859561600.00
 654     5859561600.00
 655     5859561600.00
 656     5859561600.00
 657     5859561600.00
 658     7472649600.00
 659     7472649600.00
 660     7472649600.00
 661     7472649600.00
 662     7472649600.00
 663     7472649600.00
 664     7472649600.00
 665     7472649600.00
 666     7472649600.00
 667     7472649600.00
 668     8092742400.00
 669     8092742400.00
 670     8092742400.00
 671     8092742400.00
 672     8092742400.00
 673     8092742400.00
 674     8092742400.00
 675     8092742400.00
 676     8092742400.00
 677     8092742400.00
 678    10114329600.00
 679    10114329600.00
 680    10114329600.00
 681    10114329600.00
 682    10114329600.00
 683    10114329600.00
 684    10114329600.00
 685    10114329600.00
 686    10114329600.00
 687    10114329600.00
 688    10945929600.00
 689    10945929600.00
 690    10945929600.00
 691    10945929600.00
 692    10945929600.00
 693    10945929600.00
 694    10945929600.00
 695    10945929600.00
 696    10945929600.00
 697    10945929600.00
 698    11327644800.00
 699    11327644800.00
 700    11327644800.00
 701    11327644800.00
 702    11327644800.00
 703    11327644800.00
 704    11327644800.00
 705    11327644800.00
 706    11327644800.00
 707    11327644800.00
 708    11376633600.00
 709    11376633600.00
 710    11376633600.00
 711    11376633600.00
 712    11376633600.00
 713    11376633600.00
 714    11376633600.00
 715    11376633600.00
 716    11376633600.00
 717    11376633600.00
 718    11391408000.00
 719    11391408000.00
 720    11391408000.00
 721    11391408000.00
 722    11391408000.00
 723    11391408000.00
 724    11391408000.00
 725    11391408000.00
 726    11391408000.00
 727    11391408000.00
 728    12920169600.00
 729    12920169600.00
 730    12920169600.00
 731    12920169600.00
 732    12920169600.00
 733    12920169600.00
 734    12920169600.00
 735    12920169600.00
 736    12920169600.00
 737    12920169600.00
 738    13044585600.00
 739    13044585600.00
 740    13044585600.00
 741    13044585600.00
 742    13044585600.00
 743    13044585600.00
 744    13044585600.00
 745    13044585600.00
 746    13044585600.00
 747    13044585600.00
 748    11327644800.00
 749    11327644800.00
 750    11327644800.00
 751    11327644800.00
 752    11327644800.00
 753    11327644800.00
 754    11327644800.00
 755    11327644800.00
 756    11327644800.00
 757    11327644800.00
 758    11376633600.00
 759    11376633600.00
 760    11376633600.00
 761    11376633600.00
 762    11376633600.00
 763    11376633600.00
 764    11376633600.00
 765    11376633600.00
 766    11376633600.00
 767    11376633600.00
 768    11391408000.00
 769    11391408000.00
 770    11391408000.00
 771    11391408000.00
 772    11391408000.00
 773    11391408000.00
 774    11391408000.00
 775    11391408000.00
 776    11391408000.00
 777    11391408000.00
 778    12920169600.00
 779    12920169600.00
 780    12920169600.00
 781    12920169600.00
 782    12920169600.00
 783    12920169600.00
 784    12920169600.00
 785    12920169600.00
 786    12920169600.00
 787    12920169600.00
 788    13044585600.00
 789    13044585600.00
 790    13044585600.00
 791    13044585600.00
 792    13044585600.00
 793    13044585600.00
 794    13044585600.00
 795    13044585600.00
 796    13044585600.00
 797    13044585600.00
 798    14392339200.00
 799    14392339200.00
 800    14392339200.00
 801    14392339200.00
 802    14392339200.00
 803    14392339200.00
 804    14392339200.00
 805    14392339200.00
 806    14392339200.00
 807    14392339200.00
 808    16149628800.00
 809    16149628800.00
 810    16149628800.00
 811    16149628800.00
 812    16149628800.00
 813    16149628800.00
 814    16149628800.00
 815    16149628800.00
 816    16149628800.00
 817    16149628800.00
 818 ])
 819 AT_CLEANUP
 820
 821 AT_SETUP([EDATE input format])
 822 AT_KEYWORDS([data-in])
 823 date_in
 824 AT_CHECK([$PERL test-my-rand.pl])
 825 AT_CHECK([$PERL date-in.pl edate d-m-y])
 826 AT_CHECK([test -s edate.sps])
 827 AT_CHECK([test -s edate.in])
 828 AT_CHECK([pspp -O format=csv edate.sps])
 829 AT_CHECK([cat edate.out], [0], [dnl
 830     2071958400.00
 831     2071958400.00
 832     2071958400.00
 833     2071958400.00
 834     2071958400.00
 835     2071958400.00
 836     2071958400.00
 837     2071958400.00
 838     2071958400.00
 839     2071958400.00
 840     3083529600.00
 841     3083529600.00
 842     3083529600.00
 843     3083529600.00
 844     3083529600.00
 845     3083529600.00
 846     3083529600.00
 847     3083529600.00
 848     3083529600.00
 849     3083529600.00
 850     4221590400.00
 851     4221590400.00
 852     4221590400.00
 853     4221590400.00
 854     4221590400.00
 855     4221590400.00
 856     4221590400.00
 857     4221590400.00
 858     4221590400.00
 859     4221590400.00
 860     5859561600.00
 861     5859561600.00
 862     5859561600.00
 863     5859561600.00
 864     5859561600.00
 865     5859561600.00
 866     5859561600.00
 867     5859561600.00
 868     5859561600.00
 869     5859561600.00
 870     7472649600.00
 871     7472649600.00
 872     7472649600.00
 873     7472649600.00
 874     7472649600.00
 875     7472649600.00
 876     7472649600.00
 877     7472649600.00
 878     7472649600.00
 879     7472649600.00
 880     8092742400.00
 881     8092742400.00
 882     8092742400.00
 883     8092742400.00
 884     8092742400.00
 885     8092742400.00
 886     8092742400.00
 887     8092742400.00
 888     8092742400.00
 889     8092742400.00
 890    10114329600.00
 891    10114329600.00
 892    10114329600.00
 893    10114329600.00
 894    10114329600.00
 895    10114329600.00
 896    10114329600.00
 897    10114329600.00
 898    10114329600.00
 899    10114329600.00
 900    10945929600.00
 901    10945929600.00
 902    10945929600.00
 903    10945929600.00
 904    10945929600.00
 905    10945929600.00
 906    10945929600.00
 907    10945929600.00
 908    10945929600.00
 909    10945929600.00
 910    11327644800.00
 911    11327644800.00
 912    11327644800.00
 913    11327644800.00
 914    11327644800.00
 915    11327644800.00
 916    11327644800.00
 917    11327644800.00
 918    11327644800.00
 919    11327644800.00
 920    11376633600.00
 921    11376633600.00
 922    11376633600.00
 923    11376633600.00
 924    11376633600.00
 925    11376633600.00
 926    11376633600.00
 927    11376633600.00
 928    11376633600.00
 929    11376633600.00
 930    11391408000.00
 931    11391408000.00
 932    11391408000.00
 933    11391408000.00
 934    11391408000.00
 935    11391408000.00
 936    11391408000.00
 937    11391408000.00
 938    11391408000.00
 939    11391408000.00
 940    12920169600.00
 941    12920169600.00
 942    12920169600.00
 943    12920169600.00
 944    12920169600.00
 945    12920169600.00
 946    12920169600.00
 947    12920169600.00
 948    12920169600.00
 949    12920169600.00
 950    13044585600.00
 951    13044585600.00
 952    13044585600.00
 953    13044585600.00
 954    13044585600.00
 955    13044585600.00
 956    13044585600.00
 957    13044585600.00
 958    13044585600.00
 959    13044585600.00
 960    11327644800.00
 961    11327644800.00
 962    11327644800.00
 963    11327644800.00
 964    11327644800.00
 965    11327644800.00
 966    11327644800.00
 967    11327644800.00
 968    11327644800.00
 969    11327644800.00
 970    11376633600.00
 971    11376633600.00
 972    11376633600.00
 973    11376633600.00
 974    11376633600.00
 975    11376633600.00
 976    11376633600.00
 977    11376633600.00
 978    11376633600.00
 979    11376633600.00
 980    11391408000.00
 981    11391408000.00
 982    11391408000.00
 983    11391408000.00
 984    11391408000.00
 985    11391408000.00
 986    11391408000.00
 987    11391408000.00
 988    11391408000.00
 989    11391408000.00
 990    12920169600.00
 991    12920169600.00
 992    12920169600.00
 993    12920169600.00
 994    12920169600.00
 995    12920169600.00
 996    12920169600.00
 997    12920169600.00
 998    12920169600.00
 999    12920169600.00
1000    13044585600.00
1001    13044585600.00
1002    13044585600.00
1003    13044585600.00
1004    13044585600.00
1005    13044585600.00
1006    13044585600.00
1007    13044585600.00
1008    13044585600.00
1009    13044585600.00
1010    14392339200.00
1011    14392339200.00
1012    14392339200.00
1013    14392339200.00
1014    14392339200.00
1015    14392339200.00
1016    14392339200.00
1017    14392339200.00
1018    14392339200.00
1019    14392339200.00
1020    16149628800.00
1021    16149628800.00
1022    16149628800.00
1023    16149628800.00
1024    16149628800.00
1025    16149628800.00
1026    16149628800.00
1027    16149628800.00
1028    16149628800.00
1029    16149628800.00
1030 ])
1031 AT_CLEANUP
1032
1033 AT_SETUP([JDATE input format])
1034 AT_KEYWORDS([data-in])
1035 date_in
1036 AT_CHECK([$PERL test-my-rand.pl])
1037 AT_CHECK([$PERL date-in.pl jdate j])
1038 AT_CHECK([test -s jdate.sps])
1039 AT_CHECK([test -s jdate.in])
1040 AT_CHECK([pspp -O format=csv jdate.sps])
1041 AT_CHECK([cat jdate.out], [0], [dnl
1042     2071958400.00
1043     2071958400.00
1044     2071958400.00
1045     2071958400.00
1046     2071958400.00
1047     2071958400.00
1048     2071958400.00
1049     2071958400.00
1050     2071958400.00
1051     2071958400.00
1052     3083529600.00
1053     3083529600.00
1054     3083529600.00
1055     3083529600.00
1056     3083529600.00
1057     3083529600.00
1058     3083529600.00
1059     3083529600.00
1060     3083529600.00
1061     3083529600.00
1062     4221590400.00
1063     4221590400.00
1064     4221590400.00
1065     4221590400.00
1066     4221590400.00
1067     4221590400.00
1068     4221590400.00
1069     4221590400.00
1070     4221590400.00
1071     4221590400.00
1072     5859561600.00
1073     5859561600.00
1074     5859561600.00
1075     5859561600.00
1076     5859561600.00
1077     5859561600.00
1078     5859561600.00
1079     5859561600.00
1080     5859561600.00
1081     5859561600.00
1082     7472649600.00
1083     7472649600.00
1084     7472649600.00
1085     7472649600.00
1086     7472649600.00
1087     7472649600.00
1088     7472649600.00
1089     7472649600.00
1090     7472649600.00
1091     7472649600.00
1092     8092742400.00
1093     8092742400.00
1094     8092742400.00
1095     8092742400.00
1096     8092742400.00
1097     8092742400.00
1098     8092742400.00
1099     8092742400.00
1100     8092742400.00
1101     8092742400.00
1102    10114329600.00
1103    10114329600.00
1104    10114329600.00
1105    10114329600.00
1106    10114329600.00
1107    10114329600.00
1108    10114329600.00
1109    10114329600.00
1110    10114329600.00
1111    10114329600.00
1112    10945929600.00
1113    10945929600.00
1114    10945929600.00
1115    10945929600.00
1116    10945929600.00
1117    10945929600.00
1118    10945929600.00
1119    10945929600.00
1120    10945929600.00
1121    10945929600.00
1122    11327644800.00
1123    11327644800.00
1124    11327644800.00
1125    11327644800.00
1126    11327644800.00
1127    11327644800.00
1128    11327644800.00
1129    11327644800.00
1130    11327644800.00
1131    11327644800.00
1132    11376633600.00
1133    11376633600.00
1134    11376633600.00
1135    11376633600.00
1136    11376633600.00
1137    11376633600.00
1138    11376633600.00
1139    11376633600.00
1140    11376633600.00
1141    11376633600.00
1142    11391408000.00
1143    11391408000.00
1144    11391408000.00
1145    11391408000.00
1146    11391408000.00
1147    11391408000.00
1148    11391408000.00
1149    11391408000.00
1150    11391408000.00
1151    11391408000.00
1152    12920169600.00
1153    12920169600.00
1154    12920169600.00
1155    12920169600.00
1156    12920169600.00
1157    12920169600.00
1158    12920169600.00
1159    12920169600.00
1160    12920169600.00
1161    12920169600.00
1162    13044585600.00
1163    13044585600.00
1164    13044585600.00
1165    13044585600.00
1166    13044585600.00
1167    13044585600.00
1168    13044585600.00
1169    13044585600.00
1170    13044585600.00
1171    13044585600.00
1172    11327644800.00
1173    11327644800.00
1174    11327644800.00
1175    11327644800.00
1176    11327644800.00
1177    11327644800.00
1178    11327644800.00
1179    11327644800.00
1180    11327644800.00
1181    11327644800.00
1182    11376633600.00
1183    11376633600.00
1184    11376633600.00
1185    11376633600.00
1186    11376633600.00
1187    11376633600.00
1188    11376633600.00
1189    11376633600.00
1190    11376633600.00
1191    11376633600.00
1192    11391408000.00
1193    11391408000.00
1194    11391408000.00
1195    11391408000.00
1196    11391408000.00
1197    11391408000.00
1198    11391408000.00
1199    11391408000.00
1200    11391408000.00
1201    11391408000.00
1202    12920169600.00
1203    12920169600.00
1204    12920169600.00
1205    12920169600.00
1206    12920169600.00
1207    12920169600.00
1208    12920169600.00
1209    12920169600.00
1210    12920169600.00
1211    12920169600.00
1212    13044585600.00
1213    13044585600.00
1214    13044585600.00
1215    13044585600.00
1216    13044585600.00
1217    13044585600.00
1218    13044585600.00
1219    13044585600.00
1220    13044585600.00
1221    13044585600.00
1222    14392339200.00
1223    14392339200.00
1224    14392339200.00
1225    14392339200.00
1226    14392339200.00
1227    14392339200.00
1228    14392339200.00
1229    14392339200.00
1230    14392339200.00
1231    14392339200.00
1232    16149628800.00
1233    16149628800.00
1234    16149628800.00
1235    16149628800.00
1236    16149628800.00
1237    16149628800.00
1238    16149628800.00
1239    16149628800.00
1240    16149628800.00
1241    16149628800.00
1242 ])
1243 AT_CLEANUP
1244
1245 AT_SETUP([SDATE input format])
1246 AT_KEYWORDS([data-in])
1247 date_in
1248 AT_CHECK([$PERL test-my-rand.pl])
1249 AT_CHECK([$PERL date-in.pl sdate y-m-d])
1250 AT_CHECK([test -s sdate.sps])
1251 AT_CHECK([test -s sdate.in])
1252 AT_CHECK([pspp -O format=csv sdate.sps])
1253 AT_CHECK([cat sdate.out], [0], [dnl
1254     2071958400.00
1255     2071958400.00
1256     2071958400.00
1257     2071958400.00
1258     2071958400.00
1259     2071958400.00
1260     2071958400.00
1261     2071958400.00
1262     2071958400.00
1263     2071958400.00
1264     3083529600.00
1265     3083529600.00
1266     3083529600.00
1267     3083529600.00
1268     3083529600.00
1269     3083529600.00
1270     3083529600.00
1271     3083529600.00
1272     3083529600.00
1273     3083529600.00
1274     4221590400.00
1275     4221590400.00
1276     4221590400.00
1277     4221590400.00
1278     4221590400.00
1279     4221590400.00
1280     4221590400.00
1281     4221590400.00
1282     4221590400.00
1283     4221590400.00
1284     5859561600.00
1285     5859561600.00
1286     5859561600.00
1287     5859561600.00
1288     5859561600.00
1289     5859561600.00
1290     5859561600.00
1291     5859561600.00
1292     5859561600.00
1293     5859561600.00
1294     7472649600.00
1295     7472649600.00
1296     7472649600.00
1297     7472649600.00
1298     7472649600.00
1299     7472649600.00
1300     7472649600.00
1301     7472649600.00
1302     7472649600.00
1303     7472649600.00
1304     8092742400.00
1305     8092742400.00
1306     8092742400.00
1307     8092742400.00
1308     8092742400.00
1309     8092742400.00
1310     8092742400.00
1311     8092742400.00
1312     8092742400.00
1313     8092742400.00
1314    10114329600.00
1315    10114329600.00
1316    10114329600.00
1317    10114329600.00
1318    10114329600.00
1319    10114329600.00
1320    10114329600.00
1321    10114329600.00
1322    10114329600.00
1323    10114329600.00
1324    10945929600.00
1325    10945929600.00
1326    10945929600.00
1327    10945929600.00
1328    10945929600.00
1329    10945929600.00
1330    10945929600.00
1331    10945929600.00
1332    10945929600.00
1333    10945929600.00
1334    11327644800.00
1335    11327644800.00
1336    11327644800.00
1337    11327644800.00
1338    11327644800.00
1339    11327644800.00
1340    11327644800.00
1341    11327644800.00
1342    11327644800.00
1343    11327644800.00
1344    11376633600.00
1345    11376633600.00
1346    11376633600.00
1347    11376633600.00
1348    11376633600.00
1349    11376633600.00
1350    11376633600.00
1351    11376633600.00
1352    11376633600.00
1353    11376633600.00
1354    11391408000.00
1355    11391408000.00
1356    11391408000.00
1357    11391408000.00
1358    11391408000.00
1359    11391408000.00
1360    11391408000.00
1361    11391408000.00
1362    11391408000.00
1363    11391408000.00
1364    12920169600.00
1365    12920169600.00
1366    12920169600.00
1367    12920169600.00
1368    12920169600.00
1369    12920169600.00
1370    12920169600.00
1371    12920169600.00
1372    12920169600.00
1373    12920169600.00
1374    13044585600.00
1375    13044585600.00
1376    13044585600.00
1377    13044585600.00
1378    13044585600.00
1379    13044585600.00
1380    13044585600.00
1381    13044585600.00
1382    13044585600.00
1383    13044585600.00
1384    11327644800.00
1385    11327644800.00
1386    11327644800.00
1387    11327644800.00
1388    11327644800.00
1389    11327644800.00
1390    11327644800.00
1391    11327644800.00
1392    11327644800.00
1393    11327644800.00
1394    11376633600.00
1395    11376633600.00
1396    11376633600.00
1397    11376633600.00
1398    11376633600.00
1399    11376633600.00
1400    11376633600.00
1401    11376633600.00
1402    11376633600.00
1403    11376633600.00
1404    11391408000.00
1405    11391408000.00
1406    11391408000.00
1407    11391408000.00
1408    11391408000.00
1409    11391408000.00
1410    11391408000.00
1411    11391408000.00
1412    11391408000.00
1413    11391408000.00
1414    12920169600.00
1415    12920169600.00
1416    12920169600.00
1417    12920169600.00
1418    12920169600.00
1419    12920169600.00
1420    12920169600.00
1421    12920169600.00
1422    12920169600.00
1423    12920169600.00
1424    13044585600.00
1425    13044585600.00
1426    13044585600.00
1427    13044585600.00
1428    13044585600.00
1429    13044585600.00
1430    13044585600.00
1431    13044585600.00
1432    13044585600.00
1433    13044585600.00
1434    14392339200.00
1435    14392339200.00
1436    14392339200.00
1437    14392339200.00
1438    14392339200.00
1439    14392339200.00
1440    14392339200.00
1441    14392339200.00
1442    14392339200.00
1443    14392339200.00
1444    16149628800.00
1445    16149628800.00
1446    16149628800.00
1447    16149628800.00
1448    16149628800.00
1449    16149628800.00
1450    16149628800.00
1451    16149628800.00
1452    16149628800.00
1453    16149628800.00
1454 ])
1455 AT_CLEANUP
1456
1457 AT_SETUP([QYR input format])
1458 AT_KEYWORDS([data-in])
1459 date_in
1460 AT_CHECK([$PERL test-my-rand.pl])
1461 AT_CHECK([$PERL date-in.pl qyr qQy])
1462 AT_CHECK([test -s qyr.sps])
1463 AT_CHECK([test -s qyr.in])
1464 AT_CHECK([pspp -O format=csv qyr.sps])
1465 AT_CHECK([cat qyr.out], [0], [dnl
1466     2065910400.00
1467     2065910400.00
1468     2065910400.00
1469     2065910400.00
1470     2065910400.00
1471     2065910400.00
1472     2065910400.00
1473     2065910400.00
1474     2065910400.00
1475     2065910400.00
1476     3075753600.00
1477     3075753600.00
1478     3075753600.00
1479     3075753600.00
1480     3075753600.00
1481     3075753600.00
1482     3075753600.00
1483     3075753600.00
1484     3075753600.00
1485     3075753600.00
1486     4219603200.00
1487     4219603200.00
1488     4219603200.00
1489     4219603200.00
1490     4219603200.00
1491     4219603200.00
1492     4219603200.00
1493     4219603200.00
1494     4219603200.00
1495     4219603200.00
1496     5852736000.00
1497     5852736000.00
1498     5852736000.00
1499     5852736000.00
1500     5852736000.00
1501     5852736000.00
1502     5852736000.00
1503     5852736000.00
1504     5852736000.00
1505     5852736000.00
1506     7469884800.00
1507     7469884800.00
1508     7469884800.00
1509     7469884800.00
1510     7469884800.00
1511     7469884800.00
1512     7469884800.00
1513     7469884800.00
1514     7469884800.00
1515     7469884800.00
1516     8085398400.00
1517     8085398400.00
1518     8085398400.00
1519     8085398400.00
1520     8085398400.00
1521     8085398400.00
1522     8085398400.00
1523     8085398400.00
1524     8085398400.00
1525     8085398400.00
1526    10112774400.00
1527    10112774400.00
1528    10112774400.00
1529    10112774400.00
1530    10112774400.00
1531    10112774400.00
1532    10112774400.00
1533    10112774400.00
1534    10112774400.00
1535    10112774400.00
1536    10941177600.00
1537    10941177600.00
1538    10941177600.00
1539    10941177600.00
1540    10941177600.00
1541    10941177600.00
1542    10941177600.00
1543    10941177600.00
1544    10941177600.00
1545    10941177600.00
1546    11319868800.00
1547    11319868800.00
1548    11319868800.00
1549    11319868800.00
1550    11319868800.00
1551    11319868800.00
1552    11319868800.00
1553    11319868800.00
1554    11319868800.00
1555    11319868800.00
1556    11375078400.00
1557    11375078400.00
1558    11375078400.00
1559    11375078400.00
1560    11375078400.00
1561    11375078400.00
1562    11375078400.00
1563    11375078400.00
1564    11375078400.00
1565    11375078400.00
1566    11390889600.00
1567    11390889600.00
1568    11390889600.00
1569    11390889600.00
1570    11390889600.00
1571    11390889600.00
1572    11390889600.00
1573    11390889600.00
1574    11390889600.00
1575    11390889600.00
1576    12913603200.00
1577    12913603200.00
1578    12913603200.00
1579    12913603200.00
1580    12913603200.00
1581    12913603200.00
1582    12913603200.00
1583    12913603200.00
1584    12913603200.00
1585    12913603200.00
1586    13039833600.00
1587    13039833600.00
1588    13039833600.00
1589    13039833600.00
1590    13039833600.00
1591    13039833600.00
1592    13039833600.00
1593    13039833600.00
1594    13039833600.00
1595    13039833600.00
1596    11319868800.00
1597    11319868800.00
1598    11319868800.00
1599    11319868800.00
1600    11319868800.00
1601    11319868800.00
1602    11319868800.00
1603    11319868800.00
1604    11319868800.00
1605    11319868800.00
1606    11375078400.00
1607    11375078400.00
1608    11375078400.00
1609    11375078400.00
1610    11375078400.00
1611    11375078400.00
1612    11375078400.00
1613    11375078400.00
1614    11375078400.00
1615    11375078400.00
1616    11390889600.00
1617    11390889600.00
1618    11390889600.00
1619    11390889600.00
1620    11390889600.00
1621    11390889600.00
1622    11390889600.00
1623    11390889600.00
1624    11390889600.00
1625    11390889600.00
1626    12913603200.00
1627    12913603200.00
1628    12913603200.00
1629    12913603200.00
1630    12913603200.00
1631    12913603200.00
1632    12913603200.00
1633    12913603200.00
1634    12913603200.00
1635    12913603200.00
1636    13039833600.00
1637    13039833600.00
1638    13039833600.00
1639    13039833600.00
1640    13039833600.00
1641    13039833600.00
1642    13039833600.00
1643    13039833600.00
1644    13039833600.00
1645    13039833600.00
1646    14388883200.00
1647    14388883200.00
1648    14388883200.00
1649    14388883200.00
1650    14388883200.00
1651    14388883200.00
1652    14388883200.00
1653    14388883200.00
1654    14388883200.00
1655    14388883200.00
1656    16148160000.00
1657    16148160000.00
1658    16148160000.00
1659    16148160000.00
1660    16148160000.00
1661    16148160000.00
1662    16148160000.00
1663    16148160000.00
1664    16148160000.00
1665    16148160000.00
1666 ])
1667 AT_CLEANUP
1668
1669 AT_SETUP([MOYR input format])
1670 AT_KEYWORDS([data-in])
1671 date_in
1672 AT_CHECK([$PERL test-my-rand.pl])
1673 AT_CHECK([$PERL date-in.pl moyr m-y])
1674 AT_CHECK([test -s moyr.sps])
1675 AT_CHECK([test -s moyr.in])
1676 AT_CHECK([pspp -O format=csv moyr.sps])
1677 AT_CHECK([cat moyr.out], [0], [dnl
1678     2071180800.00
1679     2071180800.00
1680     2071180800.00
1681     2071180800.00
1682     2071180800.00
1683     2071180800.00
1684     2071180800.00
1685     2071180800.00
1686     2071180800.00
1687     2071180800.00
1688     3081024000.00
1689     3081024000.00
1690     3081024000.00
1691     3081024000.00
1692     3081024000.00
1693     3081024000.00
1694     3081024000.00
1695     3081024000.00
1696     3081024000.00
1697     3081024000.00
1698     4219603200.00
1699     4219603200.00
1700     4219603200.00
1701     4219603200.00
1702     4219603200.00
1703     4219603200.00
1704     4219603200.00
1705     4219603200.00
1706     4219603200.00
1707     4219603200.00
1708     5858006400.00
1709     5858006400.00
1710     5858006400.00
1711     5858006400.00
1712     5858006400.00
1713     5858006400.00
1714     5858006400.00
1715     5858006400.00
1716     5858006400.00
1717     5858006400.00
1718     7472563200.00
1719     7472563200.00
1720     7472563200.00
1721     7472563200.00
1722     7472563200.00
1723     7472563200.00
1724     7472563200.00
1725     7472563200.00
1726     7472563200.00
1727     7472563200.00
1728     8090496000.00
1729     8090496000.00
1730     8090496000.00
1731     8090496000.00
1732     8090496000.00
1733     8090496000.00
1734     8090496000.00
1735     8090496000.00
1736     8090496000.00
1737     8090496000.00
1738    10112774400.00
1739    10112774400.00
1740    10112774400.00
1741    10112774400.00
1742    10112774400.00
1743    10112774400.00
1744    10112774400.00
1745    10112774400.00
1746    10112774400.00
1747    10112774400.00
1748    10943856000.00
1749    10943856000.00
1750    10943856000.00
1751    10943856000.00
1752    10943856000.00
1753    10943856000.00
1754    10943856000.00
1755    10943856000.00
1756    10943856000.00
1757    10943856000.00
1758    11325225600.00
1759    11325225600.00
1760    11325225600.00
1761    11325225600.00
1762    11325225600.00
1763    11325225600.00
1764    11325225600.00
1765    11325225600.00
1766    11325225600.00
1767    11325225600.00
1768    11375078400.00
1769    11375078400.00
1770    11375078400.00
1771    11375078400.00
1772    11375078400.00
1773    11375078400.00
1774    11375078400.00
1775    11375078400.00
1776    11375078400.00
1777    11375078400.00
1778    11390889600.00
1779    11390889600.00
1780    11390889600.00
1781    11390889600.00
1782    11390889600.00
1783    11390889600.00
1784    11390889600.00
1785    11390889600.00
1786    11390889600.00
1787    11390889600.00
1788    12918787200.00
1789    12918787200.00
1790    12918787200.00
1791    12918787200.00
1792    12918787200.00
1793    12918787200.00
1794    12918787200.00
1795    12918787200.00
1796    12918787200.00
1797    12918787200.00
1798    13042512000.00
1799    13042512000.00
1800    13042512000.00
1801    13042512000.00
1802    13042512000.00
1803    13042512000.00
1804    13042512000.00
1805    13042512000.00
1806    13042512000.00
1807    13042512000.00
1808    11325225600.00
1809    11325225600.00
1810    11325225600.00
1811    11325225600.00
1812    11325225600.00
1813    11325225600.00
1814    11325225600.00
1815    11325225600.00
1816    11325225600.00
1817    11325225600.00
1818    11375078400.00
1819    11375078400.00
1820    11375078400.00
1821    11375078400.00
1822    11375078400.00
1823    11375078400.00
1824    11375078400.00
1825    11375078400.00
1826    11375078400.00
1827    11375078400.00
1828    11390889600.00
1829    11390889600.00
1830    11390889600.00
1831    11390889600.00
1832    11390889600.00
1833    11390889600.00
1834    11390889600.00
1835    11390889600.00
1836    11390889600.00
1837    11390889600.00
1838    12918787200.00
1839    12918787200.00
1840    12918787200.00
1841    12918787200.00
1842    12918787200.00
1843    12918787200.00
1844    12918787200.00
1845    12918787200.00
1846    12918787200.00
1847    12918787200.00
1848    13042512000.00
1849    13042512000.00
1850    13042512000.00
1851    13042512000.00
1852    13042512000.00
1853    13042512000.00
1854    13042512000.00
1855    13042512000.00
1856    13042512000.00
1857    13042512000.00
1858    14391561600.00
1859    14391561600.00
1860    14391561600.00
1861    14391561600.00
1862    14391561600.00
1863    14391561600.00
1864    14391561600.00
1865    14391561600.00
1866    14391561600.00
1867    14391561600.00
1868    16148160000.00
1869    16148160000.00
1870    16148160000.00
1871    16148160000.00
1872    16148160000.00
1873    16148160000.00
1874    16148160000.00
1875    16148160000.00
1876    16148160000.00
1877    16148160000.00
1878 ])
1879 AT_CLEANUP
1880
1881 AT_SETUP([WKYR input format])
1882 AT_KEYWORDS([data-in])
1883 date_in
1884 AT_CHECK([$PERL test-my-rand.pl])
1885 AT_CHECK([$PERL date-in.pl wkyr wWy])
1886 AT_CHECK([test -s wkyr.sps])
1887 AT_CHECK([test -s wkyr.in])
1888 AT_CHECK([pspp -O format=csv wkyr.sps])
1889 AT_CHECK([cat wkyr.out], [0], [dnl
1890     2071958400.00
1891     2071958400.00
1892     2071958400.00
1893     2071958400.00
1894     2071958400.00
1895     2071958400.00
1896     2071958400.00
1897     2071958400.00
1898     2071958400.00
1899     2071958400.00
1900     3083011200.00
1901     3083011200.00
1902     3083011200.00
1903     3083011200.00
1904     3083011200.00
1905     3083011200.00
1906     3083011200.00
1907     3083011200.00
1908     3083011200.00
1909     3083011200.00
1910     4221417600.00
1911     4221417600.00
1912     4221417600.00
1913     4221417600.00
1914     4221417600.00
1915     4221417600.00
1916     4221417600.00
1917     4221417600.00
1918     4221417600.00
1919     4221417600.00
1920     5859388800.00
1921     5859388800.00
1922     5859388800.00
1923     5859388800.00
1924     5859388800.00
1925     5859388800.00
1926     5859388800.00
1927     5859388800.00
1928     5859388800.00
1929     5859388800.00
1930     7472390400.00
1931     7472390400.00
1932     7472390400.00
1933     7472390400.00
1934     7472390400.00
1935     7472390400.00
1936     7472390400.00
1937     7472390400.00
1938     7472390400.00
1939     7472390400.00
1940     8092656000.00
1941     8092656000.00
1942     8092656000.00
1943     8092656000.00
1944     8092656000.00
1945     8092656000.00
1946     8092656000.00
1947     8092656000.00
1948     8092656000.00
1949     8092656000.00
1950    10114070400.00
1951    10114070400.00
1952    10114070400.00
1953    10114070400.00
1954    10114070400.00
1955    10114070400.00
1956    10114070400.00
1957    10114070400.00
1958    10114070400.00
1959    10114070400.00
1960    10945497600.00
1961    10945497600.00
1962    10945497600.00
1963    10945497600.00
1964    10945497600.00
1965    10945497600.00
1966    10945497600.00
1967    10945497600.00
1968    10945497600.00
1969    10945497600.00
1970    11327212800.00
1971    11327212800.00
1972    11327212800.00
1973    11327212800.00
1974    11327212800.00
1975    11327212800.00
1976    11327212800.00
1977    11327212800.00
1978    11327212800.00
1979    11327212800.00
1980    11376374400.00
1981    11376374400.00
1982    11376374400.00
1983    11376374400.00
1984    11376374400.00
1985    11376374400.00
1986    11376374400.00
1987    11376374400.00
1988    11376374400.00
1989    11376374400.00
1990    11390889600.00
1991    11390889600.00
1992    11390889600.00
1993    11390889600.00
1994    11390889600.00
1995    11390889600.00
1996    11390889600.00
1997    11390889600.00
1998    11390889600.00
1999    11390889600.00
2000    12919651200.00
2001    12919651200.00
2002    12919651200.00
2003    12919651200.00
2004    12919651200.00
2005    12919651200.00
2006    12919651200.00
2007    12919651200.00
2008    12919651200.00
2009    12919651200.00
2010    13044067200.00
2011    13044067200.00
2012    13044067200.00
2013    13044067200.00
2014    13044067200.00
2015    13044067200.00
2016    13044067200.00
2017    13044067200.00
2018    13044067200.00
2019    13044067200.00
2020    11327212800.00
2021    11327212800.00
2022    11327212800.00
2023    11327212800.00
2024    11327212800.00
2025    11327212800.00
2026    11327212800.00
2027    11327212800.00
2028    11327212800.00
2029    11327212800.00
2030    11376374400.00
2031    11376374400.00
2032    11376374400.00
2033    11376374400.00
2034    11376374400.00
2035    11376374400.00
2036    11376374400.00
2037    11376374400.00
2038    11376374400.00
2039    11376374400.00
2040    11390889600.00
2041    11390889600.00
2042    11390889600.00
2043    11390889600.00
2044    11390889600.00
2045    11390889600.00
2046    11390889600.00
2047    11390889600.00
2048    11390889600.00
2049    11390889600.00
2050    12919651200.00
2051    12919651200.00
2052    12919651200.00
2053    12919651200.00
2054    12919651200.00
2055    12919651200.00
2056    12919651200.00
2057    12919651200.00
2058    12919651200.00
2059    12919651200.00
2060    13044067200.00
2061    13044067200.00
2062    13044067200.00
2063    13044067200.00
2064    13044067200.00
2065    13044067200.00
2066    13044067200.00
2067    13044067200.00
2068    13044067200.00
2069    13044067200.00
2070    14391907200.00
2071    14391907200.00
2072    14391907200.00
2073    14391907200.00
2074    14391907200.00
2075    14391907200.00
2076    14391907200.00
2077    14391907200.00
2078    14391907200.00
2079    14391907200.00
2080    16149456000.00
2081    16149456000.00
2082    16149456000.00
2083    16149456000.00
2084    16149456000.00
2085    16149456000.00
2086    16149456000.00
2087    16149456000.00
2088    16149456000.00
2089    16149456000.00
2090 ])
2091 AT_CLEANUP
2092
2093 AT_SETUP([DATETIME input format])
2094 AT_KEYWORDS([data-in])
2095 date_in
2096 AT_CHECK([$PERL test-my-rand.pl])
2097 AT_CHECK([$PERL date-in.pl datetime "d-m-y +H:M" "d-m-y +H:M:S"])
2098 AT_CHECK([test -s datetime.sps])
2099 AT_CHECK([test -s datetime.in])
2100 AT_CHECK([pspp -O format=csv datetime.sps])
2101 AT_CHECK([cat datetime.out], [0], [dnl
2102     2071958400.00
2103     2071958400.00
2104     2071958400.00
2105     2071958400.00
2106     2071958400.00
2107     2071958400.00
2108     2071958400.00
2109     2071958400.00
2110     2071958400.00
2111     2071958400.00
2112     3083512200.00
2113     3083512200.00
2114     3083547000.00
2115     3083547000.00
2116     3083547000.00
2117     3083512200.00
2118     3083547000.00
2119     3083547000.00
2120     3083512200.00
2121     3083512200.00
2122     4221545340.00
2123     4221635460.00
2124     4221545340.00
2125     4221545340.00
2126     4221635460.00
2127     4221635460.00
2128     4221545340.00
2129     4221635460.00
2130     4221545340.00
2131     4221635460.00
2132     5859607620.00
2133     5859607620.00
2134     5859515580.00
2135     5859515580.00
2136     5859607620.00
2137     5859607620.00
2138     5859607620.00
2139     5859607620.00
2140     5859515580.00
2141     5859607620.00
2142     7472644440.00
2143     7472654760.00
2144     7472654760.00
2145     7472654760.00
2146     7472654760.00
2147     7472654760.00
2148     7472654760.00
2149     7472654760.00
2150     7472644440.00
2151     7472654760.00
2152     8092817880.00
2153     8092666920.00
2154     8092817880.00
2155     8092666920.00
2156     8092817880.00
2157     8092817880.00
2158     8092666920.00
2159     8092817880.00
2160     8092666920.00
2161     8092817880.00
2162    10114302240.00
2163    10114356960.00
2164    10114302240.00
2165    10114302240.00
2166    10114302240.00
2167    10114356960.00
2168    10114302240.00
2169    10114302240.00
2170    10114302240.00
2171    10114356960.00
2172    10945873020.00
2173    10945986180.00
2174    10945986180.00
2175    10945986180.00
2176    10945873020.00
2177    10945986180.00
2178    10945986180.00
2179    10945873020.00
2180    10945986180.00
2181    10945873020.00
2182    11327628900.00
2183    11327660700.00
2184    11327660700.00
2185    11327660700.00
2186    11327660700.00
2187    11327628900.00
2188    11327628900.00
2189    11327660700.00
2190    11327660700.00
2191    11327660700.00
2192    11376658140.00
2193    11376609060.00
2194    11376658140.00
2195    11376658140.00
2196    11376609060.00
2197    11376658140.00
2198    11376609060.00
2199    11376658140.00
2200    11376658140.00
2201    11376658140.00
2202    11391418620.00
2203    11391418620.00
2204    11391397380.00
2205    11391397380.00
2206    11391418620.00
2207    11391418620.00
2208    11391397380.00
2209    11391418620.00
2210    11391418620.00
2211    11391418620.00
2212    12920229900.00
2213    12920229900.00
2214    12920229900.00
2215    12920229900.00
2216    12920229900.00
2217    12920109300.00
2218    12920229900.00
2219    12920109300.00
2220    12920229900.00
2221    12920229900.00
2222    13044508200.00
2223    13044663000.00
2224    13044508200.00
2225    13044663000.00
2226    13044508200.00
2227    13044508200.00
2228    13044663000.00
2229    13044663000.00
2230    13044663000.00
2231    13044663000.00
2232    11327660700.00
2233    11327628900.00
2234    11327628900.00
2235    11327660700.00
2236    11327628900.00
2237    11327628900.00
2238    11327628900.00
2239    11327628900.00
2240    11327628900.00
2241    11327628900.00
2242    11376609060.00
2243    11376658140.00
2244    11376658140.00
2245    11376609060.00
2246    11376658140.00
2247    11376609060.00
2248    11376658140.00
2249    11376609060.00
2250    11376658140.00
2251    11376658140.00
2252    11391397380.00
2253    11391397380.00
2254    11391418620.00
2255    11391397380.00
2256    11391418620.00
2257    11391418620.00
2258    11391418620.00
2259    11391418620.00
2260    11391418620.00
2261    11391397380.00
2262    12920229900.00
2263    12920229900.00
2264    12920229900.00
2265    12920229900.00
2266    12920229900.00
2267    12920229900.00
2268    12920109300.00
2269    12920229900.00
2270    12920229900.00
2271    12920229900.00
2272    13044508200.00
2273    13044663000.00
2274    13044508200.00
2275    13044508200.00
2276    13044508200.00
2277    13044663000.00
2278    13044663000.00
2279    13044663000.00
2280    13044508200.00
2281    13044508200.00
2282    14392420200.00
2283    14392258200.00
2284    14392420200.00
2285    14392420200.00
2286    14392420200.00
2287    14392420200.00
2288    14392258200.00
2289    14392420200.00
2290    14392420200.00
2291    14392420200.00
2292    16149635760.00
2293    16149635760.00
2294    16149635760.00
2295    16149635760.00
2296    16149635760.00
2297    16149635760.00
2298    16149635760.00
2299    16149635760.00
2300    16149621840.00
2301    16149635760.00
2302     2071958400.00
2303     2071958400.00
2304     2071958400.00
2305     2071958400.00
2306     2071958400.00
2307     2071958400.00
2308     2071958400.00
2309     2071958400.00
2310     2071958400.00
2311     2071958400.00
2312     3083512162.00
2313     3083512162.00
2314     3083512162.00
2315     3083547038.00
2316     3083512162.00
2317     3083512162.00
2318     3083547038.00
2319     3083512162.00
2320     3083547038.00
2321     3083547038.00
2322     4221635495.00
2323     4221545305.00
2324     4221635495.00
2325     4221635495.00
2326     4221635495.00
2327     4221545305.00
2328     4221635495.00
2329     4221635495.00
2330     4221635495.00
2331     4221635495.00
2332     5859607673.00
2333     5859515527.00
2334     5859607673.00
2335     5859607673.00
2336     5859607673.00
2337     5859607673.00
2338     5859515527.00
2339     5859607673.00
2340     5859607673.00
2341     5859607673.00
2342     7472654760.00
2343     7472644440.00
2344     7472654760.00
2345     7472654760.00
2346     7472654760.00
2347     7472644440.00
2348     7472654760.00
2349     7472654760.00
2350     7472644440.00
2351     7472654760.00
2352     8092817891.00
2353     8092817891.00
2354     8092666909.00
2355     8092817891.00
2356     8092817891.00
2357     8092817891.00
2358     8092817891.00
2359     8092817891.00
2360     8092817891.00
2361     8092817891.00
2362    10114302235.00
2363    10114302235.00
2364    10114302235.00
2365    10114356965.00
2366    10114356965.00
2367    10114356965.00
2368    10114356965.00
2369    10114356965.00
2370    10114356965.00
2371    10114302235.00
2372    10945986229.00
2373    10945986229.00
2374    10945872971.00
2375    10945872971.00
2376    10945986229.00
2377    10945986229.00
2378    10945872971.00
2379    10945986229.00
2380    10945986229.00
2381    10945986229.00
2382    11327660709.00
2383    11327660709.00
2384    11327660709.00
2385    11327660709.00
2386    11327660709.00
2387    11327660709.00
2388    11327660709.00
2389    11327660709.00
2390    11327660709.00
2391    11327660709.00
2392    11376658167.00
2393    11376658167.00
2394    11376658167.00
2395    11376658167.00
2396    11376658167.00
2397    11376658167.00
2398    11376658167.00
2399    11376658167.00
2400    11376658167.00
2401    11376658167.00
2402    11391397328.00
2403    11391418672.00
2404    11391418672.00
2405    11391418672.00
2406    11391397328.00
2407    11391418672.00
2408    11391397328.00
2409    11391418672.00
2410    11391418672.00
2411    11391418672.00
2412    12920229944.00
2413    12920229944.00
2414    12920109256.00
2415    12920229944.00
2416    12920229944.00
2417    12920109256.00
2418    12920109256.00
2419    12920109256.00
2420    12920229944.00
2421    12920109256.00
2422    13044663057.00
2423    13044663057.00
2424    13044663057.00
2425    13044508143.00
2426    13044663057.00
2427    13044663057.00
2428    13044663057.00
2429    13044508143.00
2430    13044663057.00
2431    13044663057.00
2432    11327628891.00
2433    11327628891.00
2434    11327660709.00
2435    11327660709.00
2436    11327660709.00
2437    11327628891.00
2438    11327628891.00
2439    11327660709.00
2440    11327660709.00
2441    11327628891.00
2442    11376658167.00
2443    11376658167.00
2444    11376658167.00
2445    11376658167.00
2446    11376658167.00
2447    11376609033.00
2448    11376658167.00
2449    11376609033.00
2450    11376658167.00
2451    11376658167.00
2452    11391418672.00
2453    11391397328.00
2454    11391418672.00
2455    11391397328.00
2456    11391397328.00
2457    11391397328.00
2458    11391397328.00
2459    11391397328.00
2460    11391397328.00
2461    11391397328.00
2462    12920229944.00
2463    12920229944.00
2464    12920229944.00
2465    12920109256.00
2466    12920229944.00
2467    12920229944.00
2468    12920229944.00
2469    12920229944.00
2470    12920229944.00
2471    12920229944.00
2472    13044663057.00
2473    13044663057.00
2474    13044663057.00
2475    13044663057.00
2476    13044508143.00
2477    13044663057.00
2478    13044508143.00
2479    13044508143.00
2480    13044663057.00
2481    13044663057.00
2482    14392258196.00
2483    14392420204.00
2484    14392420204.00
2485    14392420204.00
2486    14392258196.00
2487    14392420204.00
2488    14392420204.00
2489    14392258196.00
2490    14392420204.00
2491    14392420204.00
2492    16149635811.00
2493    16149635811.00
2494    16149635811.00
2495    16149635811.00
2496    16149635811.00
2497    16149621789.00
2498    16149621789.00
2499    16149621789.00
2500    16149635811.00
2501    16149635811.00
2502 ])
2503 AT_CLEANUP
2504
2505
2506 AT_SETUP([binary and hexadecimal input (IB, PIB, and PIBHEX formats)])
2507 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > binhex-in.data])
2508 AT_CHECK([wc -c < binhex-in.data], [0], [131072
2509 ])
2510 AT_DATA([binhex-in.sps], [dnl
2511 SET RIB=MSBFIRST.
2512 SET ERRORS=NONE.
2513 SET MXWARNS=10000000.
2514 SET MXERRS=10000000.
2515 FILE HANDLE data/NAME='binhex-in.data'/MODE=IMAGE/LRECL=2.
2516 DATA LIST FILE=data NOTABLE/ib 1-2 (IB) pib 1-2 (PIB) pibhex 1-2 (PIBHEX).
2517 COMPUTE x=$CASENUM - 1.
2518 PRINT OUTFILE='binhex-in.out'/x (PIBHEX4) ' ' ib pib pibhex.
2519 EXECUTE.
2520 ])
2521 AT_CHECK([gzip -cd < $top_srcdir/tests/data/binhex-in.expected.cmp.gz | \
2522             $PERL -pe "printf ' %04X ', $.-1" > expout])
2523 AT_CHECK([pspp -O format=csv binhex-in.sps], [0])
2524 AT_CHECK([cat binhex-in.out], [0], [expout])
2525 AT_CLEANUP
2526
2527 AT_SETUP([BCD input (P and PK formats)])
2528 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > bcd-in.data])
2529 AT_CHECK([wc -c < bcd-in.data], [0], [131072
2530 ])
2531 AT_DATA([bcd-in.sps], [dnl
2532 SET ERRORS=NONE.
2533 SET MXWARNS=10000000.
2534 SET MXERRS=10000000.
2535 FILE HANDLE data/NAME='bcd-in.data'/MODE=IMAGE/LRECL=2.
2536 DATA LIST FILE=data NOTABLE/p 1-2 (P) pk 1-2 (PK).
2537 COMPUTE x=$CASENUM - 1.
2538 PRINT OUTFILE='bcd-in.out'/x (PIBHEX4) ' ' P PK.
2539 EXECUTE.
2540 ])
2541 AT_CHECK([gzip -cd < $top_srcdir/tests/data/bcd-in.expected.cmp.gz | \
2542             $PERL -pe "printf ' %04X ', $.-1" > expout])
2543 AT_CHECK([pspp -O format=csv bcd-in.sps])
2544 AT_CHECK([cat bcd-in.out], [0], [expout])
2545 AT_CLEANUP
2546
2547 AT_SETUP([legacy input (N and Z formats)])
2548 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > legacy-in.data])
2549 AT_CHECK([wc -c < legacy-in.data], [0], [131072
2550 ])
2551 AT_DATA([legacy-in.sps], [dnl
2552 SET ERRORS=NONE.
2553 SET MXWARNS=10000000.
2554 SET MXERRS=10000000.
2555 FILE HANDLE data/NAME='legacy-in.data'/MODE=IMAGE/LRECL=2.
2556 DATA LIST NOTABLE FILE=data/n 1-2 (N) z 1-2 (z).
2557 COMPUTE x=$CASENUM - 1.
2558 PRINT OUTFILE='legacy-in.out'/x (PIBHEX4) ' ' N Z.
2559 EXECUTE.
2560 ])
2561 AT_CHECK([gzip -cd < $top_srcdir/tests/data/legacy-in.expected.cmp.gz | \
2562             $PERL -pe "printf ' %04X ', $.-1" > expout])
2563 AT_CHECK([pspp -O format=csv legacy-in.sps])
2564 AT_CHECK([cat legacy-in.out], [0], [expout])
2565 AT_CLEANUP
2566
2567 AT_SETUP([WKDAY input format])
2568 AT_DATA([wkday.sps], [dnl
2569 DATA LIST NOTABLE /wkday2 1-2 (wkday)
2570                    wkday3 1-3 (wkday)
2571                    wkday4 1-4 (wkday)
2572                    wkday5 1-5 (wkday)
2573                    wkday6 1-6 (wkday)
2574                    wkday7 1-7 (wkday)
2575                    wkday8 1-8 (wkday)
2576                    wkday9 1-9 (wkday)
2577                    wkday10 1-10 (wkday).
2578 BEGIN DATA.
2579
2580 .
2581 monady
2582 tuseday
2583 WEDENSDAY
2584 Thurdsay
2585 fRidya
2586 SAturady
2587 sudnay
2588 sturday
2589 END DATA.
2590 FORMATS ALL (WKDAY2).
2591 PRINT OUTFILE='wkday.out'/ALL.
2592 EXECUTE.
2593 ])
2594 AT_CHECK([pspp -O format=csv wkday.sps], [0], [dnl
2595 wkday.sps:20.1-2: warning: Data for variable wkday2 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2596
2597 wkday.sps:20.1-3: warning: Data for variable wkday3 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2598
2599 wkday.sps:20.1-4: warning: Data for variable wkday4 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2600
2601 wkday.sps:20.1-5: warning: Data for variable wkday5 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2602
2603 wkday.sps:20.1-6: warning: Data for variable wkday6 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2604
2605 wkday.sps:20.1-7: warning: Data for variable wkday7 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2606
2607 wkday.sps:20.1-8: warning: Data for variable wkday8 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2608
2609 wkday.sps:20.1-9: warning: Data for variable wkday9 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2610
2611 wkday.sps:20.1-10: warning: Data for variable wkday10 is not valid as format WKDAY: Unrecognized weekday name.  At least the first two letters of an English weekday name must be specified.
2612 ])
2613 AT_CHECK([cat wkday.out], [0], [dnl
2614   .  .  .  .  .  .  .  .  . @&t@
2615   .  .  .  .  .  .  .  .  . @&t@
2616  MO MO MO MO MO MO MO MO MO @&t@
2617  TU TU TU TU TU TU TU TU TU @&t@
2618  WE WE WE WE WE WE WE WE WE @&t@
2619  TH TH TH TH TH TH TH TH TH @&t@
2620  FR FR FR FR FR FR FR FR FR @&t@
2621  SA SA SA SA SA SA SA SA SA @&t@
2622  SU SU SU SU SU SU SU SU SU @&t@
2623   .  .  .  .  .  .  .  .  . @&t@
2624 ])
2625 AT_CLEANUP
2626
2627 AT_SETUP([MONTH input format])
2628 AT_DATA([month.sps], [dnl
2629 DATA LIST NOTABLE /month3 1-3 (MONTH)
2630                    month4 1-4 (MONTH)
2631                    month5 1-5 (MONTH)
2632                    month6 1-6 (MONTH)
2633                    month7 1-7 (MONTH)
2634                    month8 1-8 (MONTH)
2635                    month9 1-9 (MONTH)
2636                    month10 1-10 (MONTH).
2637 BEGIN DATA.
2638
2639 .
2640 i
2641 ii
2642 iii
2643 iiii
2644 iv
2645 v
2646 vi
2647 vii
2648 viii
2649 ix
2650 viiii
2651 x
2652 xi
2653 xii
2654 0
2655 1
2656 2
2657 3
2658 4
2659 5
2660 6
2661 7
2662 8
2663 9
2664 10
2665 11
2666 12
2667 13
2668 january
2669 JANAURY
2670 February
2671 fEbraury
2672 MArch
2673 marhc
2674 apRIL
2675 may
2676 june
2677 july
2678 august
2679 september
2680 october
2681 november
2682 decmeber
2683 december
2684 END DATA.
2685 FORMATS ALL (MONTH3).
2686 PRINT OUTFILE='month.out'/ALL.
2687 EXECUTE.
2688 ])
2689 AT_CHECK([pspp -O format=csv month.sps], [0], [dnl
2690 month.sps:15.1-4: warning: Data for variable month4 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2691
2692 month.sps:15.1-5: warning: Data for variable month5 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2693
2694 month.sps:15.1-6: warning: Data for variable month6 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2695
2696 month.sps:15.1-7: warning: Data for variable month7 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2697
2698 month.sps:15.1-8: warning: Data for variable month8 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2699
2700 month.sps:15.1-9: warning: Data for variable month9 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2701
2702 month.sps:15.1-10: warning: Data for variable month10 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2703
2704 month.sps:26.1-3: warning: Data for variable month3 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2705
2706 month.sps:26.1-4: warning: Data for variable month4 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2707
2708 month.sps:26.1-5: warning: Data for variable month5 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2709
2710 month.sps:26.1-6: warning: Data for variable month6 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2711
2712 month.sps:26.1-7: warning: Data for variable month7 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2713
2714 month.sps:26.1-8: warning: Data for variable month8 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2715
2716 month.sps:26.1-9: warning: Data for variable month9 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2717
2718 month.sps:26.1-10: warning: Data for variable month10 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2719
2720 month.sps:39.1-3: warning: Data for variable month3 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2721
2722 month.sps:39.1-4: warning: Data for variable month4 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2723
2724 month.sps:39.1-5: warning: Data for variable month5 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2725
2726 month.sps:39.1-6: warning: Data for variable month6 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2727
2728 month.sps:39.1-7: warning: Data for variable month7 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2729
2730 month.sps:39.1-8: warning: Data for variable month8 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2731
2732 month.sps:39.1-9: warning: Data for variable month9 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2733
2734 month.sps:39.1-10: warning: Data for variable month10 is not valid as format MONTH: Unrecognized month format.  Months may be specified as Arabic or Roman numerals or as at least 3 letters of their English names.
2735 ])
2736 AT_CHECK([cat month.out], [0], [dnl
2737    .   .   .   .   .   .   .   . @&t@
2738    .   .   .   .   .   .   .   . @&t@
2739  JAN JAN JAN JAN JAN JAN JAN JAN @&t@
2740  FEB FEB FEB FEB FEB FEB FEB FEB @&t@
2741  MAR MAR MAR MAR MAR MAR MAR MAR @&t@
2742  MAR   .   .   .   .   .   .   . @&t@
2743  APR APR APR APR APR APR APR APR @&t@
2744  MAY MAY MAY MAY MAY MAY MAY MAY @&t@
2745  JUN JUN JUN JUN JUN JUN JUN JUN @&t@
2746  JUL JUL JUL JUL JUL JUL JUL JUL @&t@
2747  JUL AUG AUG AUG AUG AUG AUG AUG @&t@
2748  SEP SEP SEP SEP SEP SEP SEP SEP @&t@
2749  JUL AUG AUG AUG AUG AUG AUG AUG @&t@
2750  OCT OCT OCT OCT OCT OCT OCT OCT @&t@
2751  NOV NOV NOV NOV NOV NOV NOV NOV @&t@
2752  DEC DEC DEC DEC DEC DEC DEC DEC @&t@
2753    .   .   .   .   .   .   .   . @&t@
2754  JAN JAN JAN JAN JAN JAN JAN JAN @&t@
2755  FEB FEB FEB FEB FEB FEB FEB FEB @&t@
2756  MAR MAR MAR MAR MAR MAR MAR MAR @&t@
2757  APR APR APR APR APR APR APR APR @&t@
2758  MAY MAY MAY MAY MAY MAY MAY MAY @&t@
2759  JUN JUN JUN JUN JUN JUN JUN JUN @&t@
2760  JUL JUL JUL JUL JUL JUL JUL JUL @&t@
2761  AUG AUG AUG AUG AUG AUG AUG AUG @&t@
2762  SEP SEP SEP SEP SEP SEP SEP SEP @&t@
2763  OCT OCT OCT OCT OCT OCT OCT OCT @&t@
2764  NOV NOV NOV NOV NOV NOV NOV NOV @&t@
2765  DEC DEC DEC DEC DEC DEC DEC DEC @&t@
2766    .   .   .   .   .   .   .   . @&t@
2767  JAN JAN JAN JAN JAN JAN JAN JAN @&t@
2768  JAN JAN JAN JAN JAN JAN JAN JAN @&t@
2769  FEB FEB FEB FEB FEB FEB FEB FEB @&t@
2770  FEB FEB FEB FEB FEB FEB FEB FEB @&t@
2771  MAR MAR MAR MAR MAR MAR MAR MAR @&t@
2772  MAR MAR MAR MAR MAR MAR MAR MAR @&t@
2773  APR APR APR APR APR APR APR APR @&t@
2774  MAY MAY MAY MAY MAY MAY MAY MAY @&t@
2775  JUN JUN JUN JUN JUN JUN JUN JUN @&t@
2776  JUL JUL JUL JUL JUL JUL JUL JUL @&t@
2777  AUG AUG AUG AUG AUG AUG AUG AUG @&t@
2778  SEP SEP SEP SEP SEP SEP SEP SEP @&t@
2779  OCT OCT OCT OCT OCT OCT OCT OCT @&t@
2780  NOV NOV NOV NOV NOV NOV NOV NOV @&t@
2781  DEC DEC DEC DEC DEC DEC DEC DEC @&t@
2782  DEC DEC DEC DEC DEC DEC DEC DEC @&t@
2783 ])
2784 AT_CLEANUP