Move base from lib to ext

[perl5.git] / lib / base / t / warnings.t

diff --git a/lib/base/t/warnings.t b/lib/base/t/warnings.t
deleted file mode 100644 (file)
index 51e9174..0000000
--- a/lib/base/t/warnings.t
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/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';