Project: Pugs

Revision: 22157

Author: moritz

Date: 04 Sep 2008 19:25:47

• /t/spec/S02-builtin_data_types/array_ref.t

  ......	@@ -9,7 +9,6 @@
  9	9	my $array_ref1 = ("foo", "bar", "baz");
  10	10	isa_ok($array_ref1, Array);
  11	11
  12		#?rakudo skip 'flatten and slices are not working'
  13	12	is(+$array_ref1, 3, 'the array_ref1 has 3 elements');
  14	13	is($array_ref1[0], 'foo', 'got the right value at array_ref1 index 0');
  15	14	is($array_ref1[1], 'bar', 'got the right value at array_ref1 index 1');
  ......	@@ -23,7 +22,6 @@
  23	22	my $array_ref2 = [ "test", 1, undef ];
  24	23	isa_ok($array_ref2, Array);
  25	24
  26		#?rakudo skip 'flatten and slices are not working'
  27	25	is(+$array_ref2, 3, 'the array_ref2 has 3 elements');
  28	26	is($array_ref2[0], 'test', 'got the right value at array_ref2 index 0');
  29	27	is($array_ref2[1], 1, 'got the right value at array_ref2 index 1');

• /t/spec/S04-statement-modifiers/given.t

  ......	@@ -14,7 +14,6 @@
  14	14	}
  15	15
  16	16	# test the ``given'' statement modifier
  17		#?rakudo skip 'rakudo dies on assignment to uninitialized variable when modifier given used'
  18	17	{
  19	18	my $a;
  20	19	$a = $_ given 2 * 3;