1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as
3# `perl 06_explodetriple.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 = join('', explodetriple("FF/ff/0/"));
15ok($val eq 'FF/ff/0/', "explodetriple FF/ff/0/");
16
17$val = join('', explodetriple("1:12345:0"));
18ok($val eq '1:12345:0:', "explodetriple 1:12345:0");
19
20$val = join('', explodetriple("1.0,1.345,0.0"));
21ok($val eq '1.0,1.345,0.0,', "explodetriple 1.0,1.345,0.0");
22