Moin Moin!
Ich würde es ungefähr so anfangen (ungetestet):
{
my $w='';
local $SIG{__WARN__}=sub { $w.=join(' ',@_) };
is(AnswerToTheUltimateQuestionOfLifeTheUniverseAndEverything(),42,'Answer ok');
is($w,'Stupid idea','Proper warning');
}
Allerdings dürfte Test::Warn einfacher sein.
Alexander
--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so".
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so".