dnl equivalent to "use ExtUtils::testlib;" inside the Perl program, but it does
dnl not need to be run with the perl-module build directory as the current
dnl working directory.
+dnl
+dnl XXX "libtool --mode=execute" is probably better than setting
+dnl LD_LIBRARY_PATH.
m4_define([RUN_PERL_MODULE],
[LD_LIBRARY_PATH=$abs_top_builddir/src/.libs \
+ DYLD_LIBRARY_PATH=$abs_top_builddir/src/.libs \
$PERL -I$abs_top_builddir/perl-module/blib/arch \
-I$abs_top_builddir/perl-module/blib/lib])
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
+,nationality,foreign,
+,size,large,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
+,nationality,foreign,
+,size,large,
date,A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
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
]])