62 lines
1.3 KiB
Perl
62 lines
1.3 KiB
Perl
#!/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;
|
|
}
|
|
|