[p5sagit/Try-Tiny.git] / t / named.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

BEGIN {
	plan skip_all => "Sub::Name required"
		unless eval { require Sub::Name; 1 };
	plan tests => 4;
}

use Try::Tiny;

my $name;
try {
	$name = (caller(0))[3];
};
is $name, "main::try {...} ", "try name"; # note extra space

try {
	die "Boom";
} catch {
	$name = (caller(0))[3];
};
is $name, "main::catch {...} ", "catch name"; # note extra space

try {
	die "Boom";
} catch {
	# noop
} finally {
	$name = (caller(0))[3];
};
is $name, "main::finally {...} ", "finally name"; # note extra space
Commit	Line	Data
d5cd0736	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	BEGIN {
	9	plan skip_all => "Sub::Name required"
	10	unless eval { require Sub::Name; 1 };
ada8284b	11	plan tests => 4;
d5cd0736	12	}
d5cd0736	13
027bdf22	14	use Try::Tiny;
d5cd0736	15
	16	my $name;
	17	try {
	18	$name = (caller(0))[3];
	19	};
faa955ce	20	is $name, "main::try {...} ", "try name"; # note extra space
d5cd0736	21
	22	try {
	23	die "Boom";
	24	} catch {
94bd78e6	25	$name = (caller(0))[3];
d5cd0736	26	};
	27	is $name, "main::catch {...} ", "catch name"; # note extra space
	28
ada8284b	29	try {
	30	die "Boom";
	31	} catch {
	32	# noop
	33	} finally {
94bd78e6	34	$name = (caller(0))[3];
ada8284b	35	};
	36	is $name, "main::finally {...} ", "finally name"; # note extra space
	37