Getting useful information from a thrown error

talexb has asked for the wisdom of the Perl Monks concerning the following question:

I'm using the excellent throws_ok test from Test::Exception, and it's doing a fine job in reporting that I got the right exception. The problem is, I'd like to see more information about the exception that's being reported. The code does

if ( $condition ) {
  throw 'BAD_THING_HAPPENED' => 'useful detailed information';
}
[download]

and my test (using throws_ok) looks for a thrown error with the pattern BAD_THING_HAPPENED. Great. But I'd love to be able to report the 'useful detailed information'. Is there any way to get that?

I'd even be happy to get the specific BAD_THING_HAPPENED error, because I can add the __LINE__ value to that, and the regexp will still work.

Alex / talexb / Toronto

Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.

Comment on Getting useful information from a thrown error Select or Download Code

Replies are listed 'Best First'.
Re: Getting useful information from a thrown error by stevieb (Canon) on Aug 23, 2022 at 21:39 UTC
I misread the OP. The below can be ignored as it doesn't equate to the actual problem. You just want to add your own custom fail report? Here's what I do at work: `throws_ok { $Keys->add_domain_mapping } qr/requires a.domain/, "add_domain_mapping() croaks if no domain sent in ok"; throws_ok { $Keys->add_domain_mapping('blah.com') } qr/requires a.selector/, "add_domain_mapping() croaks if no selector sent in ok";` [download]	[reply] [d/l]
Re: Getting useful information from a thrown error by Anonymous Monk on Aug 23, 2022 at 21:23 UTC
What is throw exactly?	[reply]
Re^2: Getting useful information from a thrown error by talexb (Chancellor) on Aug 23, 2022 at 21:40 UTC
The `throw` I'm using causes an exception; so typically you use it in code like this: `try { something_that_might_blow_up(); } catch { /POSSIBLE_ERROR/ && print "FATAL:A bad thing happened\n"; };` [download] The module Try::Tiny is where this comes from. Alex / talexb / Toronto Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.	[reply] [d/l] [select]
Re^3: Getting useful information from a thrown error by Anonymous Monk on Aug 24, 2022 at 08:55 UTC
Sorry I dont see it https://grep.metacpan.org/search?qd=Try-Tiny&source=metacpan&q=throw maybe ? https://metacpan.org/pod/Class::Throwable? It has verbosity levels https://metacpan.org/pod/Class::Throwable#Exception-Verbosity so all together `local $Class::Throwable::DEFAULT_VERBOSITY=999999; throws_ok(...); Test::More::diag( $@->getStackTraceAsString );` [download]	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks