diff options
Diffstat (limited to 't/basic.t')
| -rw-r--r-- | t/basic.t | 275 |
1 files changed, 275 insertions, 0 deletions
diff --git a/t/basic.t b/t/basic.t new file mode 100644 index 0000000..34dce52 --- /dev/null +++ b/t/basic.t @@ -0,0 +1,275 @@ +use strict; +use warnings; + +use Test::Fatal; +use Test::More 0.88; + +use Test::Requires { + 'Test::Output' => '0.16', +}; + +{ + ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval) + like( + exception { + eval 'package Whatever; use Package::DeprecationManager;'; + die $@ if $@; + }, + qr/^\QYou must provide a hash reference -deprecations parameter when importing Package::DeprecationManager/, + 'must provide a set of deprecations when using Package::DeprecationManager' + ); +} + +## no critic (Modules::ProhibitMultiplePackages) + +{ + package Foo; + + use Package::DeprecationManager -deprecations => { + 'Foo::foo' => '0.02', + 'Foo::bar' => '0.03', + 'Foo::baz' => '1.21', + 'not a sub' => '1.23', + }; + + sub foo { + deprecated('foo is deprecated'); + } + + sub bar { + deprecated('bar is deprecated'); + } + + sub baz { + deprecated(); + } + + sub quux { + if ( $_[0] > 5 ) { + deprecated( + message => 'quux > 5 has been deprecated', + feature => 'not a sub', + ); + } + } + + sub varies { + deprecated("The varies sub varies: $_[0]"); + } + +} + +{ + package Bar; + + Foo->import(); + + ::stderr_like( + sub { Foo::foo() }, + qr/\Qfoo is deprecated/, + 'deprecation warning for foo' + ); + + ::stderr_like( + sub { Foo::bar() }, + qr/\Qbar is deprecated/, + 'deprecation warning for bar' + ); + + ::stderr_like( + sub { Foo::baz() }, + qr/\QFoo::baz has been deprecated since version 1.21/, + 'deprecation warning for baz, and message is generated by Package::DeprecationManager' + ); + + ::stderr_is( + sub { Foo::foo() }, + q{}, 'no warning on second call to foo' + ); + + ::stderr_is( + sub { Foo::bar() }, + q{}, 'no warning on second call to bar' + ); + + ::stderr_is( + sub { Foo::baz() }, + q{}, 'no warning on second call to baz' + ); + + ::stderr_like( + sub { Foo::varies(1) }, + qr/\QThe varies sub varies: 1/, + 'warning for varies sub' + ); + + ::stderr_like( + sub { Foo::varies(2) }, + qr/\QThe varies sub varies: 2/, + 'warning for varies sub with different error' + ); + + ::stderr_is( + sub { Foo::varies(1) }, + q{}, + 'no warning for varies sub with same message as first call' + ); +} + +{ + package Baz; + + Foo->import( -api_version => '0.01' ); + + ::stderr_is( + sub { Foo::foo() }, + q{}, + 'no warning for foo with api_version = 0.01' + ); + + ::stderr_is( + sub { Foo::bar() }, + q{}, + 'no warning for bar with api_version = 0.01' + ); + + ::stderr_is( + sub { Foo::baz() }, + q{}, + 'no warning for baz with api_version = 0.01' + ); +} + +{ + package Quux; + + Foo->import( -api_version => '1.17' ); + + ::stderr_like( + sub { Foo::foo() }, + qr/\Qfoo is deprecated/, + 'deprecation warning for foo with api_version = 1.17' + ); + + ::stderr_like( + sub { Foo::bar() }, + qr/\Qbar is deprecated/, + 'deprecation warning for bar with api_version = 1.17' + ); + + ::stderr_is( + sub { Foo::baz() }, + q{}, + 'no warning for baz with api_version = 1.17' + ); +} + +{ + package Another; + + Foo->import(); + + ::stderr_is( + sub { Foo::quux(1) }, + q{}, + 'no warning for quux(1)' + ); + + ::stderr_like( + sub { Foo::quux(10) }, + qr/\Qquux > 5 has been deprecated/, + 'got a warning for quux(10)' + ); +} + +{ + package Dep; + + use Package::DeprecationManager -deprecations => { + 'Dep::foo' => '1.00', + }, + -ignore => [ 'My::Package1', 'My::Package2' ]; + + sub foo { + deprecated('foo is deprecated'); + } +} + +{ + package Dep2; + + use Package::DeprecationManager -deprecations => { + 'Dep2::bar' => '1.00', + }, + -ignore => [qr/My::Package[12]/]; + + sub bar { + deprecated('bar is deprecated'); + } +} + +{ + package My::Package1; + + sub foo { Dep::foo() } + sub bar { Dep2::bar() } +} + +{ + package My::Package2; + + sub foo { My::Package1::foo() } + sub bar { My::Package1::bar() } +} + +{ + package My::Baz; + + ::stderr_like( + sub { My::Package2::foo() }, + qr/^foo is deprecated at t.basic\.t line \d+\.?\s+My::Baz/, + 'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]' + ); + + ::stderr_is( + sub { My::Package2::foo() }, + q{}, + 'no deprecation warning for second call to My::Package2::foo()' + ); + + ::stderr_is( + sub { My::Package1::foo() }, + q{}, + 'no deprecation warning for call to My::Package1::foo()' + ); + + ::stderr_like( + sub { My::Package2::bar() }, + qr/^bar is deprecated at t.basic\.t line \d+\.?\s+My::Baz/, + 'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]' + ); + + ::stderr_is( + sub { My::Package2::bar() }, + q{}, + 'no deprecation warning for second call to My::Package2::bar()' + ); +} + +{ + package My::Quux; + + ::stderr_like( + sub { My::Package1::foo() }, + qr/^foo is deprecated at t.basic\.t line \d+\.?\s+My::Quux/, + 'deprecation warning for call to My::Package1::foo() and mentions My::Quux but not My::Package[12]' + ); + + ::stderr_is( + sub { My::Package1::foo() }, + q{}, + 'no deprecation warning for second call to My::Package1::foo()' + ); +} + +done_testing(); |