ASH / TryCatch-1.001001_99 / t / catch_01.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
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

              
use strict;
use warnings;
use Test::More;
use Test::Exception;
BEGIN { use_ok "TryCatch" or BAIL_OUT("Cannot load TryCatch") };
sub simple_no_die {
  try {
    return "simple_return";
       } # foo
  catch($e) {
    die "Shouldn't get here: $e";
  }
  diag("foo\n");
  return "bar";
}
is(simple_no_die(), "simple_return", "simple_return");
sub simple_die {
  my $msg = "no error";
  try {
    die "Some str\n";
  }
  catch (Str $err where { length $_ < 5 }) {
    chomp($err);
    $msg = "We got a short Str error of '$err'";
  }
  catch (Str $err where { length $_ >= 5 }) {
    chomp($err);
    $msg = "We got a long Str error of '$err'";
  }
  return $msg;
}
is(simple_die(), "We got a long Str error of 'Some str'", "simple_die");
sub simple_catch_type {
  my @args = @_;
  try {
    die $args[0];
  }
  catch (ArrayRef[Int] $array) {
    return "Got an array of @$array";
    fail("didn't unwind");
  }
  catch ($e) {
    return "Got otherwise";
  }
  fail("didn't unwind or catch");
}
is(simple_catch_type([1,2,3]), "Got an array of 1 2 3", "simple_catch_type");
is(simple_catch_type(''), "Got otherwise", "simple_catch_type");
sub catch_args {
  try {
    no warnings 'uninitialized';
    die $_[0];
  }
  catch (ArrayRef[Int] $array) {
    return "Got an array of @$array";
  }
  catch ($e) {
    return "Got otherwise";
  }
}
is(catch_args([1,2,3]), "Got an array of 1 2 3", "simple_catch_type");
is(catch_args(''), "Got otherwise", "simple_catch_type");
# Testing of how errors propogate when not caught
dies_ok {
  try {
    die { code => 500 };
  }
  catch ($e where {$_->{code} < 400} ) {
    pass("caught error")
  }
} "No catch-all causes error to propogate";
lives_ok {
  try {
    die { code => 500 };
  }
  catch ($e where {$_->{code} < 400} ) {
    fail("caught error when we shouldn't have")
  }
  catch {
    pass("Caught error in catch all");
  }
} "Catch-all doesn't cause error to propogate";
dies_ok {
  try {
    try {
      die { code => 500 };
    }
    catch { die }
  }
  catch ($e where {$_->{code} < 400} ) {
    fail("caught error when we shouldn't have")
  }
} "'die' propogates errors as expected";
done_testing();