use strict;
use warnings;
use Test::More tests => 4;

use Graph;
use Graph::Maker;
use Graph::Maker::SmallWorldBA;

require 't/matches.pl';

my $g;

$g = new Graph::Maker('small_world_ba', N => 50, M => 2, undirected => 1);
ok(not grep {$g->degree($_) < 1} $g->vertices());

$g = new Graph::Maker('small_world_ba', N => 50, M => 2, undirected => 1);
ok(not grep {$g->degree($_) < 1} $g->vertices());

$g = new Graph::Maker('small_world_ba', N => 50, M => 2);
ok(not grep {$g->in_degree($_) < 1} $g->vertices());
ok(directedok($g));