X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fresultset_overload.t;h=8fb22e3d451f5558564eb28945cc8f988dfd8890;hb=6c7ca96253b07f8ac9b6940ac35368d25ed3b139;hp=c5ecce87432c6b1e8465269cb9b15902fe0dc302;hpb=e60dc79fcd4d6318e83584b826526e65048b86a9;p=dbsrgits%2FDBIx-Class.git diff --git a/t/resultset_overload.t b/t/resultset_overload.t index c5ecce8..8fb22e3 100644 --- a/t/resultset_overload.t +++ b/t/resultset_overload.t @@ -1,14 +1,14 @@ +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(); -plan tests => 6; - { my $rs = $schema->resultset("CD")->search({}); @@ -19,8 +19,10 @@ plan tests => 6; { my $rs = $schema->resultset("CD")->search({ title => "Does not exist" }); - + ok !$rs->count; is $rs, $rs->count, "resultset as number without results"; ok $rs, "resultset as boolean always true"; -} \ No newline at end of file +} + +done_testing;