X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema.pm;h=937aa77fca7b135144689e8631292d5d62f95f3b;hb=19938f3bf130db5563f6973a59dc22dd2d47fe70;hp=1fd503cec0c13ccbf3f872762e758971d89a2b1a;hpb=5642f1ec77b5215598728ae7e5188f3bb1b4b318;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm index 1fd503c..937aa77 100644 --- a/t/lib/DBICTest/Schema.pm +++ b/t/lib/DBICTest/Schema.pm @@ -5,19 +5,33 @@ use base qw/DBIx::Class::Schema/; no warnings qw/qw/; +__PACKAGE__->mk_group_accessors(simple => 'custom_attr'); + __PACKAGE__->load_classes(qw/ Artist + SequenceTest + BindType Employee CD - Link + Genre Bookmark - #Casecheck + Link #dummy Track Tag + Year2000CDs + Year1999CDs + CustomSql + Money + TimestampPrimaryKey /, { 'DBICTest::Schema' => [qw/ LinerNotes + Artwork + Artwork_to_Artist + Image + Lyrics + LyricVersion OneKey #dummy TwoKeys @@ -25,14 +39,25 @@ __PACKAGE__->load_classes(qw/ /]}, ( '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 TreeLike TwoKeyTreeLike Event/ + qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/, + qw/Collection CollectionObject TypedObject Owners BooksInLibrary/, + qw/ForceForeign Encoded/, ); +sub sqlt_deploy_hook { + my ($self, $sqlt_schema) = @_; + + $sqlt_schema->drop_table('dummy'); +} + 1;