use Test::More tests => 8;

use Graph;

my $g0 = Graph->new(hyperedged => 1, uniqedged => 1);

ok( $g0->uniqedged);

ok( $g0->add_edge('a', 'a', 'b'));
ok( $g0->has_edge('a', 'a', 'b'));
ok( $g0->has_edge('a', 'b'));

my $g1 = Graph->new(hyperedged => 1, uniqedged => 0);

ok(!$g1->uniqedged);

ok( $g1->add_edge('a', 'a', 'b'));
ok( $g1->has_edge('a', 'a', 'b'));
ok(!$g1->has_edge('a', 'b'));