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
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../";
use Test::More;
use t::Util;
test('require pragma', <<'END', {strict => 0, warnings => 0});
require strict;
require warnings;
END
test('require Module', <<'END', {'Test' => 0, 'Test::More' => 0});
require Test;
require Test::More;
END
test('require v-string', <<'END', {perl => 'v5.10.1'});
require v5.10.1;
END
test('require version_number', <<'END', {perl => '5.010001'});
require 5.010001;
END
test('require file', <<'END', {'Test::More' => 0});
my $file = "Test/More.pm";
require "Test/More.pm";
require "cgi-lib.pl";
require $file;
END
test('require Module in if', <<'END', {}, {}, {'Test::More' => 0});
if (1) { require Test::More; }
END
test('require Module in sub', <<'END', {}, {}, {'Test::More' => 0});
sub foo { require Test::More; }
END
test('require Module in sub without explicit semicolon', <<'END', {}, {}, {'Test::More' => 0});
sub foo { require Test::More }
END
test('require Module in sub', <<'END', {'Test::More' => 0});
BEGIN { require Test::More; }
END
test('require Module in sub', <<'END', {'Test::More' => 0});
sub BEGIN { require Test::More; }
END
test('sub require', <<'END', {'vars' => 0}); # EVO/Term-ShellKit-1.002/ShellKit/Dev.pm
sub require {
die "No module name provided" unless ( scalar @_ );
map { Term::ShellKit::require_package( $_ ) } @_;
}
######################################################################
use vars '%LibLastLoaded';
END
done_testing;
|
