1#!/usr/bin/perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = '../lib'; 7 } 8} 9 10use Test::More tests => 10; 11 12# Using Symbol because it's core and exports lots of stuff. 13{ 14 package Foo::one; 15 ::use_ok("Symbol"); 16 ::ok( defined &gensym, 'use_ok() no args exports defaults' ); 17} 18 19{ 20 package Foo::two; 21 ::use_ok("Symbol", qw(qualify)); 22 ::ok( !defined &gensym, ' one arg, defaults overriden' ); 23 ::ok( defined &qualify, ' right function exported' ); 24} 25 26{ 27 package Foo::three; 28 ::use_ok("Symbol", qw(gensym ungensym)); 29 ::ok( defined &gensym && defined &ungensym, ' multiple args' ); 30} 31 32{ 33 package Foo::four; 34 my $warn; local $SIG{__WARN__} = sub { $warn .= shift; }; 35 ::use_ok("constant", qw(foo bar)); 36 ::ok( defined &foo, 'constant' ); 37 ::is( $warn, undef, 'no warning'); 38} 39