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
|
use strict;
use warnings;
use Test::More;
BEGIN {
eval {require PDL};
plan skip_all => "No PDL, can't test this ($@)" if $@;
}
use PDL::LiteF;
use PDL::Types;
use PDL::Graphics::LUT;
my @names = lut_names();
isnt scalar(@names), 0, "lut_names returns non-empty list";
my @cols = lut_data( $names[0] );
is( scalar(@cols), 4, "lut_data returns 4 columns" );
is( $cols[0]->nelem, $cols[1]->nelem, "equal number of elements in cols 0 and 1");
is( $cols[2]->get_datatype, $PDL_F, "datatype of col 2 is float");
# check we can reverse things
my @cols2 = lut_data( $names[0], 1 );
ok( all( approx($cols[3]->slice('-1:0'),$cols2[3])), "reverse lut works");
# check we know about the intensity ramps
my @ramps = lut_ramps();
isnt scalar(@ramps), 0, "lut_ramps returns some ramps";
# load in a different intensity ramp
my @cols3 = lut_data( $names[0], 0, $ramps[0] );
is( $cols3[0]->nelem, $cols3[1]->nelem, "intensity ramp nelem check");
ok( all(approx($cols[1],$cols3[1], 1e-6)), "intensity ramp vals check")
or diag '[ difference, subtract, c[1], c3[1] ]: ', explain [
abs($cols[1] - $cols3[1]).'',
($cols[1] - $cols3[1]).'',
$cols[1].'',
$cols3[1].'',
];
done_testing;
|
