On Tue, Nov 12, 2002 at 04:21:38PM +0000, Adrian Howard wrote:
> Most of the time when I need to mess with level, the code that does
> the test is sitting in a different package from the one that is
> calling the test. How about having it walk up the call stack until it
> find a package that differs from the one it was called in?
People suggest this so often it needs its own FAQ.
package Test::Foo::Inside;
my $tb = Test::Builder->new;
sub something {
$tb->ok(@_);
}
package Test::Foo;
use Test::Foo::Inside;
sub wiffle {
something(@_);
}
...and in your test code...
use Test::Foo;
wiffle(....);
Ooops.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Death was thought to be fatal.
-- Craig A. Berry in <a05101002b8165afc6b62@[172.16.52.1]>
