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])
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
,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
,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
])
AT_CHECK([pspp -O format=csv dump-dict.sps], [0],
[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,,
my $vl = $var->get_value_labels ();
print "Value Labels:\n";
- print "$_ => $vl->{$_}\n" for keys %$vl;
+ print "$_ => $vl->{$_}\n" for sort (keys %$vl);
}
while (my @c = $sf->get_next_case () )
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
[Variable 0 is "string", label is "A Short String Variable"
Value Labels:
-3333 => threes
1111 => ones
2222 => twos
+3333 => threes
Variable 1 is "longstring", label is "A Long String Variable"
Value Labels:
Variable 2 is "numeric", label is "A Numeric Variable"
Value Labels:
1 => Unity
-3 => Thripality
2 => Duality
+3 => Thripality
Variable 3 is "date", label is "A Date Variable"
Value Labels:
Variable 4 is "dollar", label is "A Dollar Variable"
])
AT_CHECK([pspp -O format=csv dump-dicts.sps], [0],
[[Variable,Description,,Position
-string,A Short String Variable,,1
+string,Label: A Short String Variable,,1
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
-longstring,A Long String Variable,,2
+longstring,Label: A Long String Variable,,2
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
-numeric,A Numeric Variable,,3
+numeric,Label: A Numeric Variable,,3
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
-date,A Date Variable,,4
+,nationality,foreign,
+,size,large,
+date,Label: A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-dollar,A Dollar Variable,,5
+dollar,Label: A Dollar Variable,,5
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-datetime,A Datetime Variable,,6
+datetime,Label: A Datetime Variable,,6
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05
Variable,Description,,Position
-string,A Short String Variable,,1
+string,Label: A Short String Variable,,1
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
-longstring,A Long String Variable,,2
+longstring,Label: A Long String Variable,,2
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
-numeric,A Numeric Variable,,3
+numeric,Label: A Numeric Variable,,3
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
-date,A Date Variable,,4
+,nationality,foreign,
+,size,large,
+date,Label: A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-dollar,A Dollar Variable,,5
+dollar,Label: A Dollar Variable,,5
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-datetime,A Datetime Variable,,6
+datetime,Label: A Datetime Variable,,6
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
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
]])
# 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],
- [[1..36
+ [[1..37
ok 1 - use PSPP;
ok 2 - Dictionary Creation
ok 3
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