#!/usr/bin/env perl
use warnings;
use strict;
use Test::More;
use Regexp::Common 'AT::NICAT';
my @valid = (
    qw/
      AB123456-NICAT
      ABC123456-NICAT
      ABCD123456-NICAT
      AB1-NICAT
      ABC1-NICAT
      ABCD1-NICAT
      /
);
my @not_valid = (
    qw/
      ABCDE123456-NICAT
      A123456-NICAT
      123456-NICAT
      AB123456-NICATX
      ABC123456-NICATX
      ABCD123456-NICATX
      AB1-NICATX
      ABC1-NICATX
      ABCD1-NICATX
      AB123456-NICA
      ABC123456-NICA
      ABCD123456-NICA
      AB1-NICA
      ABC1-NICA
      ABCD1-NICA
      ABCDEFGHIJKLMNOP
      /
);

sub is_valid {
    my $value = shift;
    /^$RE{at}{nicathandle}$/;
}
plan tests => @valid + @not_valid;
ok(is_valid($_),  "$_ is a valid handle")     for @valid;
ok(!is_valid($_), "$_ is not a valid handle") for @not_valid;
1;