u_at2.t   [plain text]

use Test::More tests => 4;

use strict;
use Graph;

my $g = Graph::Undirected->new;

while (<DATA>) {
    if (/(\S+)\s+(\S+)/) {
	$g->add_edge($1, $2);
    }
}

my $src = "NRTPZ5WOkg";
my $dst = "ObpULOKHH0";

my @u = qw(NRTPZ5WOkg
	   vJqD6skXdS
	   TNgfs0KcUd
	   qI7Po3TrBA
	   ZiPHVw509v
	   bnDd3VuBpJ
	   ObpULOKHH0);

for (1, 2) {
    print "# finding SP_Dijkstra path between $src and $dst\n";
    my @v = $g->SP_Dijkstra($src, $dst);
    is_deeply(\@v, \@u);
    foreach (@v) {
	print "# $_\n";
    }
    {
	print "# finding APSP_Floyd_Warshall path between $src and $dst\n";
	my $apsp = $g->APSP_Floyd_Warshall();
	my @v = $apsp->path_vertices($src, $dst);
	is_deeply(\@v, \@u);
	foreach (@v) {
	    print "# $_\n";
	}
    }
}

__END__
Cwx0nn09zg pDRu7q707v
ENQH4XaK3o bnuPl9BV2A
J6UG5junOo UNQcGQ7Yxs
J6UG5junOo vZJeF6iWP5
JU5fopQvgK Cqw1sHOUJ1
JU5fopQvgK Cwx0nn09zg
NRTPZ5WOkg Cqw1sHOUJ1
NRTPZ5WOkg vJqD6skXdS
ObpULOKHH0 bnDd3VuBpJ
Ody8vNNKOn bnDd3VuBpJ
Ody8vNNKOn nONYKw3o4X
RlBKE0bWDY p5gUeVx6pZ
UNQcGQ7Yxs els2v8URGW
ZiPHVw509v qI7Po3TrBA
bnDd3VuBpJ ZiPHVw509v
bnuPl9BV2A eiTqtOz3aL
eiTqtOz3aL pDRu7q707v
els2v8URGW IDU5MGPovY
p5gUeVx6pZ IDU5MGPovY
pWZsc88Hfm RlBKE0bWDY
pWZsc88Hfm nONYKw3o4X
qI7Po3TrBA TNgfs0KcUd
vJqD6skXdS TNgfs0KcUd
vZJeF6iWP5 ENQH4XaK3o