Module-Implementation-0.09HEADModule-Implementation-0.09master

1 files changed, 33 insertions, 0 deletions

diff --git a/t/namespace-cleanliness.t b/t/namespace-cleanliness.t
new file mode 100644
index 0000000..a9917bf
--- /dev/null
+++ b/t/namespace-cleanliness.t
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+
+use Test::More 0.88;
+
+use Test::Requires {
+    'Test::CleanNamespaces' => 0,
+};
+
+{
+    package T;
+
+    use strict;
+    use warnings;
+
+    use lib 't/lib';
+
+    use Module::Implementation;
+    my $loader = Module::Implementation::build_loader_sub(
+        implementations => [ 'Impl1', 'Impl2' ],
+        symbols         => ['return_42'],
+    );
+    $loader->();
+}
+
+$INC{'T.pm'} = 1;
+
+{
+    local $TODO = q{Without Sub::Name there's no good way to avoid dirtiness};
+    namespaces_clean('T');
+}
+
+done_testing();