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
60
61
|
#!/usr/bin/perl -w
# test multiple calls to as_ascii()/as_boxart() as well as merge_nodes
use Test::More;
BEGIN
{
plan tests => 5;
chdir 't' if -d 't';
use lib '../lib';
use_ok("Graph::Easy") or die (@!);
use_ok("Graph::Easy::Parser") or die (@!);
}
my $graph = Graph::Easy::Parser->from_file('stress/drop.txt');
binmode STDOUT, ':utf8' or die ("binmode STDOUT, ':utf8' failed: $!");
binmode STDERR, ':utf8' or die ("binmode STDERR, ':utf8' failed: $!");
my $bonn = $graph->node('Bonn');
my $first = $graph->as_ascii();
my $second = $graph->as_ascii();
is ($first, $second, 'two times as_ascii() changes nothing');
$first = $graph->as_boxart();
$second = $graph->as_boxart();
is ($first, $second, 'two times as_boxart() changes nothing');
# drop any connection between Bonn and Berlin, as well as self-loops
# from Berlin to Berlin
$graph->merge_nodes('Bonn', 'Berlin');
my $result = $first . "\n" . $graph->as_boxart();
my $expected = readfile('out/drop_result.txt');
is ($result, $expected, 'dropping a node works');
# all tests done
1;
sub readfile
{
my ($file) = @_;
open FILE, $file or die ("Cannot read file $file: $!");
binmode FILE, ':utf8' or die ("binmode $file, ':utf8' failed: $!");
local $/ = undef; # slurp mode
my $doc = <FILE>;
close FILE;
$doc;
}
|
