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

#!/usr/bin/perl

BEGIN { print "1..3\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";


# $Id: smoke.t,v 1.4 2004/08/18 12:03:42 xmath Exp $
# vim: ft=perl
Commit	Line	Data
16c23894	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