projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change instances of GNM_SUPPORT to GNM_READ_SUPPORT
[pspp]
/
tests
/
perl-module.at
diff --git
a/tests/perl-module.at
b/tests/perl-module.at
index 115f2a8d20e714f8b644f150df9c1c3c9609210c..81fca4a5910e8ddde4bc78918b78a18f8f854f23 100644
(file)
--- a/
tests/perl-module.at
+++ b/
tests/perl-module.at
@@
-5,8
+5,12
@@
dnl built (with "make") but before it has been installed. The -I options are
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 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 \
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])
$PERL -I$abs_top_builddir/perl-module/blib/arch \
-I$abs_top_builddir/perl-module/blib/lib])
@@
-56,11
+60,9
@@
DISPLAY DICTIONARY.
SHOW WEIGHT.
])
AT_CHECK([pspp -O format=csv dump-dict.sps], [0],
SHOW WEIGHT.
])
AT_CHECK([pspp -O format=csv dump-dict.sps], [0],
- [File label:
+ [File label:
My Dictionary
-My Dictionary
-
-Documents in the active file:
+Documents in the active dataset:
These Documents
These Documents
@@
-151,11
+153,9
@@
name,Format: A20,,2
,Display Alignment: Left,,
,Display Width: 20,,
,Display Alignment: Left,,
,Display Width: 20,,
-File label:
-
-This is the file label
+File label: This is the file label
-Documents in the active
file
:
+Documents in the active
dataset
:
This is a document line
This is a document line
@@
-173,11
+173,9
@@
name,Format: A20,,2
,Display Alignment: Left,,
,Display Width: 20,,
,Display Alignment: Left,,
,Display Width: 20,,
-File label:
+File label:
This is the file label
-This is the file label
-
-Documents in the active file:
+Documents in the active dataset:
This is a document line
This is a document line
@@
-483,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,,
@@
-537,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,,
@@
-688,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 =>";
@@
-696,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
]])
@@
-704,8
+703,10
@@
AT_CLEANUP
AT_SETUP([Perl Pspp.t])
AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
AT_SETUP([Perl Pspp.t])
AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
+# Skip this test if Perl's Text::Diff module is not installed.
+AT_CHECK([perl -MText::Diff -e '' || exit 77])
AT_CHECK([RUN_PERL_MODULE $abs_top_builddir/perl-module/t/Pspp.t], [0],
AT_CHECK([RUN_PERL_MODULE $abs_top_builddir/perl-module/t/Pspp.t], [0],
- [[1..3
6
+ [[1..3
7
ok 1 - use PSPP;
ok 2 - Dictionary Creation
ok 3
ok 1 - use PSPP;
ok 2 - Dictionary Creation
ok 3
@@
-743,15
+744,6
@@
ok 33 - Missing Value Positive
ok 34 - Missing Value Positive SYS
ok 35 - Missing Value Positive Num
ok 36 - Custom Attributes
ok 34 - Missing Value Positive SYS
ok 35 - Missing Value Positive Num
ok 36 - Custom Attributes
-]],
- [[# @&t@
-# @@ -0,0 +1 @@
-# +
-# @@ -0,0 +1 @@
-# +
-# @@ -0,0 +1 @@
-# +
-# @@ -0,0 +1 @@
-# +
-]])
+ok 37 - Case count
+]],[ignore])
AT_CLEANUP
AT_CLEANUP