-sub run_tests {
+use strict;
+use warnings;
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+
+my $schema = DBICTest::init_schema();
BEGIN {
eval "use DBD::SQLite";
plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 3);
}
-my $art = DBICTest::Artist->find(1);
+my $art = $schema->resultset("Artist")->find(1);
isa_ok $art => 'DBICTest::Artist';
$art->discard_changes;
-}
-
-1;