Permalink
Browse files

niecza fudging

  • Loading branch information...
coke committed Sep 28, 2011
1 parent 278afd4 commit f3f35acafe619017d36d215dd6f50af40ad8bca7
@@ -30,6 +30,7 @@ is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "LINE TABULATION");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FORM FEED (FF)");
@@ -42,78 +43,97 @@ is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my…@x… =…<a…b…c>;…sub…y…(@z)…{…@z[1]…};…y(@x)
'), "b", "NEXT LINE (NEL)");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "NO-BREAK SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "OGHAM SPACE MARK");
+#?niecza skip 'Malformed my'
is(eval('
my᠎@x᠎=᠎<a᠎b᠎c>;᠎sub᠎y᠎(@z)᠎{᠎@z[1]᠎};᠎y(@x)
'), "b", "MONGOLIAN VOWEL SEPARATOR");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EN QUAD");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EM QUAD");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EN SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EM SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "THREE-PER-EM SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FOUR-PER-EM SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "SIX-PER-EM SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FIGURE SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "PUNCTUATION SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "THIN SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "HAIR SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my
@x
=
<a
b
c>;
sub
y
(@z)
{
@z[1]
};
y(@x)
'), "b", "LINE SEPARATOR");
+#?niecza skip 'Malformed my'
is(eval('
my
@x
=
<a
b
c>;
sub
y
(@z)
{
@z[1]
};
y(@x)
'), "b", "PARAGRAPH SEPARATOR");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "NARROW NO-BREAK SPACE");
+#?niecza skip 'Malformed my'
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "MEDIUM MATHEMATICAL SPACE");
@@ -132,32 +152,58 @@ multi foo($x) { $x }
$_ = 'b';
# L<S02/"Unicode Semantics"/"Unicode horizontal whitespace">
+#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
is(eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
+#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
is(eval('foo\
.lc'), 'a', 'long dot with LINE FEED (LF)');
+#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
is(eval('foo\ .lc'), 'a', 'long dot with LINE TABULATION');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with FORM FEED (FF)');
+#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
is(eval('foo\.lc'), 'a', 'long dot with CARRIAGE RETURN (CR)');
+#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
is(eval('foo\ .lc'), 'a', 'long dot with SPACE');
+#?niecza skip 'Confused'
is(eval('foo\….lc'), 'a', 'long dot with NEXT LINE (NEL)');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with NO-BREAK SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with OGHAM SPACE MARK');
+#?niecza skip 'Confused'
is(eval('foo\᠎.lc'), 'a', 'long dot with MONGOLIAN VOWEL SEPARATOR');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with EN QUAD');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with EM QUAD');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with EN SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with EM SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with THREE-PER-EM SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with FOUR-PER-EM SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with SIX-PER-EM SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with FIGURE SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with PUNCTUATION SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with THIN SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with HAIR SPACE');
+#?niecza skip 'Confused'
is(eval('foo\
.lc'), 'a', 'long dot with LINE SEPARATOR');
+#?niecza skip 'Confused'
is(eval('foo\
.lc'), 'a', 'long dot with PARAGRAPH SEPARATOR');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with NARROW NO-BREAK SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with MEDIUM MATHEMATICAL SPACE');
+#?niecza skip 'Confused'
is(eval('foo\ .lc'), 'a', 'long dot with IDEOGRAPHIC SPACE');
# vim: ft=perl6
View
@@ -31,8 +31,10 @@ plan 57;
my @array = <a b c>;
my $ref = \@array;
+ #?niecza skip 'TODO'
is ~$ref, "a b c", '$arrayref = \@array works (1)';
# Explicit referentiation of arrays in assignment
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +$ref, 1, '$arrayref = \@array works (2)';
}
@@ -71,8 +73,10 @@ plan 57;
my @other;
@other[1] = \@array;
+ #?niecza skip 'TODO'
is ~@other, " a b c", '@other[$idx] = \@array works (1)';
is +@other, 2, '@other[$idx] = \@array works (2)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +@other[1], 1, '@other[$idx] = \@array works (3)';
}
@@ -93,6 +97,7 @@ plan 57;
@other[1] = \%hash;
is +@other, 2, '@other[$idx] = \%hash works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +@other[1], 1, '@other[$idx] = \%hash works (2)';
}
@@ -113,6 +118,7 @@ plan 57;
%other<a> = \@array;
is +%other, 1, '%other[$key] = \@array works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +%other<a>, 1, '%other[$key] = \@array works (2)';
}
@@ -123,6 +129,7 @@ plan 57;
%other<a> = %hash;
is +%other, 1, '%other[$key] = %hash works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +%other<a>, 3, '%other[$key] = %hash works (2)';
}
@@ -133,6 +140,7 @@ plan 57;
%other<a> = \%hash;
is +%other, 1, '%other[$key] = \%hash works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +%other<a>, 1, '%other[$key] = \%hash works (2)';
}
@@ -150,7 +158,9 @@ plan 57;
my @array = <a b c>;
my $pair = (key => \@array);
+ #?niecza skip 'TODO'
is ~$pair.value, "a b c", '(key => \@array) works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +$pair.value, 1, '(key => \@array) works (2)';
}
@@ -186,7 +196,9 @@ plan 57;
my @array = <a b c>;
my $pair = (:key(\@array));
+ #?niecza skip 'TODO'
is ~$pair.value, "a b c", '(:key(\@array)) works (1)';
+ #?niecza skip 'Cannot use value like Capture as a Number'
is +$pair.value, 1, '(:key(\@array)) works (2)';
}
@@ -6,11 +6,15 @@ plan 8;
# L<S02/Names and Variables/special variables of Perl 5 are going away>
+#?niecza skip 'TODO'
eval_dies_ok 'my $!', '$! can not be declared again';
+#?niecza skip 'TODO'
eval_dies_ok 'my $/', 'nor can $/';
#?rakudo 2 todo 'proto on variable declarations'
+#?niecza skip 'TODO'
eval_lives_ok 'my proto $!', '$! can be declared again if proto is used though';
+#?niecza skip 'TODO'
eval_lives_ok 'my proto $/', 'as can $/';
eval_dies_ok 'my $f!ao = "beh";', "normal varnames can't have ! in their name";
@@ -32,6 +32,7 @@ plan 21;
"creating an array element should automatically extend the array (1)";
# And, of course, @array.exists(20) has to be true -- we've just assigned
# @array[20].
+ #?niecza skip 'Unable to resolve method exists in class Array'
ok @array.exists(20),
"creating an array element should automatically extend the array (2)";
}
@@ -57,6 +58,7 @@ plan 21;
'defined @array[$negative_index_out_of_bounds] should not have altered @array';
}
+#?niecza skip 'Unable to resolve method exists in class Array'
{
my @array = <a b c d>;
my $exists = @array.exists(100);
@@ -66,7 +68,8 @@ plan 21;
is +@array, 4,
'@array.exists($index_out_of_bounds) should not have altered @array';
}
-
+
+#?niecza skip 'Unable to resolve method exists in class Array'
{
my @array = <a b c d>;
my $exists = @array.exists(-5);
@@ -99,6 +102,7 @@ plan 21;
my $n = + @a.grep({ $_ eq 'b'});
is $n, 1, 'grep on extended array';
@a[1] = 'c'; # cmp doesn't handle Mu cmp Mu yet
+ #?niecza skip 'Use of uninitialized value in string context'
is @a.min(), 'b', 'min on list with undefined el ignores it';
}
@@ -38,6 +38,7 @@ plan 18;
#?pugs todo 'non-flattening hash refs'
#?rakudo todo 'non-flattening hash refs'
+ #?niecza skip 'TODO'
is +%hash, 0, '%hash = ($hashref,) does not flatten the hashref';
}
@@ -47,6 +48,7 @@ plan 18;
#?rakudo todo 'non-flattening hash refs'
#?pugs todo 'non-flattening hash refs'
+ #?niecza skip 'TODO'
is +%hash, 0, '%hash = ($hashref) does not flatten the hashref';
}
@@ -56,6 +58,7 @@ plan 18;
#?rakudo todo 'non-flattening hash refs'
#?pugs todo 'non-flattening hash refs'
+ #?niecza skip 'TODO'
is +%hash, 0, '%hash = $hashref does not flatten the hashref';
}
View
@@ -69,17 +69,22 @@ plan 31;
# L<S06/Anonymous hashes vs blocks/So you may use sub or hash or pair to disambiguate:>
{
my $hash_a = { a => 1, b => 2 };
+ #?niecza skip 'TODO'
isa_ok $hash_a, "Hash";
my $hash_b = { a => 1, "b", 2 };
+ #?niecza skip 'TODO'
isa_ok $hash_b, "Hash";
my $hash_c = hash('a', 1, "b", 2);
+ #?niecza skip 'TODO'
isa_ok $hash_c, "Hash";
my $hash_d = hash 'a', 1, "b", 2;
+ #?niecza skip 'TODO'
isa_ok $hash_d, "Hash";
}
# infinity HoHoHoH...
#?rakudo skip 'isa Hash'
+#?niecza skip 'Cannot use hash access on an object of type Capture'
{
my %hash = (val => 42);
%hash<ref> = \%hash;
@@ -20,6 +20,7 @@ Some deeper tests were already added.
=end description
# UNSPECCED
+#?niecza skip 'Cannot use hash access on an object of type Pair'
{ # Array of Pairs
my @array;
isa_ok(@array, Array);
@@ -202,9 +203,12 @@ Some deeper tests were already added.
isa_ok(@array[1]<two>[0], Hash);
#?pugs 3 todo 'bug'
#?rakudo todo 'isa hash'
+ #?niecza skip 'TODO'
isa_ok(@array[1]<two>[0]<f>, Hash);
#?rakudo 2 todo 'unknown'
+ #?niecza skip 'TODO'
is(+@array[1]<two>[0], 2, "two keys at level 4");
+ #?niecza skip 'Use of uninitialized value in string context'
is(@array[1]<two>[0]<f><other>, 5, "more keys at level 4");
}
View
@@ -29,6 +29,7 @@ is ([+] 1, 2, 3 X** 2, 4), (1+1 + 4+16 + 9+81), '[+] and X** work';
# L<S03/List infix precedence/and a list of arrays in>
#?rakudo skip ".slice for iterators NYI"
+#?niecza skip 'Unable to resolve method slice in class List'
{
my @result = gather for (1..3 X 'A'..'B').slice -> $na {
take $na.join(':');
@@ -68,6 +69,7 @@ ok eval('<a b> X, <c d>'), 'cross metaoperator parses';
# L<S03/Cross operators/any existing non-mutating infix operator>
is (1,2 X* 3,4), (3,4,6,8), 'cross-product works';
+#?niecza skip 'TODO'
is (1,2 Xcmp 3,2,0), (-1, -1, 1, -1, 0, 1), 'Xcmp works';
# L<S03/Cross operators/underlying operator non-associating>
View
@@ -53,8 +53,9 @@ is 4 Rcmp 5, 5 cmp 4, "4 Rcmp 5";
isa_ok 4 Rcmp 5, (5 cmp 4).WHAT, "4 Rcmp 5 is the same type as 5 cmp 4";
# precedence tests!
-
+#?niecza skip 'TODO'
is 3 R/ 9 + 5, 8, 'R/ gets precedence of /';
+#?niecza skip 'TODO'
is 4 R- 5 R/ 10, -2, "Rop gets the precedence of op";
is (9 R... 1, 3), (1, 3, 5, 7, 9), "Rop gets list_infix precedence correctly";
Oops, something went wrong.

0 comments on commit f3f35ac

Please sign in to comment.