Lines 25-31
use Module::Load::Conditional qw/check_install/;
Link Here
|
25 |
|
25 |
|
26 |
BEGIN { |
26 |
BEGIN { |
27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
28 |
plan tests => 34; |
28 |
plan tests => 33; |
29 |
} else { |
29 |
} else { |
30 |
plan skip_all => "Need Test::DBIx::Class" |
30 |
plan skip_all => "Need Test::DBIx::Class" |
31 |
} |
31 |
} |
Lines 63-80
is ( IsAuthorisedValueCategory('LOC'), 1, 'LOC is a valid authorized value categ
Link Here
|
63 |
is ( IsAuthorisedValueCategory('something'), 0, 'something is not a valid authorized value category'); |
63 |
is ( IsAuthorisedValueCategory('something'), 0, 'something is not a valid authorized value category'); |
64 |
is ( IsAuthorisedValueCategory('RELTERMS'), 1, 'RELTERMS is a valid authorized value category'); |
64 |
is ( IsAuthorisedValueCategory('RELTERMS'), 1, 'RELTERMS is a valid authorized value category'); |
65 |
|
65 |
|
66 |
# |
|
|
67 |
# test that &slashifyDate returns correct (non-US) date |
68 |
# |
69 |
my $date = "01/01/2002"; |
70 |
my $newdate = &slashifyDate("2002-01-01"); |
71 |
my $isbn13 = "9780330356473"; |
66 |
my $isbn13 = "9780330356473"; |
72 |
my $isbn13D = "978-0-330-35647-3"; |
67 |
my $isbn13D = "978-0-330-35647-3"; |
73 |
my $isbn10 = "033035647X"; |
68 |
my $isbn10 = "033035647X"; |
74 |
my $isbn10D = "0-330-35647-X"; |
69 |
my $isbn10D = "0-330-35647-X"; |
75 |
|
70 |
|
76 |
ok($date eq $newdate, 'slashifyDate'); |
|
|
77 |
|
78 |
my $undef = undef; |
71 |
my $undef = undef; |
79 |
is(xml_escape($undef), '', 'xml_escape() returns empty string on undef input'); |
72 |
is(xml_escape($undef), '', 'xml_escape() returns empty string on undef input'); |
80 |
my $str = q{'"&<>'}; |
73 |
my $str = q{'"&<>'}; |