not sure why I added this - try without
[p5sagit/Sub-Name.git] / t / quotes-bug.t
CommitLineData
4cd62f77 1use strict;
2use warnings;
3
356a8ce3 4use Test::More tests => 1;
4cd62f77 5use Sub::Name;
6
7my $sub = sub { (caller(0))[3] };
8subname "foo::quz'bar::baz", $sub;
9
10# in 0.16, this was foo::quz::ba::baz
11is(
12 $sub->(),
13 "foo::quz::bar::baz",
14 'correctly parsed single quote from name where the last separator is ::',
15);