File Coverage

blib/lib/Class/Value/Contact/EmailAddress_TEST.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

use 5.008;
use strict;
use warnings;

package Class::Value::Contact::EmailAddress_TEST;
our $VERSION = '1.100840';
# ABSTRACT: Contact-related value objects
use Test::More;
use parent 'Class::Value::Test';
use constant TESTDATA => (
    {   args  => {},
        valid => [
            qw(
              [e-mail]
              [e-mail]
              *@q.to
              [e-mail]
              0@0.0
              )
        ],
        invalid => [
            qw(
              Borg
              a.test
              [e-mail]@blah.com
              0@0
              foo@at
              fh@@univie.ac.at
              [e-mail]@univie.ac.at
              1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456[e-mail]
              [e-mail]
              "[e-mail]"
              )
        ],
    },
);
1;


__END__