Alexander (HH): Warnungen bei Test anfangen

Beitrag lesen

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".