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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/env perl
# XXX Test::Exception...
use strict;
use warnings;
use Test::More tests => 18;
BEGIN { use_ok('Scope::Guard', 'scope_guard') };
my $test_0 = 'test_0';
my $test_1 = 'test_1';
my $test_2 = 'test_2';
eval {
$test_0 = 'modified test_0';
Scope::Guard->new(sub { $test_1 = 'modified test_1' }); # void context: blow up
$test_2 = 'modified test_2'; # not reached
};
like $@, qr{Can't create a Scope::Guard in void context};
is $test_0, 'modified test_0';
is $test_1, 'test_1';
is $test_2, 'test_2';
####################################################
my $test_3 = 'test_3';
my $test_4 = 'test_4';
sub {
my $guard = Scope::Guard->new(sub { $test_3 = 'modified test_3' });
return;
$test_4 = 'modified test 4';
}->();
is $test_3, 'modified test_3';
is $test_4, 'test_4';
####################################################
my $test_5 = 'test_5';
my $test_6 = 'test_6';
eval {
my $guard = Scope::Guard->new(sub { $test_5 = 'modified test_5' });
my $numerator = 42;
my $denominator = 0;
my $exception = $numerator / $denominator;
$test_6 = 'modified test 3'; # not reached
};
like $@, qr{^Illegal division by zero};
is $test_5, 'modified test_5';
is $test_6, 'test_6';
####################################################
my $test_7 = 'test_7';
my $test_8 = 'test_8';
{
my $guard = Scope::Guard->new(sub { $test_7 = 'modified test_7' }); # not called (due to dismiss())
$guard->dismiss(); # defaults to true
$test_8 = 'modified test_8'; # reached!
}
is $test_7, 'test_7'; # unmodified
is $test_8, 'modified test_8'; # the guard was dismissed, so this is reached
####################################################
my $test_9 = 'test_9';
my $test_10 = 'test_10';
{
my $guard = Scope::Guard->new(sub { $test_9 = 'modified test_9' }); # not called (due to dismiss())
$guard->dismiss(1);
$test_10 = 'modified test_10'; # reached!
}
is $test_9, 'test_9';
is $test_10, 'modified test_10';
####################################################
my $test_11 = 'test_11';
my $test_12 = 'test_12';
{
my $guard = Scope::Guard->new(sub { $test_11 = 'modified test_11' });
$guard->dismiss(); # dismiss: default argument (1)
$guard->dismiss(0); # un-dismiss!
$test_12 = 'modified test_12';
}
is $test_11, 'modified test_11';
is $test_12, 'modified test_12';
####################################################
my $test_13 = 'test_13';
my $test_14 = 'test_14';
{
my $guard = Scope::Guard->new(sub { $test_13 = 'modified test_13' });
$guard->dismiss(1); # dismiss: explicit argument (1)
$guard->dismiss(0); # un-dismiss!
$test_14 = 'modified test_14';
}
is $test_13, 'modified test_13';
is $test_14, 'modified test_14';
|
