NetAddr::MAC bogus MAC formats tests

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