projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RANK: Simplify fraction_name() function.
[pspp]
/
perl-module
/
t
/
Pspp.t
diff --git
a/perl-module/t/Pspp.t
b/perl-module/t/Pspp.t
index fce5b74dd2eede1a4d472563cbb4413b359772fa..a7fb9578da8dc90efbe00dbb103c9c6b5057db30 100644
(file)
--- a/
perl-module/t/Pspp.t
+++ b/
perl-module/t/Pspp.t
@@
-8,7
+8,7
@@
# change 'tests => 1' to 'tests => last_test_to_print';
# change 'tests => 1' to 'tests => last_test_to_print';
-use Test::More tests => 3
6
;
+use Test::More tests => 3
7
;
use Text::Diff;
use File::Temp qw/ tempfile tempdir /;
BEGIN { use_ok('PSPP') };
use Text::Diff;
use File::Temp qw/ tempfile tempdir /;
BEGIN { use_ok('PSPP') };
@@
-72,7
+72,7
@@
sub run_pspp_syntax_cmp
ok ($d->get_var_cnt () == 0);
$d->set_label ("My Dictionary");
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
# Tests for variable creation
@@
-130,7
+130,7
@@
sub run_pspp_syntax_cmp
)
);
)
);
- $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");
$d->clear_documents ();
$d->add_document ("This is a document line");
@@
-185,11
+185,9
@@
name,Format: A20,,2
,Display Alignment: Left,,
,Display Width: 20,,
,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
This is a document line
@@
-607,5
+605,18
@@
colour =>blue, pink, violet
nationality =>foreign
size =>large
EOF
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");
}
}