Skip to content

Instantly share code, notes, and snippets.

@ollyg
Created June 12, 2013 15:23
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save ollyg/5766262 to your computer and use it in GitHub Desktop.
#!/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