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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't' if -d 't';
chdir '../lib/parent';
@INC = '..';
}
}
use strict;
use Test::More tests => 10;
use_ok('parent');
package No::Version;
use vars qw($Foo);
sub VERSION { 42 }
package Test::Version;
use parent -norequire, 'No::Version';
::is( $No::Version::VERSION, undef, '$VERSION gets left alone' );
# Test Inverse: parent.pm should not clobber existing $VERSION
package Has::Version;
BEGIN { $Has::Version::VERSION = '42' };
package Test::Version2;
use parent -norequire, 'Has::Version';
::is( $Has::Version::VERSION, 42 );
package main;
my $eval1 = q{
{
package Eval1;
{
package Eval2;
use parent -norequire, 'Eval1';
$Eval2::VERSION = "1.02";
}
$Eval1::VERSION = "1.01";
}
};
eval $eval1;
is( $@, '' );
# String comparisons, just to be safe from floating-point errors
is( $Eval1::VERSION, '1.01' );
is( $Eval2::VERSION, '1.02' );
eval q{use parent 'reallyReAlLyNotexists'};
like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, 'baseclass that does not exist');
eval q{use parent 'reallyReAlLyNotexists'};
like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, ' still failing on 2nd load');
{
my $warning;
local $SIG{__WARN__} = sub { $warning = shift };
eval q{package HomoGenous; use parent 'HomoGenous';};
like($warning, q{/^Class 'HomoGenous' tried to inherit from itself/},
' self-inheriting');
}
{
BEGIN { $Has::Version_0::VERSION = 0 }
package Test::Version3;
use parent -norequire, 'Has::Version_0';
::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' );
}
|
