t/quotes-bug.t

   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;