t/03-unimport.t

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