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