X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F77join_count.t;h=9de1a83ed7e1d7543ce2d408193876c2b1af12f7;hb=adcc1df0049e0093cb94c867bd2be8c9fe242a61;hp=499b08fef0e2b4be3b7b7a8265c6798d845db884;hpb=d6915f449e2d68ac184d6bc616043fd605913757;p=dbsrgits%2FDBIx-Class.git diff --git a/t/77join_count.t b/t/77join_count.t index 499b08f..9de1a83 100644 --- a/t/77join_count.t +++ b/t/77join_count.t @@ -1,15 +1,13 @@ +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(); +use DBICTest; -eval "use DBD::SQLite"; -plan skip_all => 'needs DBD::SQLite for testing' if $@; -plan tests => 4; +my $schema = DBICTest->init_schema(); cmp_ok($schema->resultset("CD")->count({ 'artist.name' => 'Caterwauler McCrae' }, { join => 'artist' }), @@ -29,3 +27,4 @@ cmp_ok($schema->resultset("CD")->count( { join => [ qw/tags liner_notes/ ] } ), '==', 2, "Mixed count ok"); +done_testing;