[p5sagit/namespace-clean.git] / t / 03-unimport.t

use warnings;
use strict;

use lib 't/lib';
use Test::More tests => 6;

use_ok('Unimport');

ok( !Unimport->can('foo'),
    'first function correctly removed' );
ok( Unimport->can('bar'),
    'excluded method still in package' );
ok( !Unimport->can('baz'),
    'second function correctly removed' );
ok( Unimport->can('qux'),
    'last method still in package' );
is( Unimport->qux, 23,
    'all functions are still bound' );
Commit	Line	Data
9b680ffe	1	use warnings;
	2	use strict;
	3
726710b6	4	use lib 't/lib';
9b680ffe	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