[dbsrgits/DBIx-Class.git] / t / run / 19uuid.tl

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest::init_schema();

eval 'use Data::UUID ; 1'
  or plan skip_all, 'Install Data::UUID run this test';

plan tests => 1;
DBICTest::Schema::Artist->load_components('UUIDColumns');
DBICTest::Schema::Artist->uuid_columns('name');
Class::C3->reinitialize();

my $artist = $schema->resultset("Artist")->create( { artistid => 100 } );
like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
Commit	Line	Data
70350518	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	my $schema = DBICTest::init_schema();
7da9cd47	9
	10	eval 'use Data::UUID ; 1'
	11	or plan skip_all, 'Install Data::UUID run this test';
	12
	13	plan tests => 1;
2d679367	14	DBICTest::Schema::Artist->load_components('UUIDColumns');
	15	DBICTest::Schema::Artist->uuid_columns('name');
	16	Class::C3->reinitialize();
7da9cd47	17
f9db5527	18	my $artist = $schema->resultset("Artist")->create( { artistid => 100 } );
7da9cd47	19	like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
7da9cd47	20