|
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{'"&<>'}; |