cleanup related_resultset in Relationship::Base

[dbsrgits/DBIx-Class.git] / t / run / 15limit.tl

diff --git a/t/run/15limit.tl b/t/run/15limit.tl
index 4137377..eca720d 100644 (file)
--- a/t/run/15limit.tl
+++ b/t/run/15limit.tl
@@ -1,4 +1,5 @@
 sub run_tests {
+my $schema = shift;
 
 BEGIN {
     eval "use DBD::SQLite";
@@ -6,7 +7,7 @@ BEGIN {
 }                                                                               
 
 # test LIMIT
-my $it = DBICTest->class("CD")->search( {},
+my $it = $schema->resultset("CD")->search( {},
     { rows => 3,
       order_by => 'title' }
 );
@@ -17,7 +18,7 @@ $it->next;
 is( $it->next, undef, "next past end of resultset ok" );
 
 # test OFFSET
-my @cds = DBICTest->class("CD")->search( {},
+my @cds = $schema->resultset("CD")->search( {},
     { rows => 2,
       offset => 2,
       order_by => 'year' }
@@ -25,7 +26,7 @@ my @cds = DBICTest->class("CD")->search( {},
 is( $cds[0]->title, "Spoonful of bees", "offset ok" );
 
 # test software-based limiting
-$it = DBICTest->class("CD")->search( {},
+$it = $schema->resultset("CD")->search( {},
     { rows => 3,
       software_limit => 1,
       order_by => 'title' }
@@ -36,7 +37,7 @@ $it->next;
 $it->next;
 is( $it->next, undef, "software next past end of resultset ok" );
 
-@cds = DBICTest->class("CD")->search( {},
+@cds = $schema->resultset("CD")->search( {},
     { rows => 2,
       offset => 2,
       software_limit => 1,
@@ -46,7 +47,7 @@ is( $cds[0]->title, "Spoonful of bees", "software offset ok" );
 
 # based on a failing criteria submitted by waswas
 # requires SQL::Abstract >= 1.20
-$it = DBICTest->class("CD")->search(
+$it = $schema->resultset("CD")->search(
     { title => [
         -and => 
             {