diff options
Diffstat (limited to 't/10no.t')
-rw-r--r-- | t/10no.t | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/t/10no.t b/t/10no.t new file mode 100644 index 0000000..66b0f82 --- /dev/null +++ b/t/10no.t @@ -0,0 +1,54 @@ +=pod + +=encoding utf-8 + +=head1 PURPOSE + +Check C<< unimport >> works. + +=head1 AUTHOR + +Toby Inkster E<lt>tobyink@cpan.orgE<gt>. + +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2014 by Toby Inkster. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut + +use strict; +use warnings; +use Test::More tests => 7; + +use lib qw( examples ../examples ); + +{ + package Local::Pkg1; + use Example::Exporter; + ::is( fib(6), 8, 'fib exported' ); + no Example::Exporter; +} + +ok( !Local::Pkg1->can('fib'), 'tidied fib' ); + +{ + package Local::Pkg2; + use Example::Exporter fib => { -as => 'fibo' }; + ::is( fibo(6), 8, 'fibo exported' ); + no Example::Exporter; +} + +ok( !Local::Pkg2->can('fibo'), 'tidied fibo' ); + +{ + package Local::Pkg3; + use Example::Exporter -all; + ::is( fib(6), 8, 'fib exported' ); + ::is( embiggen(6), 7, 'embiggen exported' ); + no Example::Exporter qw( /^F/i ); +} + +ok( Local::Pkg3->can('embiggen') && !Local::Pkg3->can('fib'), 'tidied by regexp' ); |