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