t/smoke.t

   1 BEGIN { $^P |= 0x210 }
   2
   3 use Test::More 0.88;
   4 use Sub::Name;
   5
   6 my $x = subname foo => sub { (caller 0)[3] };
   7 my $line = __LINE__ - 1;
   8 my $file = __FILE__;
   9 my $anon = $DB::sub{"main::__ANON__[${file}:${line}]"};
  10
  11 is($x->(), "main::foo");
  12
  13 package Blork;
  14
  15 use Sub::Name;
  16
  17 subname " Bar!", $x;
  18 ::is($x->(), "Blork:: Bar!");
  19
  20 subname "Foo::Bar::Baz", $x;
  21 ::is($x->(), "Foo::Bar::Baz");
  22
  23 subname "subname (dynamic $_)", \&subname  for 1 .. 3;
  24
  25 for (4 .. 5) {
  26         subname "Dynamic $_", $x;
  27         ::is($x->(), "Blork::Dynamic $_");
  28 }
  29
  30 ::is($DB::sub{"main::foo"}, $anon);
  31
  32 for (4 .. 5) {
  33         ::is($DB::sub{"Blork::Dynamic $_"}, $anon);
  34 }
  35
  36 for ("Blork:: Bar!", "Foo::Bar::Baz") {
  37         ::is($DB::sub{$_}, $anon);
  38 }
  39
  40 ::done_testing;
  41 # vim: ft=perl