[p5sagit/p5-mst-13.2.git] / t / op / universal.t

#!./perl
#
# check UNIVERSAL
#

print "1..4\n";

# explicit bless

$a = {};
bless $a, "Bob";
if ($a->class eq "Bob") {print "ok 1\n";} else {print "not ok 1\n";}

# bless through a package

package Fred;

$b = {};
bless $b;
if ($b->class eq "Fred") {print "ok 2\n";} else {print "not ok 2\n";}

package main;

# same as test 1 and 2, but with other object syntax

# explicit bless

$a = {};
bless $a, "Bob";
if (class $a eq "Bob") {print "ok 3\n";} else {print "not ok 3\n";}

# bless through a package

package Fred;

$b = {};
bless $b;
if (class $b eq "Fred") {print "ok 4\n";} else {print "not ok 4\n";}
Commit	Line	Data
44a8e56a	1	#!./perl
	2	#
	3	# check UNIVERSAL
	4	#
	5
	6	print "1..4\n";
	7
	8	# explicit bless
	9
	10	$a = {};
	11	bless $a, "Bob";
	12	if ($a->class eq "Bob") {print "ok 1\n";} else {print "not ok 1\n";}
	13
	14	# bless through a package
	15
	16	package Fred;
	17
	18	$b = {};
	19	bless $b;
	20	if ($b->class eq "Fred") {print "ok 2\n";} else {print "not ok 2\n";}
	21
	22	package main;
	23
	24	# same as test 1 and 2, but with other object syntax
	25
	26	# explicit bless
	27
	28	$a = {};
	29	bless $a, "Bob";
	30	if (class $a eq "Bob") {print "ok 3\n";} else {print "not ok 3\n";}
	31
	32	# bless through a package
	33
	34	package Fred;
	35
	36	$b = {};
	37	bless $b;
	38	if (class $b eq "Fred") {print "ok 4\n";} else {print "not ok 4\n";}