1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as
3# `perl 07_rescale.t'
4
5#########################
6
7use Test::More tests => 11;
8BEGIN { use_ok('Image::PBMlib') };
9
10use strict;
11
12use vars qw( $val $set );
13
14$set = "rescaleval";
15$val = rescaleval("F/", 255, 15);
16ok($val eq '1/', "$set F/ 255 15");
17
18$val = rescaleval("FE/", 255, 4080);
19ok($val eq 'FE0/', "$set FE/ 255 4080");
20
21$val = rescaleval("1000:", 10000, 1000);
22ok($val eq '100:', "$set 1000: 10000 1000");
23
24$val = rescaleval("0.31,", 287, 1492);
25ok($val eq '0.31,', "$set 0.31, 287 1492");
26
27$set = "array context rescaletriple";
28$val = join('', rescaletriple("0.31,0.1,0.2", 287, 1492));
29ok($val eq '0.31,0.1,0.2,', "$set 0.31,0.1,0.2 287 1492");
30
31$val = join('', rescaletriple("22:21:23", 287, 287));
32ok($val eq '22:21:23:', "$set 22:21:23 287 287");
33
34$set = "string context rescaletriple";
35$val = rescaletriple("22/21/23", 287, 287);
36ok($val eq '22/21/23', "$set 22/21/23 287 287");
37
38$val = rescaletriple("10/100/1000", 1024, 10240);
39ok($val eq 'A0/A00/2800', "$set 10/100/1000 1024 10240");
40
41$val = rescaletriple("20:200:2", 1024, 10240);
42ok($val eq '200:2000:20', "$set 20:200:2 1024 10240");
43
44$val = rescaletriple("60:1024:0", 1024, 512);
45ok($val eq '30:512:0', "$set 60:1024:0 1024 512");
46
47