Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist
View NetAddr::MAC bogus MAC formats tests
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
#!/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.