projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
VARIABLE ROLE: Document the format and add a test.
[pspp]
/
tests
/
perl-module.at
diff --git
a/tests/perl-module.at
b/tests/perl-module.at
index b24278b7fc93b49050baaefe9d9adec6ccf3cb9c..81fca4a5910e8ddde4bc78918b78a18f8f854f23 100644
(file)
--- a/
tests/perl-module.at
+++ b/
tests/perl-module.at
@@
-481,11
+481,11
@@
numeric,A Numeric Variable,,3
,2,Duality,
,3,Thripality,
,Custom attributes:,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
+,nationality,foreign,
+,size,large,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
@@
-535,11
+535,11
@@
numeric,A Numeric Variable,,3
,2,Duality,
,3,Thripality,
,Custom attributes:,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
+,nationality,foreign,
+,size,large,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
@@
-686,7
+686,7
@@
AT_DATA([test.pl],
my $attr = $var->get_attributes ();
my $attr = $var->get_attributes ();
- foreach my $k (
keys %$attr
)
+ foreach my $k (
sort (keys (%$attr))
)
{
my $ll = $attr->{$k};
print "$k =>";
{
my $ll = $attr->{$k};
print "$k =>";
@@
-694,7
+694,8
@@
AT_DATA([test.pl],
}
]])
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
}
]])
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
- [[colour =>blue, pink, violet
+ [[$@Role =>0
+colour =>blue, pink, violet
nationality =>foreign
size =>large
]])
nationality =>foreign
size =>large
]])