[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::Artist->load_components('UUIDColumns');
DBICTest::Artist->uuid_columns('name');

my $artist = DBICTest::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;
	7	DBICTest::Artist->load_components('UUIDColumns');
	8	DBICTest::Artist->uuid_columns('name');
	9
	10	my $artist = DBICTest::Artist->create( { artistid => 100 } );
	11	like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
	12
	13	}
	14
	15	1;