projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add test preambles
[p5sagit/p5-mst-13.2.git]
/
lib
/
base
/
t
/
warnings.t
1
#!/usr/bin/perl -w
2
3
BEGIN {
4
if( $ENV{PERL_CORE} ) {
5
chdir 't' if -d 't';
6
@INC = qw(../lib);
7
}
8
}
9
10
use strict;
11
12
use Test::More tests => 1;
13
14
my $warnings;
15
BEGIN {
16
$SIG{__WARN__} = sub { $warnings = join '', @_ };
17
}
18
19
{
20
package Foo;
21
use fields qw(thing);
22
}
23
24
{
25
package Bar;
26
use fields qw(stuff);
27
use base qw(Foo);
28
}
29
30
::like $warnings,
31
'/^Bar is inheriting from Foo but already has its own fields!/',
32
'Inheriting from a base with protected fields warns';