Context Navigation

Changeset 21993

Timestamp:

08/21/08 11:38:11 (3 months ago)

Author:

moritz

Message:

[t/spec] some more try { ... } rewrites in S12-attributes/delegation.t

Files:

r21828	r21993
55	55	ok ($a.backend = Backend1.new()), "setting a handler object (3)";
56	56	ok (!($a ~~ Backend1)), "object wasn't isa()ed (3)";
57		is try{ $a.hi }, 42, "method was successfully handled by backend object (3)", :todo<feature>;
	57	#?pugs todo 'feature'
	58	is try({ $a.hi }), 42, "method was successfully handled by backend object (3)";
58	59	}
59	60	}
…	…
105	106	my $a;
106	107	ok ($a = MyArray.new(elems => [1..5])), "basic instantiation worked";
107		is try{ $a.concat }, "12345", "attribute delegation worked", :todo<feature>;
108		is try{ $a.bytes }, 5, "return delegation worked", :todo<feature>;
109		is try{ $a.chars }, 5, "return delegation worked", :todo<feature>;
110		is try{ $a.codes }, 5, "return delegation worked", :todo<feature>;
111		is try{ $a.graphs }, 5, "return delegation worked", :todo<feature>;
	108	#?pugs 5 eval 'feature'
	109	is $a.concat , "12345", "attribute delegation worked";
	110	is $a.bytes , 5, "return delegation worked";
	111	is $a.chars , 5, "return delegation worked";
	112	is $a.codes , 5, "return delegation worked";
	113	is $a.graphs , 5, "return delegation worked";
112	114	}
113	115	}