# $Id: 10_convert_args.t 159 2008-05-01 14:04:31Z oliver $

use Test::More tests => 5;
#use Test::More qw(no_plan);
BEGIN { use_ok('Net::MAC') };

my $macaddr = '01:ab:01:ab:01:ab';

my $mac = eval{ Net::MAC->new(mac => $macaddr) };
isa_ok($mac, 'Net::MAC');

my $mac_defaults = $mac->convert;
is($mac_defaults, '01:ab:01:ab:01:ab', 'convert() using defaults');

my $mac_bitgroup = $mac->convert(bit_group => 8);
is($mac_bitgroup, '01:ab:01:ab:01:ab', 'convert() using bit_group and default delimiter');

my $mac_bitgroup_delim = $mac->convert(bit_group => 12, delimiter => '-');
is($mac_bitgroup_delim, '01a-b01-ab0-1ab', 'convert() using bit_group 12 and hyphen delimiter');