t/namespace-clean.t

   1 use Test::More;
   2
   3 BEGIN {
   4     eval { require namespace::autoclean ; 1 }
   5         or plan skip_all => 'test requires namespace::autoclean';
   6 }
   7
   8 BEGIN {
   9     package Local::Role;
  10     use Role::Tiny;
  11     sub foo { 1 };
  12 }
  13
  14 BEGIN {
  15     package Local::Class;
  16     use namespace::autoclean;
  17     use Role::Tiny::With;
  18     with qw( Local::Role );
  19 };
  20
  21 can_ok 'Local::Class', 'foo';
  22 can_ok 'Local::Class', 'does';
  23
  24 done_testing();