# -*-perl-*-
# Test PDL::AutoLoader
use strict;
use Test;
BEGIN {
# plan tests => 1, todo => [1];
plan tests => 1;
}
use PDL::LiteF;
use PDL::AutoLoader;
use vars qw( @PDLLIB );
@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 );