1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = qw(../lib ../lib/Test/Simple/t/lib);
}
else {
unshift @INC, 't/lib';
}
}
use Test::More tests => 15;
# Using Symbol because it's core and exports lots of stuff.
{
package Foo::one;
::use_ok("Symbol");
::ok( defined &gensym, 'use_ok() no args exports defaults' );
}
{
package Foo::two;
::use_ok("Symbol", qw(qualify));
::ok( !defined &gensym, ' one arg, defaults overriden' );
::ok( defined &qualify, ' right function exported' );
}
{
package Foo::three;
::use_ok("Symbol", qw(gensym ungensym));
::ok( defined &gensym && defined &ungensym, ' multiple args' );
}
{
package Foo::four;
my $warn; local $SIG{__WARN__} = sub { $warn .= shift; };
::use_ok("constant", qw(foo bar));
::ok( defined &foo, 'constant' );
::is( $warn, undef, 'no warning');
}
{
package Foo::five;
::use_ok("Symbol", 1.02);
}
{
package Foo::six;
::use_ok("NoExporter", 1.02);
}
{
package Foo::seven;
local $SIG{__WARN__} = sub {
# Old perls will warn on X.YY_ZZ style versions. Not our problem
warn @_ unless $_[0] =~ /^Argument "\d+\.\d+_\d+" isn't numeric/;
};
::use_ok("Test::More", 0.47);
}
{
package Foo::eight;
local $SIG{__DIE__};
::use_ok("SigDie");
::ok(defined $SIG{__DIE__}, ' SIG{__DIE__} preserved');
}
|
