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
|
use strict;
use warnings;
use Graph::Nauty;
use Test::More tests => 4;
my $n = 5;
my @e;
for (0..$n-1) {
$e[2*$_] = ($_ + $n - 1) % $n; # edge i->i-1
$e[2*$_+1] = ($_ + $n + 1) % $n; # edge i->i+1
}
my $sparse = {
nv => $n,
nde => 2 * $n,
v => [ map { 2 * $_ } 0..$n-1 ],
d => [ ( 2 ) x $n ],
e => \@e,
};
my $statsblk = Graph::Nauty::sparsenauty( $sparse,
[ 0..$n-1 ],
[ ( 1 ) x $n ],
undef,
0 );
is( $statsblk->{errstatus}, 0 );
is( $statsblk->{grpsize1}, 10 );
is( $statsblk->{grpsize2}, 0 );
is( $statsblk->{numorbits}, 1 );
|
