my $attr = $var->get_attributes ();
- foreach my $k (keys %$attr)
+ foreach my $k (sort (keys (%$attr)))
{
my $ll = $attr->{$k};
print "$k =>";
}
]])
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
- [[colour =>blue, pink, violet
+ [[$@Role =>0
+colour =>blue, pink, violet
nationality =>foreign
size =>large
]])