REDROOM

Navigation

Breadcrumbs

Create

Preview: erroneous_usage.t Size: 1.50 KB

//usr/share/doc/perl-Try-Tiny/t/erroneous_usage.t

use strict;
use warnings;

use Test::More tests => 8;
use Try::Tiny;

sub _eval {
  local $@;
  local $Test::Builder::Level = $Test::Builder::Level + 2;
  return ( scalar(eval { $_[0]->(); 1 }), $@ );
}

sub throws_ok (&$$) {
  my ( $code, $regex, $desc ) = @_;
  local $Test::Builder::Level = $Test::Builder::Level + 1;

  my ( $ok, $error ) = _eval($code);

  if ( $ok ) {
    fail($desc);
  } else {
    like($error || '', $regex, $desc );
  }
}

throws_ok {
  try { 1 }; catch { 2 };
} qr/\QUseless bare catch()/, 'Bare catch() detected';

throws_ok {
  try { 1 }; finally { 2 };
} qr/\QUseless bare finally()/, 'Bare finally() detected';

throws_ok {
  try { 1 }; catch { 2 } finally { 2 };
} qr/\QUseless bare catch()/, 'Bare catch()/finally() detected';

throws_ok {
  try { 1 }; finally { 2 } catch { 2 };
} qr/\QUseless bare finally()/, 'Bare finally()/catch() detected';


throws_ok {
  try { 1 } catch { 2 } catch { 3 } finally { 4 } finally { 5 }
} qr/\QA try() may not be followed by multiple catch() blocks/, 'Multi-catch detected';


throws_ok {
  try { 1 } catch { 2 }
  do { 2 }
} qr/\Qtry() encountered an unexpected argument (2) - perhaps a missing semi-colon before or at/,
  'Unterminated try detected';

sub foo {
  try { 0 }; catch { 2 }
}

throws_ok {
  if (foo()) {
    # ...
  }
} qr/\QUseless bare catch/,
  'Bare catch at the end of a function call';

sub bar {
  try { 0 }; finally { 2 }
}

throws_ok {
  if (bar()) {
    # ...
  }
} qr/\QUseless bare finally/,
  'Bare finally at the end of a function call';

Name	Size	Perms	Modified	Actions
lib DIR	-	drwxr-xr-x	2025-04-06 18:14:09	Edit Download recursive recursive
00-report-prereqs.dd	10.07 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
00-report-prereqs.t	5.83 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
basic.t	3.00 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
context.t	1.17 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
erroneous_usage.t	1.50 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
finally.t	2.50 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
given_when.t	694 B	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
global_destruction_forked.t	953 B	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
global_destruction_load.t	550 B	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
named.t	685 B	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
when.t	669 B	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive
zzz-check-breaks.t	1.06 KB	lrw-r--r--	2017-12-21 07:23:09	Edit Download recursive recursive

Directory Contents