#!perl
use Test::More tests => 4;
my $net = SNA::Network->new();
$net->load_from_pajek_net('t/test-network-1.net');
$net->calculate_pageranks();
# check pagerank ranking
my @top_prs = map {
$_->{name}
} sort {
$b->{pagerank} <=> $a->{pagerank}
} $net->nodes();
is($top_prs[0], 'B', 'B has highest pagerank');
is($top_prs[1], 'C', 'C has 2nd-highest pagerank');
is($top_prs[2], 'D', 'C has 3rd-highest pagerank');
is($top_prs[3], 'A', 'A has lowest pagerank');