1use strict;
2use warnings;
3use Test::More tests => 4;
4
5use PDL::LiteF;
6#If we've gotten this far and these tests fail, we're really in trouble!
7kill 'INT',$$ if $ENV{UNDER_DEBUGGER}; # Useful for debugging.
8
9my $a0 = zeroes(3,2);
10
11my $a1 = xvals $a0;
12
13is($a1->at(0,0), 0, "xvals 0,0 == 0");
14is($a1->at(1,0), 1, "xvals 1,0 == 1");
15is($a1->at(2,0), 2, "xvals 2,0 == 2");
16is($a1->at(1,1), 1, "xvals 1,1 == 1");
17