t/03throw-non-Error.t


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

#!/usr/bin/perl

use strict;
use warnings;

use Error (qw(:try));
use Test::More tests => 2;

my $count_of_Error = 0;
eval
{
try
{
    die +{ 'private' => "Shlomi", 'family' => "Fish" };
}
catch Error with
{
    my $err = shift;
    $count_of_Error++;
}
};
my $exception = $@;

# TEST
is_deeply (
    $exception,
    +{'private' => "Shlomi", 'family' => "Fish"},
    "Testing for thrown exception",
);

# TEST
is ($count_of_Error, 0, "No Errors caught.");