X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema.pm;h=2e783a75912d6f8d1cd593f2b79e630cacac03e0;hb=bbf6a9a5d39cbf1c9d22cccd298ae95ac0fef694;hp=dc4002ecaf74dbb6406b865b1ece34bbbf5942ca;hpb=5ce32fc1a062a68cccb45863164f65326b69adb9;p=dbsrgits%2FDBIx-Class.git diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm index dc4002e..2e783a7 100644 --- a/t/lib/DBICTest/Schema.pm +++ b/t/lib/DBICTest/Schema.pm @@ -1,28 +1,65 @@ -package DBICTest::Schema; +package # hide from PAUSE + DBICTest::Schema; -use base qw/DBIx::Class::Schema/; +use strict; +use warnings; +no warnings 'qw'; -no warnings qw/qw/; +use base 'DBICTest::BaseSchema'; + +__PACKAGE__->mk_group_accessors(simple => 'custom_attr'); __PACKAGE__->load_classes(qw/ Artist + SequenceTest + BindType + Employee CD + Genre + Bookmark + Link #dummy Track Tag + Year2000CDs + Year1999CDs + CustomSql + Money + TimestampPrimaryKey /, { 'DBICTest::Schema' => [qw/ LinerNotes + Artwork + Artwork_to_Artist + Image + Lyrics + LyricVersion OneKey #dummy TwoKeys + Serialized /]}, ( 'FourKeys', + 'FourKeys_to_TwoKeys', '#dummy', 'SelfRef', + 'ArtistUndirectedMap', + 'ArtistSourceName', + 'ArtistSubclass', + 'Producer', + 'CD_to_Producer', + 'Dummy', # this is a real result class we remove in the hook below ), - qw/SelfRefAlias/ + qw/SelfRefAlias TreeLike TwoKeyTreeLike Event NoPrimaryKey/, + qw/Collection CollectionObject TypedObject Owners BooksInLibrary/, + qw/ForceForeign Encoded/, ); +sub sqlt_deploy_hook { + my ($self, $sqlt_schema) = @_; + + $sqlt_schema->drop_table('dummy'); +} + 1;