projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
VARIABLE ROLE: New command.
[pspp]
/
perl-module
/
t
/
Pspp.t
diff --git
a/perl-module/t/Pspp.t
b/perl-module/t/Pspp.t
index a7fb9578da8dc90efbe00dbb103c9c6b5057db30..a2d42889892b580b4a7c08d63fab8e98376ec591 100644
(file)
--- a/
perl-module/t/Pspp.t
+++ b/
perl-module/t/Pspp.t
@@
-591,7
+591,7
@@
SYNTAX
open (MYFILE, ">$tempdir/out.txt");
open (MYFILE, ">$tempdir/out.txt");
- foreach $k (
keys %$attr
)
+ foreach $k (
sort (keys (%$attr))
)
{
my $ll = $attr->{$k};
print MYFILE "$k =>";
{
my $ll = $attr->{$k};
print MYFILE "$k =>";
@@
-600,7
+600,8
@@
SYNTAX
close (MYFILE);
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
colour =>blue, pink, violet
nationality =>foreign
size =>large