From: Vincent Pit Date: Mon, 4 Jan 2010 13:14:56 +0000 (+0100) Subject: Test that subs aren't stubbed X-Git-Tag: v0.02~8 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f067fa817eb9eedd084d756ece046b67b23fb657;p=perl%2Fmodules%2FSub-Op.git Test that subs aren't stubbed --- diff --git a/t/10-base.t b/t/10-base.t index 62659d4..b5ce731 100644 --- a/t/10-base.t +++ b/t/10-base.t @@ -5,7 +5,7 @@ use warnings; use blib 't/Sub-Op-LexicalSub'; -use Test::More tests => 2 * 15 + 3 * 2 + 2 * 28; +use Test::More tests => (1 + 3) * 15 + (1 + 2 * 3) * 2 + 2 * 28; our $called; @@ -54,7 +54,9 @@ our $called; $test .= <<" CHECK_VIVID" BEGIN { no warnings 'uninitialized'; # Test::Builder can't get the file name - is *main::${name}\{CODE\}, undef, '$name: no symbol table vivification'; + ok !exists &main::${name}, '$name: not stubbed'; + ok !defined &main::${name}, '$name: body not defined'; + is *main::${name}\{CODE\}, undef, '$name: empty symbol table entry'; } CHECK_VIVID }