| 22 |
} |
} |
| 23 |
|
|
| 24 |
use Test; |
use Test; |
| 25 |
BEGIN { plan tests => 1920 } |
BEGIN { plan tests => 2036 } |
| 26 |
|
|
| 27 |
use Data::Dumper; |
use Data::Dumper; |
| 28 |
$Data::Dumper::Useqq = 1; |
$Data::Dumper::Useqq = 1; |
| 58 |
${dir_name}tests7.dat |
${dir_name}tests7.dat |
| 59 |
${test_dir_name}tree-test-1.dat |
${test_dir_name}tree-test-1.dat |
| 60 |
${test_dir_name}tree-test-2.dat |
${test_dir_name}tree-test-2.dat |
| 61 |
|
${test_dir_name}tree-test-3.dat |
| 62 |
]) { |
]) { |
| 63 |
open my $file, '<', $file_name |
open my $file, '<', $file_name |
| 64 |
or die "$0: $file_name: $!"; |
or die "$0: $file_name: $!"; |