1package # hide from PAUSE
2    DBICTest::Schema::ArtistGUID;
3
4use 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
351;
36