Skip to content
Create a gist now

Instantly share code, notes, and snippets.

#!/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.