RIP .travis.yml
[p5sagit/Sub-Name.git] / t / smoke.t
index 1e1c011..0f5022c 100644 (file)
--- a/t/smoke.t
+++ b/t/smoke.t
@@ -1,6 +1,10 @@
+use strict;
+use warnings;
+
 BEGIN { $^P |= 0x210 }
 
-use Test::More 0.88;
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 use Sub::Name;
 
 my $x = subname foo => sub { (caller 0)[3] };
@@ -37,5 +41,5 @@ for ("Blork:: Bar!", "Foo::Bar::Baz") {
     ::is($DB::sub{$_}, $anon);
 }
 
-::done_testing;
+::done_testing();
 # vim: ft=perl