X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F19uuid.tl;h=d4800d9df30219f618211a15259fcd7e217407b4;hb=9eba6e064068c3fde1e7c075c9133caea7adb4c0;hp=8c2f4649d68d1ad5c07f62dc00393bcaa6e351f6;hpb=2d679367e554c57e39aac9419b13a582e02916bd;p=dbsrgits%2FDBIx-Class.git diff --git a/t/run/19uuid.tl b/t/run/19uuid.tl index 8c2f464..d4800d9 100644 --- a/t/run/19uuid.tl +++ b/t/run/19uuid.tl @@ -1,4 +1,11 @@ -sub run_tests { +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'; @@ -8,9 +15,6 @@ DBICTest::Schema::Artist->load_components('UUIDColumns'); DBICTest::Schema::Artist->uuid_columns('name'); Class::C3->reinitialize(); -my $artist = DBICTest::Artist->create( { artistid => 100 } ); +my $artist = $schema->resultset("Artist")->create( { artistid => 100 } ); like $artist->name, qr/[\w-]{36}/, 'got something like uuid'; -} - -1;