Fixed case where no uuid module found so that it dies with error, not with method...

[dbsrgits/DBIx-Class-UUIDColumns.git] / t / 05uuid.t

use strict;
use warnings;
use Test::More;

BEGIN {
    plan skip_all => 'needs Data::UUID for testing'
        unless
            eval 'require Data::UUID' ||
            eval 'require APR::UUID' ||
            eval 'require UUID' ||
            eval 'require Win32::Guidgen' ||
            eval 'require Win32API::GUID';

    plan skip_all => 'needs SQL::Translator for testing'
        unless eval 'require SQL::Translator';

    plan tests => 3;
}

use lib qw(t/lib);

use UUIDTest;
use UUIDTest::Setup;

my $schema = UUIDTest->schema;
my $row;


$row = $schema->resultset('Test')->create({ });
ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Auto';

UUIDTest::Schema::Test->uuid_class('CustomUUIDMaker');
Class::C3->reinitialize();
$row = $schema->resultset('Test')->create({ });
ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from CustomUUIDMaker';

UUIDTest::Schema::Test->uuid_class('::Data::UUID');
Class::C3->reinitialize();
$row = $schema->resultset('Test')->create({ });
ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Data::UUID';

1;