Add test for non-signatures namespace cleaning

[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 05_namespace.t

diff --git a/t/05_namespace.t b/t/05_namespace.t
new file mode 100644 (file)
index 0000000..40e2f60
--- /dev/null
+++ b/t/05_namespace.t
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use lib 't/lib';
+use LoadTest;
+use Test::More qw(no_plan);
+use Devel::Dwarn;
+
+my $mti = LoadTest->source('Foo');
+
+isa_ok( $mti, "DBIx::Class::ResultSource::MultipleTableInheritance" );
+
+can_ok( $mti,
+    qw/new add_additional_parents add_additional_parent _source_by_name schema attach_additional_sources set_primary_key set_sequence raw_source_name raw_table_name add_columns add_relationship/
+);
+
+ok( !$mti->can($_), "My helper method $_ was removed" )
+    for
+    qw/argify qualify_with body_cols pk_cols names_of function_body arg_hash rule_body/;
+