X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2Ft%2FPspp.t;h=a2d42889892b580b4a7c08d63fab8e98376ec591;hb=79100bdd30230890345c1c5a09ae57a19c1e408b;hp=a7fb9578da8dc90efbe00dbb103c9c6b5057db30;hpb=36a60796842701bb68a4c54a84853a1db63c9dde;p=pspp

diff --git a/perl-module/t/Pspp.t b/perl-module/t/Pspp.t
index a7fb9578da..a2d4288989 100644
--- a/perl-module/t/Pspp.t
+++ b/perl-module/t/Pspp.t
@@ -591,7 +591,7 @@ SYNTAX
 
     open (MYFILE, ">$tempdir/out.txt");
 
-    foreach $k (keys %$attr)
+    foreach $k (sort (keys (%$attr)))
     {
 	my $ll = $attr->{$k};
 	print MYFILE "$k =>";
@@ -600,7 +600,8 @@ SYNTAX
 
     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