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::Artist->load_components('UUIDColumns');
   8 DBICTest::Artist->uuid_columns('name');
   9
  10 my $artist = DBICTest::Artist->create( { artistid => 100 } );
  11 like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
  12
  13 }
  14
  15 1;