Browse files

(un)fudge tests

  • Loading branch information...
1 parent b869db3 commit fc2707f183244ffc2fc55b66bfbb8de6d8b15668 kboga committed Aug 6, 2011
View
8 S02-builtin_data_types/mixed_multi_dimensional.t
@@ -31,14 +31,14 @@ Some deeper tests were already added.
is(+@array, 1, 'the array has one value in it');
isa_ok(@array[0], Pair);
- #?rakudo skip "get_pmc_keyed() not implemented in class 'Perl6Pair'"
+ #?rakudo skip "Method 'at_key' not found for invocant of class 'Pair'"
is(@array[0]<key>, 'value', 'got the right pair value');
@array[1] = ('key1' => 'value1'); # assign it inline
is(+@array, 2, 'the array has two values in it');
isa_ok(@array[1], Pair);
- #?rakudo skip "get_pmc_keyed() not implemented in class 'Perl6Pair'"
+ #?rakudo skip "Method 'at_key' not found for invocant of class 'Pair'"
is(@array[1]<key1>, 'value1', 'got the right pair value');
}
@@ -162,9 +162,7 @@ Some deeper tests were already added.
my $a0 = [ \%h ,'extra' ];
my $a1 = [ \%h ];
my $a2 = [ $hr ];
- #?rakudo todo 'nom regression'
is($a0.elems,2,'hash references should not get decomposed');
- #?rakudo todo 'nom regression'
is($a1.elems,1,'hash references should not get decomposed');
is($a2.elems,1,'hash references should not get decomposed');
}
@@ -174,7 +172,7 @@ Some deeper tests were already added.
isa_ok($h<a>.WHAT, Array, "array nested in hashref in one declaration");
}
-#?rakudo 18 skip 'nom regression'
+#?rakudo 18 skip "nom regression: 'Cannot assign to a non-container'"
{ # structures deeper than 2 levels
my @array;
@array[0][0][0][0][0] = 5;
View
1 S02-literals/autoref.t
@@ -204,7 +204,6 @@ plan 57;
my %hash = (a => 1, b => 2, c => 3);
my $pair = (:key(\%hash));
- #?rakudo todo 'backslashes, captures'
is ~$pair.value.[0].values.sort, "1 2 3", '(:key(\%hash)) works (1)';
is +$pair.value.[0].values, 3, '(:key(\%hash)) works (2)';
}
View
1 S02-names_and_variables/list_array_perl.t
@@ -51,6 +51,7 @@ my @tests = (
".perl worked correctly on a recursive arrayref";
}
+#?rakudo skip "nom regression: 'Could not find sub &METAOP_HYPER_PREFIX'"
{
# test bug in .perl on result of hyperoperator
# first the trivial case without hyperop
View
8 S03-junctions/misc.t
@@ -10,9 +10,11 @@ Misc. Junction tests
=end pod
-#?rakudo 2 skip 'Null PMC access in get_integer() (RT #64184)'
-isa_ok any(6,7), Junction;
-is any(6,7).WHAT.gist, Junction.gist, 'junction.WHAT works';
+# RT #64184
+{
+ isa_ok any(6,7), Junction;
+ is any(6,7).WHAT.gist, Junction.gist, 'junction.WHAT works';
+}
# avoid auto-threading on ok()
#?DOES 1
View
2 S03-operators/context.t
@@ -33,7 +33,7 @@ use Test;
# L<S03/List prefix precedence/The item contextualizer>
# L<S02/Lists/To force a non-flattening item context>
-
+#?rakudo skip "nom regression: 'Could not find sub &item'"
{
my $a = 3;
my $b = 2;
View
3 S03-operators/misc.t
@@ -55,7 +55,6 @@ is("text " ~ "stitching", "text stitching", 'concatenation with ~ operator');
is(2 || 3, 2, "|| returns first true value");
ok(!(defined( 0 || Mu)), "|| returns last false value of list?");
-#?rakudo skip "state NYI"
{
(my @s)[0] //= 5;
is @s[0], 5, '(my @s)[0] //= something works';
@@ -89,13 +88,15 @@ ok(?((any(1..6) == one(1|2|3|4|5|6))), "any elements will match via junction");
}
# L<S03/Hyper operators/hyper operator distributes over them as lists>
+#?rakudo skip "nom regression: 'Could not find sub &METAOP_HYPER'"
{
my @rv;
@rv = (1,2,3,4) >>+<< (1,2,3,4);
is(~@rv, "2 4 6 8", 'hyper-add');
}
# L<S03/Traversing arrays in parallel/"but a short list may always be extended arbitrarily">
+#?rakudo todo "nom regression"
{
is (1, 2, * Z <a b c d>).join('|'),
'1|a|2|b|2|c|2|d',
View
35 S32-array/unshift.t
@@ -97,7 +97,7 @@ plan 55;
}
# now for the unshift() on an uninitialized array issue
-
+#?rakudo skip "nom regression: shift_pmc() not implemented in class 'Mu'"
{
my @unshift;
@@ -139,22 +139,23 @@ plan 55;
# RT #69548
{
- {
- my $x = 1;
- my @a = ();
- unshift @a, $x;
- ++$x;
-
- is @a[0], 1, 'New element created by unshift(@a, $x) isn\'t affected by changes to $x';
- }
- {
- my $x = 1;
- my @a = ();
- unshift @a, $x;
- ++@a[0];
-
- is $x, 1, '$x isn\'t affected by changes to new element created by unshift(@a, $x)';
- }
+ my $x = 1;
+ my @a = ();
+ unshift @a, $x;
+ ++$x;
+
+ is @a[0], 1, 'New element created by unshift(@a, $x) isn\'t affected by changes to $x';
+}
+
+# RT #69548
+#?rakudo skip "nom regression: Cannot assign to a readonly variable or a value"
+{
+ my $x = 1;
+ my @a = ();
+ unshift @a, $x;
+ ++@a[0];
+
+ is $x, 1, '$x isn\'t affected by changes to new element created by unshift(@a, $x)';
}
# vim: ft=perl6

0 comments on commit fc2707f

Please sign in to comment.