[p5sagit/Sub-Name.git] / t / quotes-bug.t

use strict;
use warnings;

use Test::More 0.88;
use Sub::Name;

my $sub = sub { (caller(0))[3] };
subname "foo::quz'bar::baz", $sub;

# in 0.16, this was foo::quz::ba::baz
is(
    $sub->(),
    "foo::quz::bar::baz",
    'correctly parsed single quote from name where the last separator is ::',
);

done_testing;
Commit	Line	Data
4cd62f77	1	use strict;
	2	use warnings;
	3
	4	use Test::More 0.88;
	5	use Sub::Name;
	6
	7	my $sub = sub { (caller(0))[3] };
	8	subname "foo::quz'bar::baz", $sub;
	9
	10	# in 0.16, this was foo::quz::ba::baz
	11	is(
	12	$sub->(),
	13	"foo::quz::bar::baz",
	14	'correctly parsed single quote from name where the last separator is ::',
	15	);
	16
	17	done_testing;