t/quotes-bug.t

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