Project: Pugs

Revision: 22153

Author: moritz

Date: 04 Sep 2008 10:30:19

• /t/spec/S06-advanced_subroutine_features/return.t

  ......	@@ -215,6 +215,7 @@
  215	215	}
  216	216
  217	217	my $foo_hash_ref_return = foo_hash_ref();
  	218	#?rakudo 5 todo 'return a hash'
  218	219	isa_ok($foo_hash_ref_return, Hash);
  219	220	is(+$foo_hash_ref_return.keys, 3, 'got the right number of return value');
  220	221	is($foo_hash_ref_return<foo>, 1, 'got the right return value');
  ......	@@ -223,6 +224,7 @@
  223	224
  224	225	lives_ok({ $keys = +(foo_hash_ref().keys) },
  225	226	"can call method on return value (hashref)");
  	227	#?rakudo todo 'deref hash refs returned from subs'
  226	228	is($keys, 3, "got right result");
  227	229	lives_ok({ foo_hash_ref()<foo> },
  228	230	"can hash de-ref return value (hashref)");