The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 9;

BEGIN {
	use_ok('NetAddr::MAC', qw( :normals ))
		or die "# NetAddr::MAC not available\n";
}


## more stuff needed here
ok((mac_as_basic('10-00-5A-4D-BC-96') eq lc('10005A4DBC96')),'Check mac_as_basic output');
ok((mac_as_bpr('10-00-5A-4D-BC-96') eq lc('1,6,10:00:5A:4D:BC:96')),'Check mac_as_bpr output');
ok((mac_as_cisco('10-00-5A-4D-BC-96') eq lc('1000.5A4D.BC96')),'Check mac_as_cisco output');
ok((mac_as_ieee('1000.5A4D.BC96') eq lc('10-00-5A-4D-BC-96')),'Check mac_as_ieee output');
# ipv6 needed
ok((mac_as_microsoft('10-00-5A-4D-BC-96') eq lc('10:00:5A:4D:BC:96')),'Check mac_as_cisco output');
ok((mac_as_singledash('1000.5A4D.BC96') eq lc('10005A-4DBC96')),'Check mac_as_singledash output');
ok((mac_as_sun('1000.5A4D.BC96') eq lc('10-0-5A-4D-BC-96')),'Check mac_as_sun output');
ok((mac_as_tokenring('10-00-5A-4D-BC-96') eq lc('08-00-5A-B2-3D-69')),'Check mac_as_tokenring output');