t/05uuid.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 BEGIN {
   6     plan eval "require Data::UUID" ||
   7          eval "require APR::UUID" ||
   8          eval "require UUID" ||
   9          eval "require Win32::Guidgen" ||
  10          eval "require Win32API::GUID"
  11         ? ( tests => 3 )
  12         : ( skip_all => 'needs Data::UUID for testing' );
  13 }
  14
  15 use lib qw(t/lib);
  16
  17 use UUIDTest;
  18 use UUIDTest::Setup;
  19
  20 my $schema = UUIDTest->schema;
  21 my $row;
  22
  23
  24 $row = $schema->resultset('Test')->create({ });
  25 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Auto';
  26
  27 UUIDTest::Schema::Test->uuid_class('CustomUUIDMaker');
  28 Class::C3->reinitialize();
  29 $row = $schema->resultset('Test')->create({ });
  30 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from CustomUUIDMaker';
  31
  32 UUIDTest::Schema::Test->uuid_class('::Data::UUID');
  33 Class::C3->reinitialize();
  34 $row = $schema->resultset('Test')->create({ });
  35 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Data::UUID';
  36
  37 1;