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

sub run_tests {

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 = DBICTest->class("Artist")->create( { artistid => 100 } );
like $artist->name, qr/[\w-]{36}/, 'got something like uuid';

}

1;
Commit	Line	Data
7da9cd47	1	sub run_tests {
	2
	3	eval 'use Data::UUID ; 1'
	4	or plan skip_all, 'Install Data::UUID run this test';
	5
	6	plan tests => 1;
2d679367	7	DBICTest::Schema::Artist->load_components('UUIDColumns');
	8	DBICTest::Schema::Artist->uuid_columns('name');
	9	Class::C3->reinitialize();
7da9cd47	10
3712e4f4	11	my $artist = DBICTest->class("Artist")->create( { artistid => 100 } );
7da9cd47	12	like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
	13
	14	}
	15
	16	1;