Re^5: 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';
[download]

Makeshifts last the longest.

Comment on Re^5: Test::Exception extension with (evil?) overloading Download Code

Replies are listed 'Best First'.

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;
}
[download]

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';
[download]

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.
[download]

[reply]
[d/l]
[select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks