From f253ff9ea6aad9021b3a0d15449e8097d348402a Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 29 Nov 2011 18:08:15 -0600 Subject: make sure we don't get warnings about redefining symbols --- t/edge-cases.t | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 't') diff --git a/t/edge-cases.t b/t/edge-cases.t index d1e5182..262c13b 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -80,4 +80,13 @@ SKIP: { ); } +{ + my $warning; + local $SIG{__WARN__} = sub { $warning = $_[0] }; + my $stash = Package::Stash->new('Bar'); + $stash->add_symbol('&foo' => sub { }); + $stash->add_symbol('&foo' => sub { }); + is($warning, undef, "no redefinition warnings"); +} + done_testing; -- cgit v1.2.3