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

sub run_tests {
my $schema = shift;

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';

}

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