t/03-unimport.t

   1 use warnings;
   2 use strict;
   3
   4 use lib 't/lib';
   5 use Test::More tests => 6;
   6
   7 use_ok('Unimport');
   8
   9 ok( !Unimport->can('foo'),
  10     'first function correctly removed' );
  11 ok( Unimport->can('bar'),
  12     'excluded method still in package' );
  13 ok( !Unimport->can('baz'),
  14     'second function correctly removed' );
  15 ok( Unimport->can('qux'),
  16     'last method still in package' );
  17 is( Unimport->qux, 23,
  18     'all functions are still bound' );
  19