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

#!/usr/bin/env perl
use warnings;
use strict;

use FindBin;
use lib "$FindBin::Bin/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	#!/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 => 4;
	8
	9	use ExporterTest qw( foo bar );
	10
	11	BEGIN {
	12	ok( main->can('foo'), 'methods are there before cleanup' );
1a1be5dc	13	eval { require namespace::clean ;; namespace::clean->import };
40aef9d6	14	ok( !$@, 'module use ok' );
	15	}
	16
	17	ok( !main->can($_), "$_ function removed" )
	18	for qw( foo bar );
	19