dnl PSPP - a program for statistical analysis.
-dnl Copyright (C) 2017 Free Software Foundation, Inc.
-dnl
+dnl Copyright (C) 2017, 2020, 2021 Free Software Foundation, Inc.
+dnl
dnl This program is free software: you can redistribute it and/or modify
dnl it under the terms of the GNU General Public License as published by
dnl the Free Software Foundation, either version 3 of the License, or
dnl (at your option) any later version.
-dnl
+dnl
dnl This program is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
dnl GNU General Public License for more details.
-dnl
+dnl
dnl You should have received a copy of the GNU General Public License
dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
dnl
AT_BANNER([Perl module tests])
+m4_divert_push([PREPARE_TESTS])
+# Find the Address Sanitizer library that PSPP is linked against, if any.
+# If it exists, it needs to be preloaded when we run Perl.
+asan_lib=$("$abs_top_builddir/libtool" --mode=execute ldd \
+ "$abs_top_builddir/src/ui/terminal/pspp" 2>/dev/null \
+ | grep asan \
+ | awk '{print $3}')
+if test -e "$asan_lib"; then
+ USING_ASAN=:
+else
+ USING_ASAN=false
+ asan_lib=
+fi
+
dnl This command can be used to run with the PSPP Perl module after it has been
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
-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 \
- LD_PRELOAD=/usr/lib/i386-linux-gnu/libasan.so.4 \
- 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])
+run_perl_module () {
+ LD_PRELOAD="$asan_lib":"$LD_PRELOAD" \
+ LD_LIBRARY_PATH="$abs_top_builddir/src/.libs" \
+ DYLD_LIBRARY_PATH="$abs_top_builddir/src/.libs" \
+ ASAN_OPTIONS="$ASAN_OPTIONS detect_leaks=false" \
+ $PERL -I"$abs_top_builddir/perl-module/blib/arch" \
+ -I"$abs_top_builddir/perl-module/blib/lib" "$@"
+}
+m4_divert_pop([PREPARE_TESTS])
AT_SETUP([Perl create system file])
AT_SKIP_IF([test "$WITH_PERL_MODULE" = no])
die "accept legal variable name" if !ref $var0;
die if $d->get_var_cnt () != 1;
- my $var1 = PSPP::Var->new ($d, "money",
+ my $var1 = PSPP::Var->new ($d, "money",
(fmt=>PSPP::Fmt::DOLLAR,
width=>4, decimals=>2) );
die "cappet valid format" if !ref $var1;
$sysfile->close ();
])
-AT_CHECK([RUN_PERL_MODULE test.pl])
+AT_CHECK([run_perl_module test.pl])
AT_DATA([dump-dict.sps],
[GET FILE='testfile.sav'.
DISPLAY FILE LABEL.
These Documents
Table: Variables
-Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
-legal,1,,Scale,Input,8,Right,F9.2,F9.2,
-money,2,,Scale,Input,8,Right,DOLLAR6.2,DOLLAR6.2,
+Name,Position,Measurement Level,Role,Width,Alignment,Print Format,Write Format
+legal,1,Scale,Input,8,Right,F9.2,F9.2
+money,2,Scale,Input,8,Right,DOLLAR6.2,DOLLAR6.2
dump-dict.sps:5: note: SHOW: WEIGHT is money.
])
my $d = PSPP::Dict->new();
PSPP::Var->new ($d, "id",
(
- fmt=>PSPP::Fmt::F,
- width=>2,
+ fmt=>PSPP::Fmt::F,
+ width=>2,
decimals=>0
)
);
PSPP::Var->new ($d, "name",
(
- fmt=>PSPP::Fmt::A,
- width=>20,
+ fmt=>PSPP::Fmt::A,
+ width=>20,
)
);
# Don't close. We want to test that the destructor does that.
]])
-AT_CHECK([RUN_PERL_MODULE test.pl])
+AT_CHECK([run_perl_module test.pl])
AT_DATA([dump-dicts.sps],
[GET FILE='testfile.sav'.
DISPLAY DICTIONARY.
])
AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], [dnl
Table: Variables
-Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
-id,1,,Scale,Input,8,Right,F2.0,F2.0,
-name,2,,Nominal,Input,20,Left,A20,A20,
+Name,Position,Measurement Level,Role,Width,Alignment,Print Format,Write Format
+id,1,Scale,Input,8,Right,F2.0,F2.0
+name,2,Nominal,Input,20,Left,A20,A20
Table: File Label
Label,This is the file label
34,frederick
Table: Variables
-Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values
-id,1,,Scale,Input,8,Right,F2.0,F2.0,
-name,2,,Nominal,Input,20,Left,A20,A20,
+Name,Position,Measurement Level,Role,Width,Alignment,Print Format,Write Format
+id,1,Scale,Input,8,Right,F2.0,F2.0
+name,2,Nominal,Input,20,Left,A20,A20
Table: File Label
Label,This is the file label
my $dict = PSPP::Dict->new();
die "dictionary creation" if !ref $dict;
- my $int = PSPP::Var->new ($dict, "integer",
+ my $int = PSPP::Var->new ($dict, "integer",
(width=>8, decimals=>0) );
$int->set_label ("My Integer");
$int->add_value_label (1, "Unity");
$int->add_value_label (2, "Duality");
- my $str = PSPP::Var->new ($dict, "string",
+ my $str = PSPP::Var->new ($dict, "string",
(fmt=>PSPP::Fmt::A, width=>8) );
$str->set_missing_values ("this", "that");
- my $longstr = PSPP::Var->new ($dict, "longstring",
+ my $longstr = PSPP::Var->new ($dict, "longstring",
(fmt=>PSPP::Fmt::A, width=>9) );
$sysfile->close ();
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0], [], [stderr])
+AT_CHECK([run_perl_module test.pl], [0], [], [stderr])
cat stderr
AT_DATA([dump-dict.sps],
[GET FILE='testfile.sav'.
PSPP::Var->new ($d, "id",
(
- fmt=>PSPP::Fmt::F,
- width=>2,
+ fmt=>PSPP::Fmt::F,
+ width=>2,
decimals=>0
)
);
my $res = $sysfile->append_case ([3]);
print "Dictionary survives sysfile\n" if $res;
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0],
+AT_CHECK([run_perl_module test.pl], [0],
[Dictionary survives sysfile
])
AT_CLEANUP
print "\n";
}
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0],
+AT_CHECK([run_perl_module test.pl], [0],
[Variable 0 is "string", label is "A Short String Variable"
Value Labels:
1111 => ones
$output->close ();
]])
-AT_CHECK([RUN_PERL_MODULE test.pl])
+AT_CHECK([run_perl_module test.pl])
AT_DATA([dump-dicts.sps],
[GET FILE='sample.sav'.
DISPLAY DICTIONARY.
A Numeric Variable,1,Unity
,2,Duality
,3,Thripality
-
-Footnotes:
-a,User-missing value
+Footnote: a. User-missing value
Table: Variable and Dataset Attributes
Variable and Name,,Value
A Numeric Variable,1,Unity
,2,Duality
,3,Thripality
-
-Footnotes:
-a,User-missing value
+Footnote: a. User-missing value
Table: Variable and Dataset Attributes
Variable and Name,,Value
print "Formatted string is \"$formatted\"\n";
print "Perl representation is \"$str\"\n";
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0],
+AT_CHECK([run_perl_module test.pl], [0],
[[Formatted string is "11-SEP-2001 08:20"
Perl representation is "Tue Sep 11 08:20:00 2001"
]])
die "Returns undef on opening failure" if ref $sf;
print $PSPP::errstr, "\n";
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0],
+AT_CHECK([run_perl_module test.pl], [0],
[[An error occurred while opening `no-such-file.sav': No such file or directory.
]],
[[Name "PSPP::errstr" used only once: possible typo at test.pl line 8.
die "Missing Value Negative Num"
if PSPP::value_is_missing ($val, $numericvar);
- @c = $sf->get_next_case ();
- @c = $sf->get_next_case ();
+ @c = $sf->get_next_case ();
+ @c = $sf->get_next_case ();
$val = $c[0];
die "Missing Value Positive"
if !PSPP::value_is_missing ($val, $stringvar);
- @c = $sf->get_next_case ();
+ @c = $sf->get_next_case ();
$val = $c[2];
die "Missing Value Positive SYS"
if !PSPP::value_is_missing ($val, $numericvar);
- @c = $sf->get_next_case ();
+ @c = $sf->get_next_case ();
$val = $c[2];
die "Missing Value Positive Num"
if !PSPP::value_is_missing ($val, $numericvar);
]])
-AT_CHECK([RUN_PERL_MODULE test.pl])
+AT_CHECK([run_perl_module test.pl])
AT_CLEANUP
AT_SETUP([Perl custom attributes])
print map "$_\n", join ', ', @$ll;
}
]])
-AT_CHECK([RUN_PERL_MODULE test.pl], [0],
+AT_CHECK([run_perl_module test.pl], [0],
[[$@Role =>0
colour =>blue, pink, violet
nationality =>foreign
AT_CLEANUP
AT_SETUP([Perl Pspp.t])
+AT_KEYWORDS([slow])
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],
- [[1..37
+# Skip this test if Perl's Memory::Usage module is not installed.
+AT_CHECK([perl -MMemory::Usage -e '' || exit 77])
+# Skip this test if Address Sanitizer is in use because it will
+# screw up memory accounting and look like a leak.
+AT_SKIP_IF([$USING_ASAN])
+AT_CHECK([run_perl_module "$abs_top_builddir/perl-module/t/Pspp.t"], [0],
+ [[1..38
ok 1 - use PSPP;
ok 2 - Dictionary Creation
ok 3
ok 35 - Missing Value Positive Num
ok 36 - Custom Attributes
ok 37 - Case count
+ok 38 - Memory management of append_case
]],[ignore])
AT_CLEANUP
projects / pspp / blobdiff