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