t/finally.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 #use warnings;
   5
   6 use Test::More tests => 24;
   7
   8 BEGIN { use_ok 'Try::Tiny' };
   9
  10 try {
  11         my $a = 1+1;
  12 } catch {
  13         fail('Cannot go into catch block because we did not throw an exception')
  14 } finally {
  15         pass('Moved into finally from try');
  16 };
  17
  18 try {
  19         die('Die');
  20 } catch {
  21         ok($_ =~ /Die/, 'Error text as expected');
  22         pass('Into catch block as we died in try');
  23 } finally {
  24         pass('Moved into finally from catch');
  25 };
  26
  27 try {
  28         die('Die');
  29 } finally {
  30         pass('Moved into finally from catch');
  31 } catch {
  32         ok($_ =~ /Die/, 'Error text as expected');
  33 };
  34
  35 try {
  36         die('Die');
  37 } finally {
  38         pass('Moved into finally block when try throws an exception and we have no catch block');
  39 };
  40
  41 try {
  42   die('Die');
  43 } finally {
  44   pass('First finally clause run');
  45 } finally {
  46   pass('Second finally clause run');
  47 };
  48
  49 try {
  50   # do not die
  51 } finally {
  52   if (@_) {
  53     fail("errors reported: @_");
  54   } else {
  55     pass("no error reported") ;
  56   }
  57 };
  58
  59 try {
  60   die("Die\n");
  61 } finally {
  62   is_deeply(\@_, [ "Die\n" ], "finally got passed the exception");
  63 };
  64
  65 try {
  66     try {
  67         die "foo";
  68     }
  69     catch {
  70         die "bar";
  71     }
  72     finally {
  73         pass("finally called");
  74     };
  75 };
  76
  77 $_ = "foo";
  78 try {
  79     is($_, "foo", "not localized in try");
  80 }
  81 catch {
  82 }
  83 finally {
  84     is(scalar(@_), 0, "nothing in \@_ (finally)");
  85     is($_, "foo", "\$_ not localized (finally)");
  86 };
  87 is($_, "foo", "same afterwards");
  88
  89 $_ = "foo";
  90 try {
  91     is($_, "foo", "not localized in try");
  92     die "bar\n";
  93 }
  94 catch {
  95     is($_[0], "bar\n", "error in \@_ (catch)");
  96     is($_, "bar\n", "error in \$_ (catch)");
  97 }
  98 finally {
  99     is(scalar(@_), 1, "error in \@_ (finally)");
 100     is($_[0], "bar\n", "error in \@_ (finally)");
 101     is($_, "foo", "\$_ not localized (finally)");
 102 };
 103 is($_, "foo", "same afterwards");
 104 1;