projects
/
p5sagit/Sub-Name.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
do not artificially set minimum perl to 5.018
[p5sagit/Sub-Name.git]
/
t
/
smoke.t
diff --git
a/t/smoke.t
b/t/smoke.t
index
1e1c011
..
d5ab217
100644
(file)
--- a/
t/smoke.t
+++ b/
t/smoke.t
@@
-1,6
+1,9
@@
+use strict;
+use warnings;
+
BEGIN { $^P |= 0x210 }
-use Test::More 0.88;
+use Test::More tests => 10;
use Sub::Name;
my $x = subname foo => sub { (caller 0)[3] };
@@
-37,5
+40,4
@@
for ("Blork:: Bar!", "Foo::Bar::Baz") {
::is($DB::sub{$_}, $anon);
}
-::done_testing;
# vim: ft=perl