1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
12 my $link = $schema->resultset ('Link')->create ({
15 { link => 'Mein Hund ist schwul'},
16 { link => 'Mein Hund ist schwul'},
19 is ($link->bookmarks->count, 2, "Two identical default-insert has_many's created");
22 $link = $schema->resultset ('Link')->create ({
29 is ($link->bookmarks->count, 2, "Two identical default-insert has_many's created");