-#!/usr/bin/perl -w
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use strict;
-use warnings;
+use warnings;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
my $schema = DBICTest->init_schema();
ok $link->id;
$link->delete;
-is $schema->resultset("Link")->search(id => $link_id)->count, 0,
+is $schema->resultset("Link")->search({id => $link_id})->count, 0,
"link $link_id was deleted";
# Get a fresh object with nothing cached
# This would create a new link row if none existed
$bookmark->link;
-is $schema->resultset("Link")->search(id => $link_id)->count, 0,
+is $schema->resultset("Link")->search({id => $link_id})->count, 0,
'accessor did not create a link object where there was none';