File Coverage

blib/lib/Data/Semantic/URI/TestData/fax.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

use 5.008;
use strict;
use warnings;

package Data::Semantic::URI::TestData::fax;
our $VERSION = '1.100850';
# ABSTRACT: Test data class for the fax URI semantic data class
use Test::More;
use constant TESTDATA => (
    {   args  => {},
        valid => [
            qw(
              fax:[phone];tsp=terrifictelecom.com
              fax:[phone];tsp=terrifictelecom.com;phone-context=X-COMPANY-NET
              fax:[phone];tsub=0123456789-.();tsp=terrifictelecom.com;phone-context=X-COMPANY-NET
              fax:[phone];isub=123(456)
              fax:+12345
              fax:[phone];phone-context=+1234;vnd.company.option=%22foo%22
              fax:[phone];phone-context=+1234;vnd.company.option=foo
              fax:+123456;postd=***
              fax:+12345;tsub=0123456789-.()
              fax:+1234;option=%22!%22
              fax:+1234;option=%22%5C!%22
              fax:+1234;option=%22%5C%22%22
              fax:+1234;option=%22bar%22
              fax:[phone]
              fax:[phone];postd=pp22
              fax:[phone];tsub=0123456789-.()7
              fax:[phone];phone-context=213;phone-context=213
              fax:0w003585551234567;phone-context=[phone]
              fax:[phone];phone-context=213
              fax:[phone];phone-context=213;phone-context=213
              fax:[phone];phone-context=X-COMPANY-NET
              fax:[phone];tsub=0123456789-.();phone-context=213
              fax:[phone];tsub=0123456789-.();phone-context=X-COMPANY-NET
              )
        ],
        invalid => [
            qw(
              fax:+1-800-RUN-PERL
              fax:+1234;option=%22%22%22
              fax:+1234;option=%22%5C%22
              fax:[phone]
              fax:[phone];phone-context=213;tsub=0123456789-.()
              fax:[phone];tsub=213;
              fax:[phone];tsub=213;tsub=456
              )
        ],
    },
    {   args  => { nofuture => 1 },
        valid => [
            qw(
              fax:[phone];tsp=terrifictelecom.com
              fax:[phone];tsp=terrifictelecom.com;phone-context=X-COMPANY-NET
              fax:[phone];tsub=0123456789-.();tsp=terrifictelecom.com;phone-context=X-COMPANY-NET
              fax:[phone];isub=123(456)
              fax:+12345
              fax:+123456;postd=***
              fax:[phone]
              fax:[phone];postd=pp22
              fax:[phone];phone-context=213;phone-context=213
              fax:0w003585551234567;phone-context=[phone]
              fax:[phone];phone-context=213
              fax:[phone];phone-context=213;phone-context=213
              fax:[phone];phone-context=X-COMPANY-NET
              fax:[phone];tsub=0123456789-.();phone-context=213
              fax:[phone];tsub=0123456789-.();phone-context=X-COMPANY-NET
              )
        ],
        invalid => [
            qw(
              fax:+1-800-RUN-PERL
              fax:[phone];isub=123(456);isub=123(456)
              fax:[phone];isub=A23(456)
              fax:[phone];phone-context=+1234;vnd.company.option=%22foo%22
              fax:[phone];phone-context=+1234;vnd.company.option=foo
              fax:+12345;tsub=foo
              fax:+1234;option=%22!%22
              fax:+1234;option=%22%22%22
              fax:+1234;option=%22%5C!%22
              fax:+1234;option=%22%5C%22%22
              fax:+1234;option=%22%5C%22
              fax:+1234;option=%22bar%22
              fax:[phone];phone-context=+1234;postd=pp22
              fax:[phone];phone-context=+1234;vnd.company.option=%22foo%22
              fax:[phone];phone-context=+1234;vnd.company.option=foo
              fax:1234;option=%22!%22
              fax:1234;option=%22%5C!%22
              fax:1234;option=%22%5C%22%22
              fax:1234;option=%22bar%22
              fax:[phone]
              fax:[phone];tsub=213;
              fax:[phone];tsub=213;tsub=456
              )
        ],
    },
);
1;


__END__