1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!perl -T
# -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/13-*.t" -*-
BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
use Test::More tests => 7;
use strict;
use warnings;
BEGIN {
use_ok( 'Test::Trap' );
}
() = trap { @_ };
is( $trap->leaveby, 'return', 'We may access @_' );
is_deeply( $trap->return, [], 'Empty @_ in the trap block, please' );
() = trap { $_[1] = 1; @_ };
is( $trap->leaveby, 'return', 'We may modify @_' );
is_deeply( $trap->return, [ undef, 1 ], 'Modified @_ in the trap block' );
TIMELY_DESTRUCTION: {
my $destroyed=0;
sub Foo::DESTROY {
$destroyed++;
}
SCOPE: {
my $foo = [];
bless $foo, 'Foo';
trap { $foo };
is( $destroyed, 0, 'No Foo yet destroyed' );
}
is( $destroyed, 1, 'One Foo destroyed' );
}
|
