X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F19uuid.tl;h=0da87f12c7a722c282ce23bcb8c40d85c81da705;hb=e6a8b3fc4dc400af1a7ed827eaf9752ec99ad289;hp=5648ec3201310dacab288f2646e25f3b39335cdb;hpb=3712e4f41b929456d8fad713ca702e4a48e9a940;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/run/19uuid.tl b/t/run/19uuid.tl index 5648ec3..0da87f1 100644 --- 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->resultset("Artist")->create( { artistid => 100 } ); like $artist->name, qr/[\w-]{36}/, 'got something like uuid'; }