Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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

by adrianh (Chancellor)
on Jan 18, 2003 at 21:50 UTC ( #228068=note: print w/ replies, xml ) Need Help??


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

lives_and_tests_ok ( sub { $o->answer }, sub { is $a, 42, $b }, "answer is 42" );

I quite like this one actually :-) However, is there some problem with:

is live{$o->answer}, 42, 'answer is 42';

that I'm missing?


Comment on Re^4: Test::Exception extension with (evil?) overloading
Select or Download Code
Re^5: Test::Exception extension with (evil?) overloading
by Aristotle (Chancellor) on Jan 18, 2003 at 22:11 UTC

    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.

      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://228068]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-07-28 12:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (197 votes), past polls