projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lexer: Reimplement for better testability and internationalization.
[pspp-builds.git]
/
perl-module
/
t
/
Pspp.t
diff --git
a/perl-module/t/Pspp.t
b/perl-module/t/Pspp.t
index d2d473d2209718fe3669464d0f100fe4bb7f28bc..a1ff5051a66fdde6d3d677009c99a06dcb8c7103 100644
(file)
--- a/
perl-module/t/Pspp.t
+++ b/
perl-module/t/Pspp.t
@@
-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");
@@
-533,7
+533,7
@@
SYNTAX
ok ( !ref $sf, "Returns undef on opening failure");
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");
}
"Error string on open failure");
}