1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# -*-perl-*-
# Test PDL::AutoLoader
use strict;
use Test::More;
use PDL::LiteF;
BEGIN {
if ( ! -f 't/func.pdl' ) {
plan skip_all => 'This test must be run from ../t';
}
else {
plan tests => 3;
}
use_ok('PDL::AutoLoader');
}
use vars qw( @PDLLIB );
$PDL::debug = 1;
@PDLLIB = ("t/"); # this means you have to run the test from ../t
my $x = long(2 + ones(2,2));
my $y = func($x);
ok( (sum($y) == 4*29), 'Check autoload of func.pdl' );
#check that tilde expansion works (not applicable on MS Windows)
SKIP: {
skip "Inapplicable to MS Windows", 1 if $^O =~ /MSWin/i;
my $tilde = (PDL::AutoLoader::expand_path('~'))[0];
my $get = $ENV{'HOME'} || (getpwnam( getlogin || getpwuid($<) ))[7];
my $echo = qx(echo ~);
chomp $echo;
if ($echo !~ /^~/) {
is($tilde, $echo, "Check tilde expansion (Got '$get' from (getpwnam(getpwuid(\$<)))[7] )");
} else {
is($tilde, $get, "Check tilde expansion (Got '$echo' from echo ~");
}
}
|
