Merge 'views' into 'trunk'
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema.pm
CommitLineData
bab77431 1package # hide from PAUSE
c6d74d3e 2 DBICTest::Schema;
a02675cd 3
4use base qw/DBIx::Class::Schema/;
5
5ce32fc1 6no warnings qw/qw/;
7
a02675cd 8__PACKAGE__->load_classes(qw/
5ce32fc1 9 Artist
b829910c 10 SequenceTest
6ec7d1bb 11 BindType
4e298a80 12 Employee
5ce32fc1 13 CD
4740bdb7 14 FileColumn
370f2ba2 15 Genre
9c2c91ea 16 Link
17 Bookmark
5ce32fc1 18 #dummy
19 Track
20 Tag
a648ec78 21 Year2000CDs
1ee9aa72 22 Year1999CDs
5ce32fc1 23 /,
24 { 'DBICTest::Schema' => [qw/
25 LinerNotes
4f6386b0 26 Artwork
d5633096 27 Artwork_to_Artist
4f6386b0 28 Image
29 Lyrics
30 LyricVersion
5ce32fc1 31 OneKey
32 #dummy
33 TwoKeys
9fcda149 34 Serialized
5ce32fc1 35 /]},
36 (
37 'FourKeys',
3bd6e3e0 38 'FourKeys_to_TwoKeys',
5ce32fc1 39 '#dummy',
40 'SelfRef',
5efe4c79 41 'ArtistUndirectedMap',
bab77431 42 'ArtistSourceName',
b1fb2c94 43 'ArtistSubclass',
7411204b 44 'Producer',
45 'CD_to_Producer',
181c0934 46 'Dummy', # this is a real result class we remove in the hook below
5ce32fc1 47 ),
dda9af55 48 qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
a7e65bb5 49 qw/Collection CollectionObject TypedObject Owners BooksInLibrary/,
6e6b37a7 50 qw/ForceForeign Encoded/,
5ce32fc1 51);
a02675cd 52
d6c79cb3 53sub sqlt_deploy_hook {
54 my ($self, $sqlt_schema) = @_;
55
458e0292 56 $sqlt_schema->drop_table('dummy');
d6c79cb3 57}
58
a02675cd 591;