# change 'tests => 1' to 'tests => last_test_to_print';
-use Test::More tests => 36;
+use Test::More tests => 37;
use Text::Diff;
use File::Temp qw/ tempfile tempdir /;
BEGIN { use_ok('PSPP') };
ok ($d->get_var_cnt () == 0);
$d->set_label ("My Dictionary");
- $d->set_documents ("These Documents");
+ $d->add_document ("These Documents");
# Tests for variable creation
)
);
- $d->set_documents ("This should not appear");
+ $d->add_document ("This should not appear");
$d->clear_documents ();
$d->add_document ("This is a document line");
,Display Alignment: Left,,
,Display Width: 20,,
-File label:
+File label: This is the file label
-This is the file label
-
-Documents in the active file:
+Documents in the active dataset:
This is a document line
DISPLAY DICTIONARY.
SYNTAX
Variable,Description,,Position
-integer,My Integer,,1
+integer,Label: My Integer,,1
,Format: F8.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,0,Zero,
,1,Unity,
,2,Duality,
-string,My String,,2
+string,Label: My String,,2
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,"Missing Values: ""this ""; ""that """,,
,xx ,foo,
,yy ,bar,
-longstring,My Long String,,3
+longstring,Label: My Long String,,3
,Format: A9,,
,Measure: Nominal,,
,Display Alignment: Left,,
ok ( !ref $sf, "Returns undef on opening failure");
- ok ("$PSPP::errstr" eq "Error opening \"$tempdir/no-such-file.sav\" for reading as a system file: No such file or directory.",
+ ok ("$PSPP::errstr" eq "Error opening `$tempdir/no-such-file.sav' for reading as a system file: No such file or directory.",
"Error string on open failure");
}
open (MYFILE, ">$tempdir/out.txt");
- foreach $k (keys %$attr)
+ foreach $k (sort (keys (%$attr)))
{
my $ll = $attr->{$k};
print MYFILE "$k =>";
close (MYFILE);
- ok (compare ("$tempdir/out.txt", <<EOF), "Custom Attributes");
+ ok (compare ("$tempdir/out.txt", <<'EOF'), "Custom Attributes");
+$@Role =>0
colour =>blue, pink, violet
nationality =>foreign
size =>large
EOF
+}
+
+
+# Test of the get_case_cnt function
+{
+ my $tempdir = tempdir( CLEANUP => 1 );
+
+ generate_sav_file ("$tempdir/in.sav", "$tempdir");
+
+ my $sf = PSPP::Reader->open ("$tempdir/in.sav");
+
+ my $n = $sf->get_case_cnt ();
+ ok ($n == 5, "Case count");
}