projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
str: New functions for checking for and removing string suffixes.
[pspp-builds.git]
/
perl-module
/
t
/
Pspp.t
diff --git
a/perl-module/t/Pspp.t
b/perl-module/t/Pspp.t
index 4f65a4b5b2838e1322b6f12dea65bd1a85d60a6d..fce5b74dd2eede1a4d472563cbb4413b359772fa 100644
(file)
--- a/
perl-module/t/Pspp.t
+++ b/
perl-module/t/Pspp.t
@@
-40,7
+40,7
@@
sub run_pspp_syntax
print FH "$syntax";
close (FH);
print FH "$syntax";
close (FH);
- system ("cd $tempdir; $pspp_cmd -
-testing-mode
$syntaxfile");
+ system ("cd $tempdir; $pspp_cmd -
o pspp.csv
$syntaxfile");
}
sub run_pspp_syntax_cmp
}
sub run_pspp_syntax_cmp
@@
-292,7
+292,7
@@
begin data.
1111 One 1 1/1/1 1 1/1/1+01:01
2222 Two 2 2/2/2 2 2/2/2+02:02
3333 Three 3 3/3/3 3 3/3/3+03:03
1111 One 1 1/1/1 1 1/1/1+01:01
2222 Two 2 2/2/2 2 2/2/2+02:02
3333 Three 3 3/3/3 3 3/3/3+03:03
-. . . .
.
+. . . .
.
.
5555 Five 5 5/5/5 5 5/5/5+05:05
end data.
5555 Five 5 5/5/5 5 5/5/5+05:05
end data.
@@
-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");
}