Test for already fixed RT#59219
[dbsrgits/DBIx-Class-Historic.git] / t / lib / DBICTest / Schema / ArtistGUID.pm
1 package # hide from PAUSE 
2     DBICTest::Schema::ArtistGUID;
3
4 use base qw/DBICTest::BaseResult/;
5
6 # test MSSQL uniqueidentifier type
7
8 __PACKAGE__->table('artist');
9 __PACKAGE__->add_columns(
10   'artistid' => {
11     data_type => 'uniqueidentifier' # auto_nextval not necessary for PK
12   },
13   'name' => {
14     data_type => 'varchar',
15     size      => 100,
16     is_nullable => 1,
17   },
18   rank => {
19     data_type => 'integer',
20     default_value => 13,
21   },
22   charfield => {
23     data_type => 'char',
24     size => 10,
25     is_nullable => 1,
26   },
27   a_guid => {
28     data_type => 'uniqueidentifier',
29     auto_nextval => 1, # necessary here, because not a PK
30     is_nullable => 1,
31   }
32 );
33 __PACKAGE__->set_primary_key('artistid');
34
35 1;