t/run/19uuid.tl

   1 sub run_tests {
   2 my $schema = shift;
   3
   4 eval 'use Data::UUID ; 1'
   5   or plan skip_all, 'Install Data::UUID run this test';
   6
   7 plan tests => 1;
   8 DBICTest::Schema::Artist->load_components('UUIDColumns');
   9 DBICTest::Schema::Artist->uuid_columns('name');
  10 Class::C3->reinitialize();
  11
  12 my $artist = $schema->resultset("Artist")->create( { artistid => 100 } );
  13 like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
  14
  15 }
  16
  17 1;