X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=6d6ec91b360d959b1b2320dba1acdb77c8ac2c18;hb=refs%2Ftags%2Fv0.04;hp=5c48e636680f20deb8512abe44ac283993f4a094;hpb=d26afdeff8fb3b34f931383b7ebef18b38bf9d79;p=gitmo%2FPackage-DeprecationManager.git

diff --git a/t/basic.t b/t/basic.t
index 5c48e63..6d6ec91 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -44,6 +44,11 @@ use Test::Warn;
             );
         }
     }
+
+    sub varies {
+        deprecated("The varies sub varies: $_[0]");
+    }
+
 }
 
 {
@@ -68,6 +73,18 @@ use Test::Warn;
     ::warning_is{ Foo::bar() } q{}, 'no warning on second call to bar';
 
     ::warning_is{ Foo::baz() } q{}, 'no warning on second call to baz';
+
+    ::warning_is{ Foo::varies(1) }
+        { carped => "The varies sub varies: 1" },
+        'warning for varies sub';
+
+    ::warning_is{ Foo::varies(2) }
+        { carped => "The varies sub varies: 2" },
+        'warning for varies sub with different error';
+
+    ::warning_is{ Foo::varies(1) }
+        q{},
+        'no warning for varies sub with same message as first call';
 }
 
 {