X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fedge-cases.t;fp=t%2Fedge-cases.t;h=262c13b69842167490ed266d42035c4a99ce6418;hb=f253ff9ea6aad9021b3a0d15449e8097d348402a;hp=d1e51824573487ea449eea61dcf13e9a8c58ccfa;hpb=acbc69c4f1ade78eb1d6f951cb6336af4297d996;p=gitmo%2FPackage-Stash.git

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;