1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as 3# `perl 05_floatvaltodec.t' 4 5######################### 6 7use Test::More tests => 4; 8BEGIN { use_ok('Image::PBMlib') }; 9 10use strict; 11 12use vars qw( $val ); 13 14$val = floatvaltodec(0.93333333, 15); 15ok($val eq '14:', "floatvaltodec 0.93333333, 15 : 14"); 16 17$val = floatvaltodec(".99607843,", 255); 18ok($val eq '254:', "floatvaltodec .99607843, 255 : 254"); 19 20$val = floatvaltodec(0.00207532, 16383); 21ok($val eq '34:', "floatvaltodec 0.00207532, 16383 : 34"); 22