Add a test lib and failing test for no explicit sequence declaration

[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / lib / NoSequence.pm

diff --git a/t/lib/NoSequence.pm b/t/lib/NoSequence.pm
new file mode 100644 (file)
index 0000000..1b59318
--- /dev/null
+++ b/t/lib/NoSequence.pm
@@ -0,0 +1,14 @@
+package NoSequence;
+
+use strict;
+use warnings;
+use parent 'DBIx::Class::Schema';
+use aliased 'DBIx::Class::ResultSource::MultipleTableInheritance' => 'MTIView';
+
+for my $p (__PACKAGE__) {
+  $p->load_namespaces;
+  $_->attach_additional_sources
+    for grep $_->isa(MTIView), map $p->source($_), $p->sources;
+}
+
+1;