X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fperl-module.at;h=81fca4a5910e8ddde4bc78918b78a18f8f854f23;hb=1076f8e88e2eee1bc780edd9d79d696a38af936d;hp=1f4a96288c53fc5a7b875bd8abdb90d13cd76988;hpb=6be12778a162063cbdcd0e79043bd5a4ef2204a6;p=pspp

diff --git a/tests/perl-module.at b/tests/perl-module.at
index 1f4a96288c..81fca4a591 100644
--- a/tests/perl-module.at
+++ b/tests/perl-module.at
@@ -686,7 +686,7 @@ AT_DATA([test.pl],
 
     my $attr = $var->get_attributes ();
 
-    foreach my $k (keys %$attr)
+    foreach my $k (sort (keys (%$attr)))
     {
 	my $ll = $attr->{$k};
 	print "$k =>";
@@ -694,7 +694,8 @@ AT_DATA([test.pl],
     }
 ]])
 AT_CHECK([RUN_PERL_MODULE test.pl], [0],
-  [[colour =>blue, pink, violet
+  [[$@Role =>0
+colour =>blue, pink, violet
 nationality =>foreign
 size =>large
 ]])