Add support for reading and writing SPV files.
[pspp] / tests / perl-module.at
1 dnl PSPP - a program for statistical analysis.
2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
3 dnl 
4 dnl This program is free software: you can redistribute it and/or modify
5 dnl it under the terms of the GNU General Public License as published by
6 dnl the Free Software Foundation, either version 3 of the License, or
7 dnl (at your option) any later version.
8 dnl 
9 dnl This program is distributed in the hope that it will be useful,
10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 dnl GNU General Public License for more details.
13 dnl 
14 dnl You should have received a copy of the GNU General Public License
15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
16 dnl
17 AT_BANNER([Perl module tests])
18
19 m4_divert_push([PREPARE_TESTS])
20 # Find the Address Sanitizer library that PSPP is linked against, if any.
21 # If it exists, it needs to be preloaded when we run Perl.
22 asan_lib=$($abs_top_builddir/libtool --mode=execute ldd \
23                $abs_top_builddir/src/ui/terminal/pspp 2>/dev/null \
24            | grep asan \
25            | awk '{print $3}')
26 if test ! -e "$asan_lib"; then
27     asan_lib=
28 fi
29
30 dnl This command can be used to run with the PSPP Perl module after it has been
31 dnl built (with "make") but before it has been installed.  The -I options are
32 dnl equivalent to "use ExtUtils::testlib;" inside the Perl program, but it does
33 dnl not need to be run with the perl-module build directory as the current
34 dnl working directory.
35 run_perl_module () {
36     LD_PRELOAD=$asan_lib:$LD_PRELOAD \
37     LD_LIBRARY_PATH=$abs_top_builddir/src/.libs \
38     DYLD_LIBRARY_PATH=$abs_top_builddir/src/.libs \
39     ASAN_OPTIONS="$ASAN_OPTIONS detect_leaks=false" \
40     $PERL -I$abs_top_builddir/perl-module/blib/arch \
41           -I$abs_top_builddir/perl-module/blib/lib "$@"
42 }
43 m4_divert_pop([PREPARE_TESTS])
44
45 AT_SETUP([Perl create system file])
46 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
47 AT_DATA([test.pl],
48   [use warnings;
49    use strict;
50    use PSPP;
51
52    my $d = PSPP::Dict->new();
53    die "dictionary creation" if !ref $d;
54    die if $d->get_var_cnt () != 0;
55
56    $d->set_label ("My Dictionary");
57    $d->set_documents ("These Documents");
58
59    # Tests for variable creation
60
61    my $var0 = PSPP::Var->new ($d, "le");
62    die "trap illegal variable name" if ref $var0;
63    die if $d->get_var_cnt () != 0;
64
65    $var0 = PSPP::Var->new ($d, "legal");
66    die "accept legal variable name" if !ref $var0;
67    die if $d->get_var_cnt () != 1;
68
69    my $var1 = PSPP::Var->new ($d, "money", 
70                               (fmt=>PSPP::Fmt::DOLLAR,
71                                width=>4, decimals=>2) );
72    die "cappet valid format" if !ref $var1;
73    die if $d->get_var_cnt () != 2;
74
75    $d->set_weight ($var1);
76
77    my $sysfile = PSPP::Sysfile->new ('testfile.sav', $d);
78    die "create sysfile object" if !ref $sysfile;
79
80    $sysfile->close ();
81 ])
82 AT_CHECK([run_perl_module test.pl])
83 AT_DATA([dump-dict.sps],
84   [GET FILE='testfile.sav'.
85 DISPLAY FILE LABEL.
86 DISPLAY DOCUMENTS.
87 DISPLAY DICTIONARY.
88 SHOW WEIGHT.
89 ])
90 AT_CHECK([pspp -O format=csv dump-dict.sps], [0], [dnl
91 Table: File Label
92 Label,My Dictionary
93
94 Table: Documents
95 These Documents
96
97 Table: Variables
98 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
99 legal,1,,Scale,Input,8,Right,F9.2,F9.2,
100 money,2,,Scale,Input,8,Right,DOLLAR6.2,DOLLAR6.2,
101
102 dump-dict.sps:5: note: SHOW: WEIGHT is money.
103 ])
104 AT_CLEANUP
105
106 AT_SETUP([Perl writing cases to system files])
107 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
108 AT_DATA([test.pl],
109   [[use warnings;
110     use strict;
111     use PSPP;
112
113     my $d = PSPP::Dict->new();
114     PSPP::Var->new ($d, "id",
115                     (
116                      fmt=>PSPP::Fmt::F, 
117                      width=>2, 
118                      decimals=>0
119                      )
120                     );
121
122     PSPP::Var->new ($d, "name",
123                            (
124                             fmt=>PSPP::Fmt::A, 
125                             width=>20, 
126                             )
127                            );
128
129     $d->set_documents ("This should not appear");
130     $d->clear_documents ();
131     $d->add_document ("This is a document line");
132
133     $d->set_label ("This is the file label");
134
135     # Check that we can write cases to system files.
136     my $sysfile = PSPP::Sysfile->new ("testfile.sav", $d);
137     my $res = $sysfile->append_case ( [34, "frederick"]);
138     die "append case" if !$res;
139
140     $res = $sysfile->append_case ( [34, "frederick", "extra"]);
141     die "append case with too many variables" if $res;
142     $sysfile->close ();
143
144     # Check that sysfiles are closed properly automaticallly in the destructor.
145     my $sysfile2 = PSPP::Sysfile->new ("testfile2.sav", $d);
146     $res = $sysfile2->append_case ( [21, "wheelbarrow"]);
147     die "append case 2" if !$res;
148
149     $res = $sysfile->append_case ( [34, "frederick", "extra"]);
150     die "append case with too many variables" if $res;
151
152     # Don't close.  We want to test that the destructor does that.
153 ]])
154 AT_CHECK([run_perl_module test.pl])
155 AT_DATA([dump-dicts.sps],
156   [GET FILE='testfile.sav'.
157 DISPLAY DICTIONARY.
158 DISPLAY FILE LABEL.
159 DISPLAY DOCUMENTS.
160 LIST.
161
162 GET FILE='testfile2.sav'.
163 DISPLAY DICTIONARY.
164 DISPLAY FILE LABEL.
165 DISPLAY DOCUMENTS.
166 LIST.
167 ])
168 AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], [dnl
169 Table: Variables
170 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
171 id,1,,Scale,Input,8,Right,F2.0,F2.0,
172 name,2,,Nominal,Input,20,Left,A20,A20,
173
174 Table: File Label
175 Label,This is the file label
176
177 Table: Documents
178 This is a document line
179
180 Table: Data List
181 id,name
182 34,frederick
183
184 Table: Variables
185 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
186 id,1,,Scale,Input,8,Right,F2.0,F2.0,
187 name,2,,Nominal,Input,20,Left,A20,A20,
188
189 Table: File Label
190 Label,This is the file label
191
192 Table: Documents
193 This is a document line
194
195 Table: Data List
196 id,name
197 21,wheelbarrow
198 ])
199 AT_CLEANUP
200
201 AT_SETUP([Perl write variable parameters])
202 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
203 AT_DATA([test.pl],
204   [[use warnings;
205     use strict;
206     use PSPP;
207
208     my $dict = PSPP::Dict->new();
209     die "dictionary creation" if !ref $dict;
210
211     my $int = PSPP::Var->new ($dict, "integer", 
212                               (width=>8, decimals=>0) );
213
214     $int->set_label ("My Integer");
215
216     $int->add_value_label (99, "Silly");
217     $int->clear_value_labels ();
218     $int->add_value_label (0, "Zero");
219     $int->add_value_label (1, "Unity");
220     $int->add_value_label (2, "Duality");
221
222     my $str = PSPP::Var->new ($dict, "string", 
223                               (fmt=>PSPP::Fmt::A, width=>8) );
224
225
226     $str->set_label ("My String");
227     $str->add_value_label ("xx", "foo");
228     $str->add_value_label ("yy", "bar");
229
230     $str->set_missing_values ("this", "that");
231
232     my $longstr = PSPP::Var->new ($dict, "longstring", 
233                               (fmt=>PSPP::Fmt::A, width=>9) );
234
235
236     $longstr->set_label ("My Long String");
237     my $re = $longstr->add_value_label ("xxx", "xfoo");
238
239     $int->set_missing_values (9, 99);
240
241     my $sysfile = PSPP::Sysfile->new ("testfile.sav", $dict);
242
243
244     $sysfile->close ();
245 ]])
246 AT_CHECK([run_perl_module test.pl], [0], [], [stderr])
247 cat stderr
248 AT_DATA([dump-dict.sps],
249   [GET FILE='testfile.sav'.
250 DISPLAY DICTIONARY.
251 ])
252 AT_CHECK([pspp -O format=csv dump-dict.sps], [0], [dnl
253 Table: Variables
254 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
255 integer,1,My Integer,Scale,Input,8,Right,F8.0,F8.0,9; 99
256 string,2,My String,Nominal,Input,8,Left,A8,A8,"""this    ""; ""that    """
257 longstring,3,My Long String,Nominal,Input,9,Left,A9,A9,
258
259 Table: Value Labels
260 Variable Value,,Label
261 My Integer,0,Zero
262 ,1,Unity
263 ,2,Duality
264 My String,xx,foo
265 ,yy,bar
266 My Long String,xxx,xfoo
267 ])
268 AT_CLEANUP
269
270 AT_SETUP([Perl dictionary survives system file])
271 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
272 AT_DATA([test.pl],
273   [[use warnings;
274 use strict;
275 use PSPP;
276
277 my $sysfile ;
278
279     {
280         my $d = PSPP::Dict->new();
281
282         PSPP::Var->new ($d, "id",
283                         (
284                          fmt=>PSPP::Fmt::F, 
285                          width=>2, 
286                          decimals=>0
287                          )
288                         );
289
290         $sysfile = PSPP::Sysfile->new ("testfile.sav", $d);
291     }
292
293     my $res = $sysfile->append_case ([3]);
294     print "Dictionary survives sysfile\n" if $res;
295 ]])
296 AT_CHECK([run_perl_module test.pl], [0],
297   [Dictionary survives sysfile
298 ])
299 AT_CLEANUP
300
301 m4_define([PERL_GENERATE_SYSFILE],
302   [AT_DATA([sample.sps],
303     [[data list notable list /string (a8) longstring (a12) numeric (f10) date (date11) dollar (dollar8.2) datetime (datetime17)
304 begin data.
305 1111 One   1 1/1/1 1   1/1/1+01:01
306 2222 Two   2 2/2/2 2   2/2/2+02:02
307 3333 Three 3 3/3/3 3   3/3/3+03:03
308 .    .     . .     .   .
309 5555 Five  5 5/5/5 5   5/5/5+05:05
310 end data.
311
312
313 variable labels string 'A Short String Variable'
314   /longstring 'A Long String Variable'
315   /numeric 'A Numeric Variable'
316   /date 'A Date Variable'
317   /dollar 'A Dollar Variable'
318   /datetime 'A Datetime Variable'.
319
320
321 missing values numeric (9, 5, 999).
322
323 missing values string ("3333").
324
325 add value labels
326   /string '1111' 'ones' '2222' 'twos' '3333' 'threes'
327   /numeric 1 'Unity' 2 'Duality' 3 'Thripality'.
328
329 variable attribute
330     variables = numeric
331     attribute=colour[1]('blue') colour[2]('pink') colour[3]('violet')
332     attribute=size('large') nationality('foreign').
333
334
335 save outfile='sample.sav'.
336 ]])
337    AT_CHECK([pspp -O format=csv sample.sps])])
338
339 AT_SETUP([Perl read system file])
340 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
341 PERL_GENERATE_SYSFILE
342 AT_DATA([test.pl],
343   [[use warnings;
344     use strict;
345     use PSPP;
346
347     my $sf = PSPP::Reader->open ("sample.sav");
348
349     my $dict = $sf->get_dict ();
350
351     for (my $v = 0 ; $v < $dict->get_var_cnt() ; $v++)
352     {
353        my $var = $dict->get_var ($v);
354        my $name = $var->get_name ();
355        my $label = $var->get_label ();
356
357        print "Variable $v is \"$name\", label is \"$label\"\n";
358
359        my $vl = $var->get_value_labels ();
360
361        print "Value Labels:\n";
362        print "$_ => $vl->{$_}\n" for sort (keys %$vl);
363     }
364
365     while (my @c = $sf->get_next_case () )
366     {
367        for (my $v = 0; $v < $dict->get_var_cnt(); $v++)
368        {
369            print "val$v: \"$c[$v]\"\n";
370        }
371        print "\n";
372     }
373 ]])
374 AT_CHECK([run_perl_module test.pl], [0],
375   [Variable 0 is "string", label is "A Short String Variable"
376 Value Labels:
377 1111     => ones
378 2222     => twos
379 3333     => threes
380 Variable 1 is "longstring", label is "A Long String Variable"
381 Value Labels:
382 Variable 2 is "numeric", label is "A Numeric Variable"
383 Value Labels:
384 1 => Unity
385 2 => Duality
386 3 => Thripality
387 Variable 3 is "date", label is "A Date Variable"
388 Value Labels:
389 Variable 4 is "dollar", label is "A Dollar Variable"
390 Value Labels:
391 Variable 5 is "datetime", label is "A Datetime Variable"
392 Value Labels:
393 val0: "1111    "
394 val1: "One         "
395 val2: "1"
396 val3: "13197686400"
397 val4: "1"
398 val5: "13197690060"
399
400 val0: "2222    "
401 val1: "Two         "
402 val2: "2"
403 val3: "13231987200"
404 val4: "2"
405 val5: "13231994520"
406
407 val0: "3333    "
408 val1: "Three       "
409 val2: "3"
410 val3: "13266028800"
411 val4: "3"
412 val5: "13266039780"
413
414 val0: ".       "
415 val1: ".           "
416 val2: ""
417 val3: ""
418 val4: ""
419 val5: ""
420
421 val0: "5555    "
422 val1: "Five        "
423 val2: "5"
424 val3: "13334630400"
425 val4: "5"
426 val5: "13334648700"
427
428 ])
429 AT_CLEANUP
430
431 AT_SETUP([Perl copying system files])
432 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
433 PERL_GENERATE_SYSFILE
434 AT_DATA([test.pl],
435   [[use warnings;
436     use strict;
437     use PSPP;
438
439     my $input = PSPP::Reader->open ("sample.sav");
440
441     my $dict = $input->get_dict ();
442
443     my $output = PSPP::Sysfile->new ("copy.sav", $dict);
444
445     while (my (@c) = $input->get_next_case () )
446     {
447       $output->append_case (\@c);
448     }
449
450     $output->close ();
451 ]])
452 AT_CHECK([run_perl_module test.pl])
453 AT_DATA([dump-dicts.sps],
454   [GET FILE='sample.sav'.
455 DISPLAY DICTIONARY.
456 DISPLAY ATTRIBUTES
457 LIST.
458
459 GET FILE='copy.sav'.
460 DISPLAY DICTIONARY.
461 DISPLAY ATTRIBUTES
462 LIST.
463 ])
464 AT_CHECK([pspp -O format=csv dump-dicts.sps], [0],
465   [[Table: Variables
466 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
467 string,1,A Short String Variable,Nominal,Input,8,Left,A8,A8,"""3333    """
468 longstring,2,A Long String Variable,Nominal,Input,12,Left,A12,A12,
469 numeric,3,A Numeric Variable,Scale,Input,8,Right,F10.0,F10.0,9; 5; 999
470 date,4,A Date Variable,Scale,Input,8,Right,DATE11,DATE11,
471 dollar,5,A Dollar Variable,Scale,Input,8,Right,DOLLAR11.2,DOLLAR11.2,
472 datetime,6,A Datetime Variable,Scale,Input,8,Right,DATETIME17.0,DATETIME17.0,
473
474 Table: Value Labels
475 Variable Value,,Label
476 A Short String Variable,1111,ones
477 ,2222,twos
478 ,3333[a],threes
479 A Numeric Variable,1,Unity
480 ,2,Duality
481 ,3,Thripality
482
483 Footnotes:
484 a,User-missing value
485
486 Table: Variable and Dataset Attributes
487 Variable and Name,,Value
488 A Numeric Variable,colour[1],blue
489 ,colour[2],pink
490 ,colour[3],violet
491 ,nationality,foreign
492 ,size,large
493
494 Table: Data List
495 string,longstring,numeric,date,dollar,datetime
496 1111,One,1,01-JAN-2001,$1.00,01-JAN-2001 01:01
497 2222,Two,2,02-FEB-2002,$2.00,02-FEB-2002 02:02
498 3333,Three,3,03-MAR-2003,$3.00,03-MAR-2003 03:03
499 .,.,.,.,.  ,.
500 5555,Five,5,05-MAY-2005,$5.00,05-MAY-2005 05:05
501
502 Table: Variables
503 Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
504 string,1,A Short String Variable,Nominal,Input,8,Left,A8,A8,"""3333    """
505 longstring,2,A Long String Variable,Nominal,Input,12,Left,A12,A12,
506 numeric,3,A Numeric Variable,Scale,Input,8,Right,F10.0,F10.0,9; 5; 999
507 date,4,A Date Variable,Scale,Input,8,Right,DATE11,DATE11,
508 dollar,5,A Dollar Variable,Scale,Input,8,Right,DOLLAR11.2,DOLLAR11.2,
509 datetime,6,A Datetime Variable,Scale,Input,8,Right,DATETIME17.0,DATETIME17.0,
510
511 Table: Value Labels
512 Variable Value,,Label
513 A Short String Variable,1111,ones
514 ,2222,twos
515 ,3333[a],threes
516 A Numeric Variable,1,Unity
517 ,2,Duality
518 ,3,Thripality
519
520 Footnotes:
521 a,User-missing value
522
523 Table: Variable and Dataset Attributes
524 Variable and Name,,Value
525 A Numeric Variable,colour[1],blue
526 ,colour[2],pink
527 ,colour[3],violet
528 ,nationality,foreign
529 ,size,large
530
531 Table: Data List
532 string,longstring,numeric,date,dollar,datetime
533 1111,One,1,01-JAN-2001,$1.00,01-JAN-2001 01:01
534 2222,Two,2,02-FEB-2002,$2.00,02-FEB-2002 02:02
535 3333,Three,3,03-MAR-2003,$3.00,03-MAR-2003 03:03
536 .,.,.,.,.  ,.
537 5555,Five,5,05-MAY-2005,$5.00,05-MAY-2005 05:05
538 ]])
539 AT_CLEANUP
540
541 AT_SETUP([Perl value formatting])
542 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
543 AT_DATA([dd.sps],
544   [DATA LIST LIST /d (DATETIME17).
545 BEGIN DATA.
546 11/9/2001+08:20
547 END DATA.
548
549 SAVE OUTFILE='dd.sav'.
550 ])
551 AT_CHECK([pspp -O format=csv dd.sps], [0],
552   [Table: Reading free-form data from INLINE.
553 Variable,Format
554 d,DATETIME17.0
555 ])
556 AT_DATA([test.pl],
557   [[use warnings;
558     use strict;
559     use PSPP;
560
561     my $sf = PSPP::Reader->open ("dd.sav");
562
563     my $dict = $sf->get_dict ();
564
565     my (@c) = $sf->get_next_case ();
566
567     my $var = $dict->get_var (0);
568     my $val = $c[0];
569     my $formatted = PSPP::format_value ($val, $var);
570     my $str = gmtime ($val - PSPP::PERL_EPOCH);
571     print "Formatted string is \"$formatted\"\n";
572     print "Perl representation is \"$str\"\n";
573 ]])
574 AT_CHECK([run_perl_module test.pl], [0],
575   [[Formatted string is "11-SEP-2001 08:20"
576 Perl representation is "Tue Sep 11 08:20:00 2001"
577 ]])
578 AT_CLEANUP
579
580 AT_SETUP([Perl opening nonexistent file])
581 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
582 AT_DATA([test.pl],
583   [[use warnings;
584     use strict;
585     use PSPP;
586
587     my $sf = PSPP::Reader->open ("no-such-file.sav");
588
589     die "Returns undef on opening failure" if ref $sf;
590     print $PSPP::errstr, "\n";
591 ]])
592 AT_CHECK([run_perl_module test.pl], [0],
593   [[An error occurred while opening `no-such-file.sav': No such file or directory.
594 ]],
595   [[Name "PSPP::errstr" used only once: possible typo at test.pl line 8.
596 ]])
597 AT_CLEANUP
598
599 AT_SETUP([Perl missing values])
600 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
601 PERL_GENERATE_SYSFILE
602 AT_DATA([test.pl],
603   [[use warnings;
604     use strict;
605     use PSPP;
606
607     my $sf = PSPP::Reader->open ("sample.sav");
608
609     my $dict = $sf->get_dict ();
610
611     my (@c) = $sf->get_next_case ();
612
613     my $stringvar = $dict->get_var (0);
614     my $numericvar = $dict->get_var (2);
615     my $val = $c[0];
616
617     die "Missing Value Negative String"
618         if PSPP::value_is_missing ($val, $stringvar);
619
620     $val = $c[2];
621
622     die "Missing Value Negative Num"
623         if PSPP::value_is_missing ($val, $numericvar);
624
625     @c = $sf->get_next_case (); 
626     @c = $sf->get_next_case (); 
627
628     $val = $c[0];
629     die "Missing Value Positive"
630         if !PSPP::value_is_missing ($val, $stringvar);
631
632     @c = $sf->get_next_case (); 
633     $val = $c[2];
634     die "Missing Value Positive SYS"
635         if !PSPP::value_is_missing ($val, $numericvar);
636
637     @c = $sf->get_next_case (); 
638     $val = $c[2];
639     die "Missing Value Positive Num"
640         if !PSPP::value_is_missing ($val, $numericvar);
641 ]])
642 AT_CHECK([run_perl_module test.pl])
643 AT_CLEANUP
644
645 AT_SETUP([Perl custom attributes])
646 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
647 PERL_GENERATE_SYSFILE
648 AT_DATA([test.pl],
649   [[use warnings;
650     use strict;
651     use PSPP;
652
653     my $sf = PSPP::Reader->open ("sample.sav");
654
655     my $dict = $sf->get_dict ();
656
657     my $var = $dict->get_var_by_name ("numeric");
658
659     my $attr = $var->get_attributes ();
660
661     foreach my $k (sort (keys (%$attr)))
662     {
663         my $ll = $attr->{$k};
664         print "$k =>";
665         print map "$_\n", join ', ', @$ll;
666     }
667 ]])
668 AT_CHECK([run_perl_module test.pl], [0],
669   [[$@Role =>0
670 colour =>blue, pink, violet
671 nationality =>foreign
672 size =>large
673 ]])
674 AT_CLEANUP
675
676 AT_SETUP([Perl Pspp.t])
677 AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
678 # Skip this test if Perl's Text::Diff module is not installed.
679 AT_CHECK([perl -MText::Diff -e '' || exit 77])
680 AT_CHECK([run_perl_module $abs_top_builddir/perl-module/t/Pspp.t], [0],
681   [[1..37
682 ok 1 - use PSPP;
683 ok 2 - Dictionary Creation
684 ok 3
685 ok 4 - Trap illegal variable name
686 ok 5
687 ok 6 - Accept legal variable name
688 ok 7
689 ok 8 - Trap duplicate variable name
690 ok 9
691 ok 10 - Accept valid format
692 ok 11
693 ok 12 - Create sysfile object
694 ok 13 - Write system file
695 ok 14 - Append Case
696 ok 15 - Appending Case with too many variables
697 ok 16 - existance
698 ok 17 - Append Case 2
699 ok 18 - existance2
700 ok 19 - Check output
701 ok 20 - Dictionary Creation 2
702 ok 21 - Value label for short string
703 ok 22 - Value label for long string
704 ok 23 - Check output 2
705 ok 24 - Dictionary survives sysfile
706 ok 25 - Basic reader operation
707 ok 26 - Streaming of files
708 Formatted string is "11-SEP-2001 08:20"
709 ok 27 - format_value function
710 ok 28 - Perl representation of time
711 ok 29 - Returns undef on opening failure
712 ok 30 - Error string on open failure
713 ok 31 - Missing Value Negative String
714 ok 32 - Missing Value Negative Num
715 ok 33 - Missing Value Positive
716 ok 34 - Missing Value Positive SYS
717 ok 35 - Missing Value Positive Num
718 ok 36 - Custom Attributes
719 ok 37 - Case count
720 ]],[ignore])
721 AT_CLEANUP