Some test hackage

[dbsrgits/DBIx-Class.git] / t / run / 19uuid.tl

diff --git a/t/run/19uuid.tl b/t/run/19uuid.tl
index 5648ec3..a877600 100644 (file)
--- a/t/run/19uuid.tl
+++ b/t/run/19uuid.tl
@@ -1,4 +1,5 @@
 sub run_tests {
+my $schema = shift;
 
 eval 'use Data::UUID ; 1'
   or plan skip_all, 'Install Data::UUID run this test';
@@ -8,7 +9,7 @@ DBICTest::Schema::Artist->load_components('UUIDColumns');
 DBICTest::Schema::Artist->uuid_columns('name');
 Class::C3->reinitialize();
 
-my $artist = DBICTest->class("Artist")->create( { artistid => 100 } );
+my $artist = $schema->class("Artist")->create( { artistid => 100 } );
 like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
 
 }