[p5sagit/namespace-clean.git] / t / 00-basic.t

use warnings;
use strict;

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

use ExporterTest qw( foo bar );

BEGIN {
    ok( main->can('foo'), 'methods are there before cleanup' );
    eval { require namespace::clean ;; namespace::clean->import };
    ok( !$@, 'module use ok' );
}

ok( !main->can($_), "$_ function removed" )
    for qw( foo bar );
Commit	Line	Data
40aef9d6	1	use warnings;
	2	use strict;
	3
726710b6	4	use lib 't/lib';
40aef9d6	5	use Test::More tests => 4;
	6
	7	use ExporterTest qw( foo bar );
	8
04312494	9	BEGIN {
40aef9d6	10	ok( main->can('foo'), 'methods are there before cleanup' );
1a1be5dc	11	eval { require namespace::clean ;; namespace::clean->import };
40aef9d6	12	ok( !$@, 'module use ok' );
	13	}
	14
	15	ok( !main->can($_), "$_ function removed" )
	16	for qw( foo bar );
	17