t/erroneous_usage.t

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