Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Test::Exception extension with (evil?) overloading

by adrianh (Chancellor)
on Jan 18, 2003 at 17:45 UTC ( [id://228003]=note: print w/replies, xml ) Need Help??


in reply to Re: Test::Exception extension with (evil?) overloading
in thread Test::Exception extension with (evil?) overloading

is eval { $o->answer }, 42, 'answer returned 42'

I've used this on occasion, but I've three issues with the idiom. First, when undef is a legal return value it's of no use. Second, you don't get to see the error message on failure. Third, you can't tell the difference between failure due to an exception and failure due to returning undef.

is do {
   lives_ok {$o->answer} 'answer worked'
}, 42, 'answer returned 42';

[download]

We're back to two tests - and it doesn't work :-)

... but only because I lied in my example... bad adrian...

lives_ok returns a boolean, not the result of the coderef. This is usual for test subroutines so that you can use the do_some_test(...) || diag(some message) idiom.

Replies are listed 'Best First'.
Re^3: Test::Exception extension with (evil?) overloading
by Aristotle (Chancellor) on Jan 18, 2003 at 17:52 UTC
    Then what was the following code you posted supposed to do anyway? 
    my $result = lives_ok {$o->answer} 'answer worked';
is $result, 42, 'answer returned 42';

    [download]
    Because the second snippet I posted behaves exactly like that.

    Makeshifts last the longest.

[reply]
[d/l]
      Then what was the following code you posted supposed to do anyway?

      I guess it was intended to prove what an idiot I am when I don't run my code examples. Excuse me while I go bang my head against the wall (and then fix the example :-).

      <bang, bang, bang ... >

      Ah, that's better. Example should read:

      my $result;
lives_ok {$result = $o->answer} 'answer worked';
is $result, 42, 'answer returned 42';

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://228003]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2024-04-25 23:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found