| 1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
| 2 |
use strict; |
use strict; |
| 3 |
use Test; |
use Test; |
| 4 |
BEGIN { plan tests => 42 } |
BEGIN { plan tests => 54 } |
| 5 |
|
|
| 6 |
require Message::DOM::DOMImplementation; |
require Message::DOM::DOMImplementation; |
| 7 |
use Message::Util::Error; |
use Message::Util::Error; |
| 23 |
ok $ent->$prop ? 1 : 0, 0, $prop . ' undef'; |
ok $ent->$prop ? 1 : 0, 0, $prop . ' undef'; |
| 24 |
} |
} |
| 25 |
|
|
| 26 |
for my $prop (qw/public_id system_id/) { |
for my $prop (qw/notation_name public_id system_id/) { |
| 27 |
ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop; |
ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop; |
| 28 |
|
|
| 29 |
for ('-//...//EN', 'http://absuri.test/', 'reluri', |
for ('-//...//EN', 'http://absuri.test/', 'reluri', |
| 30 |
qq('illegal"), qq'\x{4E00}', 0, '') { |
qq('illegal"), qq'\x{4E00}', ' ', 0, '') { |
| 31 |
$ent->$prop ($_); |
$ent->$prop ($_); |
| 32 |
ok $ent->$prop, $_, $prop . $_; |
ok $ent->$prop, $_, $prop . $_; |
| 33 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch