DISPLAY DICTIONARY.
SYNTAX
Variable,Description,,Position
-integer,My Integer,,1
+integer,Label: My Integer,,1
,Format: F8.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,0,Zero,
,1,Unity,
,2,Duality,
-string,My String,,2
+string,Label: My String,,2
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,"Missing Values: ""this ""; ""that """,,
,xx ,foo,
,yy ,bar,
-longstring,My Long String,,3
+longstring,Label: My Long String,,3
,Format: A9,,
,Measure: Nominal,,
,Display Alignment: Left,,
open (MYFILE, ">$tempdir/out.txt");
- foreach $k (keys %$attr)
+ foreach $k (sort (keys (%$attr)))
{
my $ll = $attr->{$k};
print MYFILE "$k =>";
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