Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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

by Aristotle (Chancellor)
on Jan 18, 2003 at 22:11 UTC ( #228076=note: print w/ replies, xml ) Need Help??


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

None syntactically, but the amount of required magic feels like a kludge.

But I just thought of something - how about:

sub lives_and (&$) { my ( $test, $name ) = @_; local $@; eval { $test->() } and return 1; fail $name; diag "Died: $@"; return; } lives_and { is $o->answer(), 42, shift } 'answer is 42';

Makeshifts last the longest.


Comment on Re^5: Test::Exception extension with (evil?) overloading
Download Code
Re^6: Test::Exception extension with (evil?) overloading
by adrianh (Chancellor) on Jan 18, 2003 at 23:15 UTC

    Ohhhh! Much better. With a tiny piece of magic we can get rid of that shift too.

    sub lives_and (&$) { my ($test, $name) = @_; local $Test::Builder::Level = $Test::Builder::Level+1; { my $ok = \&Test::Builder::ok; no warnings; local *Test::Builder::ok = sub { $_[2] = $name unless defined $_[2]; $ok->(@_); }; use warnings; eval { $test->() } and return 1; }; if ($@) { fail($name); diag("Died: $@"); }; return; }

    Which allows us to do:

    lives_and { is 42, 42 } 'answer is 42'; lives_and { is 24, 42 } 'answer is 42'; lives_and { is sub { die 'oops' }->(), 42 } 'answer is 42';

    giving us

    ok 1 - answer is 42 + not ok 2 - answer is 42 + # Failed test (foo.pl at line 29) + # got: '24' + # expected: '42' + not ok 3 - answer is 42 + # Failed test (foo.pl at line 31) + # Died: oops at foo.pl line 31.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-07-13 18:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (251 votes), past polls