PXElator/t/format.t

#!/usr/bin/perl

use warnings;
use strict;

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/<tt>/i, 'html' );
1	dpavlin	213	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6	dpavlin	216	use Test::More tests => 7;
7	dpavlin	213
8			use_ok 'format';
9
10			ok( my $mac = format::mac( 'dead00beef' ), 'mac' );
11			diag $mac;
12			cmp_ok ( $mac, 'eq', 'DE:AD:00:BE:EF', 'formated' );
13	dpavlin	216
14			ok( my $tmp = format::mac( $mac ), 'mac allready formatted' );
15			cmp_ok( $tmp, 'eq', $mac );
16
17			ok( my $html = format::mac( 'dead00beef', 'html' ), 'mac html' );
18			like( $html, qr/<tt>/i, 'html' );