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
|
use strict;
use warnings;
sub run_it
{
my ($code) = @_;
my $pkg = caller(1);
eval "package $pkg;$code";
my $ok = $@ ? 0 : 1;
return ($ok, $@);
}
sub runs_ok
{
local($Test::Builder::Level) = $Test::Builder::Level + 1;
my ($code, $name) = @_;
my ($ok, $err) = run_it($code);
ok($ok, $name) || diag("eval died with $err");
return $ok;
}
sub dies_ok
{
local($Test::Builder::Level) = $Test::Builder::Level + 1;
my ($code, $name) = @_;
my ($ok, $err) = run_it($code);
ok(!$ok, $name) || diag("$code executed successfully");
return !$ok;
}
1;
|
