blob: 4af73d38c42b0e6410de8cb70aec1e293ae1a7b9 (
plain)
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
|
my @symbols;
BEGIN {
chdir 't';
@INC = '../lib';
require Config;
if (($Config::Config{'extensions'} !~ /\bB\b/) ){
print "1..0 # Skip -- Perl configured without B module\n";
exit 0;
}
if ($Config::Config{'extensions'} !~ /\bPOSIX\b/) {
print "1..0 # Skip -- Perl configured without POSIX\n";
exit 0;
}
# errno is a real subroutine, and acts as control
# SEEK_SET is a proxy constant subroutine.
@symbols = qw(errno SEEK_SET);
}
use strict;
use warnings;
use Test::More tests => 4 * @symbols;
use B qw(svref_2object GVf_IMPORTED_CV);
use POSIX @symbols;
# GVf_IMPORTED_CV should not be set on the original, but should be set on the
# imported GV.
foreach my $symbol (@symbols) {
my ($ps, $ms);
{
no strict 'refs';
$ps = svref_2object(\*{"POSIX::$symbol"});
$ms = svref_2object(\*{"::$symbol"});
}
isa_ok($ps, 'B::GV');
is($ps->GvFLAGS() & GVf_IMPORTED_CV, 0,
"GVf_IMPORTED_CV not set on original");
isa_ok($ms, 'B::GV');
is($ms->GvFLAGS() & GVf_IMPORTED_CV, GVf_IMPORTED_CV,
"GVf_IMPORTED_CV set on imported GV");
}
|
