t/05uuid.t

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