- Changed version number to 0.01000

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

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

BEGIN {
    plan eval "require Data::UUID" ||
    	 eval "require APR::UUID" ||
    	 eval "require UUID" ||
    	 eval "require Win32::Guidgen" ||
    	 eval "require Win32API::GUID"
        ? ( tests => 3 )
        : ( skip_all => 'needs Data::UUID for testing' );
}

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;