Add failing test for deparsing (re)named subs

[p5sagit/Sub-Name.git] / t / smoke.t

#!/usr/bin/perl

BEGIN { print "1..5\n"; }


use Sub::Name;

my $x = subname foo => sub { (caller 0)[3] };
print $x->() eq "main::foo" ? "ok 1\n" : "not ok 1\n";


package Blork;

use Sub::Name;

subname " Bar!", $x;
print $x->() eq "Blork:: Bar!" ? "ok 2\n" : "not ok 2\n";

subname "Foo::Bar::Baz", $x;
print $x->() eq "Foo::Bar::Baz" ? "ok 3\n" : "not ok 3\n";

subname "subname (dynamic $_)", \&subname  for 1 .. 3;

for (4 .. 5) {
	subname "Dynamic $_", $x;
	print $x->() eq "Blork::Dynamic $_" ? "ok $_\n" : "not ok $_\n";
}

# vim: ft=perl