1 files changed, 29 insertions, 0 deletions
diff --git a/ext/Module-Pluggable/t/10innerpack_super.t b/ext/Module-Pluggable/t/10innerpack_super.t
new file mode 100644
index 0000000000..e9a58bd8fa
--- /dev/null
+++ b/ext/Module-Pluggable/t/10innerpack_super.t
@@ -0,0 +1,29 @@
+#!perl -wT
+
+use Test::More tests => 3;
+use strict;
+use_ok('Devel::InnerPackage');
+Bar->whee;
+is_deeply([Devel::InnerPackage::list_packages("Bar")],[], "Don't pick up ::SUPER pseudo stash"); 
+is_deeply([Devel::InnerPackage::list_packages("Foo")],['Foo::Bar'], "Still pick up other inner package");
+
+package Foo;
+
+sub whee {
+    1;
+}
+
+package Foo::Bar;
+
+sub whee {}
+
+package Bar;
+use base 'Foo';
+
+sub whee {
+    shift->SUPER::whee;
+    2;
+}
+
+
+1;