1use Test::More tests => 2; 2 3use Graph; 4 5my $g1 = Graph->new; 6 7ok ( !$g1->hypervertexed ); 8 9my $g2 = Graph->new( hypervertexed => 1 ); 10 11ok ( $g2->hypervertexed ); 12 13