X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fresultset_overload.t;h=164d2ee6694828642434c7c81df4e2d7f66ec259;hb=cab1f708913e06219cda8a1f48a044619014c2ec;hp=c5ecce87432c6b1e8465269cb9b15902fe0dc302;hpb=e60dc79fcd4d6318e83584b826526e65048b86a9;p=dbsrgits%2FDBIx-Class.git diff --git a/t/resultset_overload.t b/t/resultset_overload.t index c5ecce8..164d2ee 100644 --- a/t/resultset_overload.t +++ b/t/resultset_overload.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use lib qw(t/lib); @@ -7,8 +7,6 @@ use DBICTest; my $schema = DBICTest->init_schema(); -plan tests => 6; - { my $rs = $schema->resultset("CD")->search({}); @@ -19,8 +17,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;