Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Silencing warnings when testing

by grantm (Parson)
on Oct 28, 2002 at 02:16 UTC ( [id://208433]=note: print w/replies, xml ) Need Help??


in reply to Silencing warnings when testing

I have very similar logic in a number of my test scripts. I use an eval block and check that the message in $@ matches what I was expecting. That won't work directly for you since your code uses 'carp' where mine uses 'croak'.

If one of your methods is passed an invalid argument, is there any point carrying on? Rather than carp and return 0, why not just croak?

Coming back to your original question though, you could capture warning messages like this:

our $last_warning = ''; $SIG{__WARN__} = sub { $last_warning = shift; } ... code that generates warning ... ... code that checks contents of $last_warning ...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://208433]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-28 19:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found