[gitmo/Mouse.git] / t / 006-unimport.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 5;

do {
    package Class;
    use Mouse;

    no Mouse;

    package Child;
    use Mouse;
    extends 'Class';

    no Mouse;
};

ok(!Child->can('extends'), "extends keyword is unimported");
ok(!Class->can('extends'), "extends keyword is unimported");

do {
    package Foo;
    use Mouse 'has';

    sub extends { "good" }

    no Mouse;
};

ok(!Foo->can('has'), "has keyword is unimported");
TODO: {
    local $TODO = "fixing this may require a Sub::Identify dep";
    ok(Foo->can('extends'), "extends method is NOT unimported");
    is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
};
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
df5525b4	4	use Test::More tests => 5;
c3398f5b	5
	6	do {
	7	package Class;
	8	use Mouse;
	9
	10	no Mouse;
	11
	12	package Child;
	13	use Mouse;
	14	extends 'Class';
	15
	16	no Mouse;
	17	};
	18
	19	ok(!Child->can('extends'), "extends keyword is unimported");
	20	ok(!Class->can('extends'), "extends keyword is unimported");
	21
df5525b4	22	do {
	23	package Foo;
	24	use Mouse 'has';
	25
	26	sub extends { "good" }
	27
	28	no Mouse;
	29	};
	30
	31	ok(!Foo->can('has'), "has keyword is unimported");
b57f7bae	32	TODO: {
	33	local $TODO = "fixing this may require a Sub::Identify dep";
	34	ok(Foo->can('extends'), "extends method is NOT unimported");
	35	is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
	36	};
df5525b4	37