t/smoke.t

   1 #!/usr/bin/perl
   2
   3 BEGIN { print "1..3\n"; }
   4
   5
   6 use Sub::Name;
   7
   8 my $x = subname foo => sub { (caller 0)[3] };
   9 print $x->() eq "main::foo" ? "ok 1\n" : "not ok 1\n";
  10
  11
  12 package Blork;
  13
  14 use Sub::Name;
  15
  16 subname " Bar!", $x;
  17 print $x->() eq "Blork:: Bar!" ? "ok 2\n" : "not ok 2\n";
  18
  19 subname "Foo::Bar::Baz", $x;
  20 print $x->() eq "Foo::Bar::Baz" ? "ok 3\n" : "not ok 3\n";
  21
  22
  23 # $Id: smoke.t,v 1.4 2004/08/18 12:03:42 xmath Exp $
  24 # vim: ft=perl