Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Test::More 0.88;
BEGIN {
use_ok('NetAddr::MAC');
}
eval{NetAddr::MAC->new('')};
like ($@,
qr/Invalid MAC format/, "Empty MAC");
eval{NetAddr::MAC->new()};
like ($@,
qr/please provide a mac address/i, "Undef MAC");
eval{NetAddr::MAC->new('11:22:33:44:xx:55')};
like ($@,
qr/Invalid MAC format/, "Bad MAC character");
eval{NetAddr::MAC->new('1:1')};
like ($@,
qr/Invalid MAC format/, "Bad MAC octet");
eval{NetAddr::MAC->new('11:22:33:44')};
like ($@,
qr/Invalid MAC format/, "Short MAC");
done_testing;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.