# Test datatype sizes in bytes are correct
use PDL::LiteF;
use PDL::Core ':Internal'; # For howbig()
sub ok {
my $no = shift ;
my $result = shift ;
print "not " unless $result ;
print "ok $no\n" ;
}
print "1..6\n";
ok(1, howbig(byte(42)->get_datatype)==1);
ok(2, howbig(short(42)->get_datatype)==2);
ok(3, howbig(ushort(42)->get_datatype)==2);
ok(4, howbig(long(42)->get_datatype)==4);
ok(5, howbig(float(42)->get_datatype)==4);
ok(6, howbig(double(42)->get_datatype)==8);