--- lib/PXElator/t/format.t 2009/08/13 12:45:30 215 +++ lib/PXElator/t/format.t 2009/08/13 13:06:18 216 @@ -3,10 +3,16 @@ use warnings; use strict; -use Test::More tests => 3; +use Test::More tests => 7; use_ok 'format'; ok( my $mac = format::mac( 'dead00beef' ), 'mac' ); diag $mac; cmp_ok ( $mac, 'eq', 'DE:AD:00:BE:EF', 'formated' ); + +ok( my $tmp = format::mac( $mac ), 'mac allready formatted' ); +cmp_ok( $tmp, 'eq', $mac ); + +ok( my $html = format::mac( 'dead00beef', 'html' ), 'mac html' ); +like( $html, qr//i, 'html' );