X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F19uuid.tl;h=d4800d9df30219f618211a15259fcd7e217407b4;hb=70350518bbb31e5ac22fb3cb73d3e17409fcd332;hp=0da87f12c7a722c282ce23bcb8c40d85c81da705;hpb=4b8dcc58874223164d4a379a5db4a9cb737d7c7a;p=dbsrgits%2FDBIx-Class.git diff --git a/t/run/19uuid.tl b/t/run/19uuid.tl index 0da87f1..d4800d9 100644 --- a/t/run/19uuid.tl +++ b/t/run/19uuid.tl @@ -1,5 +1,11 @@ -sub run_tests { -my $schema = shift; +use strict; +use warnings; + +use Test::More; +use lib qw(t/lib); +use DBICTest; + +my $schema = DBICTest::init_schema(); eval 'use Data::UUID ; 1' or plan skip_all, 'Install Data::UUID run this test'; @@ -12,6 +18,3 @@ Class::C3->reinitialize(); my $artist = $schema->resultset("Artist")->create( { artistid => 100 } ); like $artist->name, qr/[\w-]{36}/, 'got something like uuid'; -} - -1;