7 |
my $test_dir_name = 't/xml/'; |
my $test_dir_name = 't/xml/'; |
8 |
|
|
9 |
use Test; |
use Test; |
10 |
BEGIN { plan tests => 4935 } |
BEGIN { plan tests => 1573 } |
11 |
|
|
12 |
use Data::Dumper; |
use Data::Dumper; |
13 |
$Data::Dumper::Useqq = 1; |
$Data::Dumper::Useqq = 1; |
156 |
my @FILES = grep {$_} split /\s+/, qq[ |
my @FILES = grep {$_} split /\s+/, qq[ |
157 |
${test_dir_name}elements-1.dat |
${test_dir_name}elements-1.dat |
158 |
${test_dir_name}attrs-1.dat |
${test_dir_name}attrs-1.dat |
159 |
|
${test_dir_name}attrs-2.dat |
160 |
${test_dir_name}texts-1.dat |
${test_dir_name}texts-1.dat |
161 |
${test_dir_name}cdata-1.dat |
${test_dir_name}cdata-1.dat |
162 |
${test_dir_name}charref-1.dat |
${test_dir_name}charref-1.dat |