Some test hackage

[dbsrgits/DBIx-Class.git] / t / run / 18self_referencial.tl

diff --git a/t/run/18self_referencial.tl b/t/run/18self_referencial.tl
index 0029436..5b3861b 100644 (file)
--- a/t/run/18self_referencial.tl
+++ b/t/run/18self_referencial.tl
@@ -1,4 +1,5 @@
-sub run_tests {\r
+sub run_tests {
+my $schema = shift;\r
 \r
 # this test will check to see if you can have 2 columns\r
 # in the same class pointing at the same other class\r
@@ -20,7 +21,7 @@ sub run_tests {
 \r
 plan tests => 4;\r
 \r
-my $item = DBICTest->class("SelfRef")->find( 1 );\r
+my $item = $schema->class("SelfRef")->find( 1 );\r
 is( $item->name, 'First', 'proper start item' );\r
 \r
 my @aliases = $item->aliases;\r