1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
use strict;
use warnings;
use warnings qw(FATAL utf8); # Fatalize encoding glitches.
use File::Spec;
use File::Temp;
use File::Slurper 'read_lines';
use Test::More;
# ------------------------------------------------
sub process
{
my($node, $file_name) = @_;
# The EXLOCK option is for BSD-based systems.
my($temp_dir) = File::Temp -> newdir('temp.XXXX', CLEANUP => 1, EXLOCK => 0, TMPDIR => 1);
my($temp_dir_name) = $temp_dir -> dirname;
my($test_file_name) = File::Spec -> catfile($temp_dir_name, "$file_name.txt");
my($input_file_name) = File::Spec -> catfile('t', "$file_name.txt");
my($root) = $node -> read_tree($input_file_name);
my($no_attr) = $file_name =~ /without/ ? 1 : 0;
open(my $fh, '> :encoding(utf-8)', $test_file_name);
print $fh "$_\n" for @{$root -> tree2string({no_attributes => $no_attr})};
close $fh;
# Ensure inter-OS compatability.
my(@expected) = map{s/\r$//g; $_} read_lines($input_file_name);
my(@got) = map{s/\r$//g; $_} read_lines($test_file_name);
is(join('', @expected), join('', @got), "\u$file_name attributes: Output tree matches shipped tree");
} # End of process.
# ------------------------------------------------
BEGIN {use_ok('Tree::DAG_Node'); }
my($node) = Tree::DAG_Node -> new;
isa_ok($node, 'Tree::DAG_Node', 'new() returned correct object type');
my($sample_file_name);
for (qw/utf8 with without/)
{
$sample_file_name = "tree.$_.attributes";
process($node, $sample_file_name);
}
process($node, 'metag.cooked.tree');
done_testing;
|
