t/006-unimport.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 2;
   5
   6 do {
   7     package Class;
   8     use Mouse;
   9
  10     no Mouse;
  11
  12     package Child;
  13     use Mouse;
  14     extends 'Class';
  15
  16     no Mouse;
  17 };
  18
  19 ok(!Child->can('extends'), "extends keyword is unimported");
  20 ok(!Class->can('extends'), "extends keyword is unimported");
  21