#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ proc / self / root / usr / share / doc / perl-Try-Tiny / t /

216.73.216.122

Home

File basic.t

use strict;
use warnings;

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

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

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

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

ok($ok, $desc );

diag "error: $@" unless $ok;
}

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 );
  }
}

my $prev;

lives_ok {
  try {
    die "foo";
  };
} "basic try";

throws_ok {
  try {
    die "foo";
  } catch { die $_ };
} qr/foo/, "rethrow";

{
  local $@ = "magic";
  is( try { 42 }, 42, "try block evaluated" );
  is( $@, "magic", '$@ untouched' );
}

{
  local $@ = "magic";
  is( try { die "foo" }, undef, "try block died" );
  is( $@, "magic", '$@ untouched' );
}

{
  local $@ = "magic";
  like( (try { die "foo" } catch { $_ }), qr/foo/, "catch block evaluated" );
  is( $@, "magic", '$@ untouched' );
}

is( scalar(try { "foo", "bar", "gorch" }), "gorch", "scalar context try" );
is_deeply( [ try {qw(foo bar gorch)} ], [qw(foo bar gorch)], "list context try" );

is( scalar(try { die } catch { "foo", "bar", "gorch" }), "gorch", "scalar context catch" );
is_deeply( [ try { die } catch {qw(foo bar gorch)} ], [qw(foo bar gorch)], "list context catch" );

{
  my ($sub) = catch { my $a = $_; };
  is(ref($sub), 'Try::Tiny::Catch', 'Checking catch subroutine scalar reference is correctly blessed');
}

{
  my ($sub) = finally { my $a = $_; };
  is(ref($sub), 'Try::Tiny::Finally', 'Checking finally subroutine scalar reference is correctly blessed');
}

lives_ok {
  try {
    die "foo";
  } catch {
    my $err = shift;

try {
      like $err, qr/foo/;
    } catch {
      fail("shouldn't happen");
    };

pass "got here";
  }
} "try in try catch block";

throws_ok {
  try {
    die "foo";
  } catch {
    my $err = shift;

try { } catch { };

die "rethrowing $err";
  }
} qr/rethrowing foo/, "rethrow with try in catch block";

sub Evil::DESTROY {
  eval { "oh noes" };
}

sub Evil::new { bless { }, $_[0] }

{
  local $@ = "magic";
  local $_ = "other magic";

try {
    my $object = Evil->new;
    die "foo";
  } catch {
    pass("catch invoked");
    local $TODO = "i don't think we can ever make this work sanely, maybe with SIG{__DIE__}" if "$]" < 5.014;
    like($_, qr/foo/);
  };

is( $@, "magic", '$@ untouched' );
  is( $_, "other magic", '$_ untouched' );
}

{
  my ( $caught, $prev );

{
    local $@;

eval { die "bar\n" };

is( $@, "bar\n", 'previous value of $@' );

try {
      die {
        prev => $@,
      }
    } catch {
      $caught = $_;
      $prev = $@;
    }
  }

is_deeply( $caught, { prev => "bar\n" }, 'previous value of $@ available for capture' );
  is( $prev, "bar\n", 'previous value of $@ also available in catch block' );
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-03-13 04:59:22
..	DIR	-	drwxr-xr-x	2024-03-13 04:59:22
lib	DIR	-	drwxr-xr-x	2024-03-13 04:59:22
00-report-prereqs.dd	text/plain	10.07 KB	-rw-r--r--	2017-12-21 07:23:09
00-report-prereqs.t	text/plain	5.83 KB	-rw-r--r--	2017-12-21 07:23:09
basic.t	text/plain	3 KB	-rw-r--r--	2017-12-21 07:23:09
context.t	text/plain	1.17 KB	-rw-r--r--	2017-12-21 07:23:09
erroneous_usage.t	text/plain	1.5 KB	-rw-r--r--	2017-12-21 07:23:09
finally.t	text/plain	2.5 KB	-rw-r--r--	2017-12-21 07:23:09
given_when.t	text/plain	694 B	-rw-r--r--	2017-12-21 07:23:09
global_destruction_forked.t	text/plain	953 B	-rw-r--r--	2017-12-21 07:23:09
global_destruction_load.t	text/plain	550 B	-rw-r--r--	2017-12-21 07:23:09
named.t	text/plain	685 B	-rw-r--r--	2017-12-21 07:23:09
when.t	text/plain	669 B	-rw-r--r--	2017-12-21 07:23:09
zzz-check-breaks.t	text/plain	1.06 KB	-rw-r--r--	2017-12-21 07:23:09

~ ACUPOFTEA - mail.ontime-ae.com