PXElator/t/format.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 3;

use_ok 'format';

ok( my $mac = format::mac( 'dead00beef' ), 'mac' );
diag $mac;
cmp_ok ( $mac, 'eq', 'DE:AD:00:BE:EF', 'formated' );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use Test::More tests => 3;
7
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' );