Stop leaking extra methods into the inheritance chain

[p5sagit/Class-Accessor-Grouped.git] / t / clean_namespace.t

diff --git a/t/clean_namespace.t b/t/clean_namespace.t
new file mode 100644 (file)
index 0000000..f423a0f
--- /dev/null
+++ b/t/clean_namespace.t
@@ -0,0 +1,46 @@
+use Test::More;
+use strict;
+use warnings;
+
+BEGIN {
+  plan skip_all => "Package::Stash required for this test"
+    unless eval { require Package::Stash };
+
+  require MRO::Compat if $] < 5.009_005;
+}
+
+{
+  package AccessorGroups::Clean;
+  use strict;
+  use warnings;
+  use base 'Class::Accessor::Grouped';
+
+  my $obj = bless {};
+  for (qw/simple inherited component_class/) {
+    __PACKAGE__->mk_group_accessors($_ => "${_}_a");
+    $obj->${\ "${_}_a"} ('blah');
+  }
+}
+
+is_deeply
+[ sort keys %{ { map
+  { %{Package::Stash->new($_)->get_all_symbols('CODE')} }
+  (reverse @{mro::get_linear_isa('AccessorGroups::Clean')})
+} } ],
+[ sort +(
+  (map { ( "$_", "_${_}_accessor" ) } qw/simple_a inherited_a component_class_a/ ),
+  (map { ( "get_$_", "set_$_" ) } qw/simple inherited component_class/ ),
+  qw/
+    _mk_group_accessors
+    get_super_paths
+    make_group_accessor
+    make_group_ro_accessor
+    make_group_wo_accessor
+    mk_group_accessors
+    mk_group_ro_accessors
+    mk_group_wo_accessors
+  /,
+)],
+'Expected list of methods in a freshly inheriting class';
+
+done_testing;