view release on metacpan or  search on metacpan

t/spoof/spoof_random_graph.t  view on Meta::CPAN

#!perl
use Modern::Perl;

use Graph::Undirected::Hamiltonicity::Spoof
    qw(&spoof_random_graph);

use Test::More;

plan tests => 33;

$ENV{HC_OUTPUT_FORMAT} = 'none';

for my $v ( 3 .. 13 ) {
    my $g = spoof_random_graph($v);
    is( scalar( $g->vertices() ), $v, "Spoofed random graph has $v vertices." );
}

for my $v ( 10 .. 20 ) {
    my $max_edges = ( $v * $v - $v ) / 2;
    my $e = int( rand( $max_edges ) );
    my $g = spoof_random_graph( $v, $e );
    is( scalar( $g->vertices() ), $v, "Spoofed random graph has $v vertices." );
    is( scalar( $g->edges() ),    $e, "Spoofed random graph has $e edges." );
}