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
|
use strict;
use warnings;
use Test::More tests => 5;
use Graph;
use Graph::Maker;
use Graph::Maker::Regular;
require 't/matches.pl';
my $g;
# directed
eval {
$g = new Graph::Maker('regular', N => 6, K => 3);
};
ok($@ || 0 == grep {$g->in_degree($_) != 3} $g->vertices());
ok($@ || directedok($g));
# undirected
eval {
$g = new Graph::Maker('regular', N => 6, K => 3, undirected => 1);
};
ok($@ || 0 == grep {$g->in_degree($_) != 3} $g->vertices());
eval {
$g = new Graph::Maker('regular', N => 5, K => 2, undirected => 1);
};
ok($@ || 0 == grep {$g->in_degree($_) != 2} $g->vertices());
# multiedged
eval {
$g = new Graph::Maker('regular', N => 4, K => 2, multiedged => 1);
};
ok($@ || 0 == grep {$g->in_degree($_) != 2} $g->vertices());
|
