X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=5c48e636680f20deb8512abe44ac283993f4a094;hb=d26afdeff8fb3b34f931383b7ebef18b38bf9d79;hp=107020d49593a48e0269c787139bf79bde5e9ac1;hpb=ebd96f900bd11342e08ef7d14da9a89c57be7c91;p=gitmo%2FPackage-DeprecationManager.git

diff --git a/t/basic.t b/t/basic.t
index 107020d..5c48e63 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -120,4 +120,48 @@ use Test::Warn;
         'got a warning for quux(10)';
 }
 
+
+{
+    package Dep;
+
+    use Package::DeprecationManager -deprecations => {
+        'foo' => '1.00',
+        },
+        -ignore => [ 'My::Foo', 'My::Bar' ];
+
+    sub foo {
+        deprecated('foo is deprecated');
+    }
+}
+
+{
+    package My::Foo;
+
+    sub foo { Dep::foo() }
+}
+
+{
+    package My::Bar;
+
+    sub foo { My::Foo::foo() }
+}
+
+{
+    package My::Baz;
+
+    ::warning_like{ My::Bar::foo() }
+        qr/^foo is deprecated at t.basic\.t line \d+/,
+        'deprecation warning for call to My::Bar::foo()';
+}
+
+{
+    package My::Baz;
+
+    Dep->import( -api_version => '0.8' );
+
+    ::warning_is{ My::Bar::foo() }
+        q{},
+        'no wanrning when calling My::Bar::foo()';
+}
+
 done_testing();