X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema.pm;h=a07db605547d814a64589e3a07811c1382ac01ea;hb=0da8b7da7a9df7b84e9a3228cd1f5feb1d65bb07;hp=e43c898734c9ab66a011b73fd26fcad00501a865;hpb=0a298c734198290789bf9cbacb76893fb087af60;p=dbsrgits%2FDBIx-Class.git diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm index e43c898..a07db60 100644 --- a/t/lib/DBICTest/Schema.pm +++ b/t/lib/DBICTest/Schema.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE DBICTest::Schema; use base qw/DBIx::Class::Schema/; @@ -7,9 +7,12 @@ no warnings qw/qw/; __PACKAGE__->load_classes(qw/ Artist - Employee::Positioned - Employee::AdjacencyList + SequenceTest + Employee CD + FileColumn + Link + Bookmark #dummy Track Tag @@ -23,13 +26,26 @@ __PACKAGE__->load_classes(qw/ /]}, ( 'FourKeys', + 'FourKeys_to_TwoKeys', '#dummy', 'SelfRef', 'ArtistUndirectedMap', + 'ArtistSourceName', + 'ArtistSubclass', 'Producer', 'CD_to_Producer', ), - qw/SelfRefAlias TreeLike/ + qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/, + qw/Collection CollectionObject TypedObject/, + qw/Owners BooksInLibrary/, + qw/ForceForeign/, + qw/LongColumns/, ); +sub sqlt_deploy_hook { + my ($self, $sqlt_schema) = @_; + + $sqlt_schema->drop_table('link'); +} + 1;