t/run/19uuid.tl

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