File: 03throw-non-Error.t

package info (click to toggle)
liberror-perl 0.17-1
  • links: PTS
  • area: main
  • in suites: lenny, squeeze, wheezy
  • size: 196 kB
  • ctags: 63
  • sloc: perl: 1,056; makefile: 38
file content (32 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (7) 
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.");