[p5sagit/p5-mst-13.2.git] / dist / base / t / warnings.t

#!/usr/bin/perl -w

use strict;

use Test::More tests => 1;

my $warnings;
BEGIN {
    $SIG{__WARN__} = sub { $warnings = join '', @_ };
}

{
    package Foo;
    use fields qw(thing);
}

{
    package Bar;
    use fields qw(stuff);
    use base qw(Foo);
}

::like $warnings,
       '/^Bar is inheriting from Foo but already has its own fields!/',
       'Inheriting from a base with protected fields warns';
Commit	Line	Data
9e998a43	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4
	5	use Test::More tests => 1;
	6
	7	my $warnings;
	8	BEGIN {
	9	$SIG{__WARN__} = sub { $warnings = join '', @_ };
	10	}
	11
	12	{
	13	package Foo;
	14	use fields qw(thing);
	15	}
	16
	17	{
	18	package Bar;
	19	use fields qw(stuff);
	20	use base qw(Foo);
	21	}
	22
	23	::like $warnings,
	24	'/^Bar is inheriting from Foo but already has its own fields!/',
	25	'Inheriting from a base with protected fields warns';