Clarify exception on unexpected try() arguments
[p5sagit/Try-Tiny.git] / t / erroneous_usage.t
CommitLineData
9d0e0466 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
4c5b99d6 6use Test::More tests => 6;
9d0e0466 7use Try::Tiny;
8
9sub _eval {
10 local $@;
11 local $Test::Builder::Level = $Test::Builder::Level + 2;
12 return ( scalar(eval { $_[0]->(); 1 }), $@ );
13}
14
15sub throws_ok (&$$) {
16 my ( $code, $regex, $desc ) = @_;
17 local $Test::Builder::Level = $Test::Builder::Level + 1;
18
19 my ( $ok, $error ) = _eval($code);
20
21 if ( $ok ) {
22 fail($desc);
23 } else {
24 like($error || '', $regex, $desc );
25 }
26}
27
28throws_ok {
29 try { 1 }; catch { 2 };
30} qr/\QUseless bare catch()/, 'Bare catch() detected';
31
32throws_ok {
33 try { 1 }; finally { 2 };
34} qr/\QUseless bare finally()/, 'Bare finally() detected';
35
36throws_ok {
37 try { 1 }; catch { 2 } finally { 2 };
38} qr/\QUseless bare catch()/, 'Bare catch()/finally() detected';
39
40throws_ok {
41 try { 1 }; finally { 2 } catch { 2 };
42} qr/\QUseless bare finally()/, 'Bare finally()/catch() detected';
43
44
45throws_ok {
46 try { 1 } catch { 2 } catch { 3 } finally { 4 } finally { 5 }
47} qr/\QA try() may not be followed by multiple catch() blocks/, 'Multi-catch detected';
48
4c5b99d6 49
50throws_ok {
51 try { 1 } catch { 2 }
52 do { 2 }
53} qr/\Qtry() encountered an unexpected argument (2) - perhaps a missing semi-colon before or at/,
54 'Unterminated try detected';