Permalink
Browse files

niecza autounfudge

  • Loading branch information...
1 parent 1cc6e47 commit 7becae6c95301217f1f49e5f1a0c15f9fdbadd0b @coke coke committed Apr 25, 2012
@@ -16,9 +16,7 @@ plan 12;
is ~@array, "a b c d",
"arrays whose elements don't contain whitespace stringify correctly (1)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array[]", "a b c d", "arrays whose elements don't contain whitespace stringify correctly (2)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array.[]", "a b c d", '@array.[] interpolates';
is "@array", "@array", '@array (without brackets) doesnt interpolate';
}
@@ -29,7 +27,6 @@ plan 12;
is ~@array, "a b c d e f g h",
"arrays with embedded array references stringify correctly (1)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array[]", "a b c d e f g h", "arrays with embedded array references stringify correctly (2)";
}
@@ -38,7 +35,6 @@ plan 12;
is ~@array, "a b c",
"array whose elements do contain whitespace stringify correctly (1-1)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array[]", "a b c", "array whose elements do contain whitespace stringify correctly (1-2)";
}
@@ -47,7 +43,6 @@ plan 12;
is ~@array, "a\t b c",
"array whose elements do contain whitespace stringify correctly (2-1)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array[]", "a\t b c", "array whose elements do contain whitespace stringify correctly (2-2)";
}
@@ -56,7 +51,6 @@ plan 12;
is ~@array, "a\t b c",
"array whose elements do contain whitespace stringify correctly (3-1)";
- #?niecza skip 'No value for parameter $index in CORE postcircumfix:<[ ]>'
is "@array[]", "a\t b c", "array whose elements do contain whitespace stringify correctly (3-2)";
}
@@ -19,7 +19,7 @@ plan 10;
{
# L<S02/Arrays/In order to interpolate an entire hash>
my %hash = { b => 2 };
- #?niecza 2 skip 'zen hash slice'
+ #?niecza 2 todo 'zen hash slice'
is "%hash{}", "b\t2", 'interpolation with curly braces';
is "%hash<>", "b\t2", 'interpolation with angle brackets';
is "%hash", '%hash', 'no interpolation';
@@ -21,10 +21,9 @@ sub func_w_args($x,$y) { return "[$x][$y]" }
# Double quotes
is("Hello $world", 'Hello World', 'double quoted string interpolation works');
-#?niecza skip 'No value for parameter \$index in postcircumfix:<[ ]>'
is("@list[]\ 3 4", '1 2 3 4', 'double quoted list interpolation works');
is("@list 3 4", '@list 3 4', 'array without empty square brackets does not interpolate');
-#?niecza skip 'No value for parameter \$index in postcircumfix:<{ }>'
+#?niecza todo 'No value for parameter \$index in postcircumfix:<{ }>'
is("%hash{}", "1\t2", 'hash interpolation works');
is("%hash", '%hash', 'hash interpolation does not work if not followed by {}');
#?niecza skip 'Action method escape:sym<&> not yet implemented'
@@ -64,7 +63,6 @@ is('$world @list[] %hash{} &func()', '$world @list[] %hash{} &func()', 'single q
# Corner-cases
is("Hello $world!", "Hello World!", "! is not a part of var names");
sub list_count (*@args) { +@args }
-#?niecza skip 'No value for parameter \$index in postcircumfix:<[ ]>'
is(list_count("@list[]"), 1, 'quoted interpolation gets string context');
#?niecza todo 'apparently curly brace delimiters DO interfere with closure interpolation'
is(qq{a{chr 98}c}, 'abc', "curly brace delimiters don't interfere with closure interpolation");
@@ -77,11 +75,9 @@ is(Q"abc\\d\\'\/", Q"abc\\d\\'\/", "raw quotation works");
is(q"abc\\d\"\'\/", Q|abc\d"\'\/|, "single quotation works"); #"
is(qq"abc\\d\"\'\/", Q|abc\d"'/|, "double quotation works"); #"
#?rakudo 3 skip 'qa qb and array/hash interpolation'
-#?niecza skip 'No value for parameter \$index in postcircumfix:<[ ]>'
#?pugs skip 'parsefail'
is(qa"$world @list[] %hash{}", Q"$world 1 2 %hash{}", "only interpolate array");
is(qb"$world \\\"\n\t", "\$world \\\"\n\t", "only interpolate backslash");
-#?niecza skip 'No value for parameter \$index in postcircumfix:<[ ]>'
is('$world \qq[@list[]] %hash{}', '$world 1 2 %hash{}', "interpolate quoting constructs in ''");
is(" \c[111] \c[107] ", ' o k ', "\\c[] respects whitespaces around it");
View
@@ -443,37 +443,34 @@ Hello, World
# q:x
#?rakudo skip 'q:x'
-#?niecza skip 'q:x'
{
my $result = %*VM.perl ~~ /MSWIN32/ ?? "hello\r\n" !! "hello\n";
is q:x/echo hello/, $result, "Testing for q:x operator.";
}
# utf8
#?rakudo skip 'q:x'
-#?niecza skip 'q:x'
{
# 一 means "One" in Chinese.
is q:x/echo 一/, "\n", "Testing for q:x operator. (utf8)";
}
#?rakudo skip 'qq:x'
-#?niecza skip ':x'
{
my $world = 'world';
is qq:x/echo hello $world/, "hello world\n", 'Testing qq:x operator';
}
#?rakudo skip 'q:x assigned to array'
-#?niecza skip ':x'
+#?niecza todo ':x'
#?pugs todo
{
my @two_lines = q:x/echo hello ; echo world/;
is @two_lines, ("hello\n", "world\n"), 'testing q:x assigned to array';
}
#?rakudo skip 'q:x assigned to array'
-#?niecza skip ':x'
+#?niecza todo ':x'
#?pugs todo
{
my $hello = 'howdy';
@@ -517,7 +514,6 @@ Hello, World
# q:a
#?rakudo skip 'quoting adverbs'
-#?niecza skip 'zen slices'
{
my @t = qw/a b c/;
my $s = q:a /@t[]/;
@@ -538,7 +534,6 @@ Hello, World
# multiple quoting modes
#?rakudo skip 'quoting adverbs'
-#?niecza skip 'zen slices'
{
my $s = 'string';
my @a = <arr1 arr2>;
View
@@ -104,7 +104,6 @@ for %*ENV.kv -> $k,$v {
my $child_v = %child_env{$k} // "";
if $child_v !~~ $v {
if (! $err) {
- #?niecza todo 'Environment gets propagated to child.'
flunk("Environment gets propagated to child.");
$err++;
};
@@ -5,7 +5,7 @@ use Test;
plan 36;
# L<S02/Names/"The following pseudo-package names are reserved">
-#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
+#?niecza todo 'System.NullReferenceException: Object reference not set to an instance of an object'
{
eval_dies_ok 'module MY;', 'MY is an out of scope name';
eval_dies_ok 'module OUR;', 'OUR is an out of scope name';
View
@@ -259,7 +259,6 @@ my @array2 = ("test", 1, Mu);
}
# RT #73308
-#?niecza skip "Array.elems"
{
is [][].elems, 0, '[][] returns empty list/array';
}
View
@@ -82,7 +82,6 @@ plan 31;
}
# infinity HoHoHoH...
-#?niecza skip 'Cannot use hash access on an object of type Capture'
{
my %hash = (val => 42);
%hash<ref> = %hash;
View
@@ -182,7 +182,6 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
s:global/abc/$s/;
is($_, q{Wow I know my ZBC's}, 'Scalar substitution');
-#?niecza skip 'No value for parameter \$index in postcircumfix:<[ ]>'
{
s:g/BC/@a[]/;
is($_, q{Wow I know my ZA ZBC's}, 'List substitution');

0 comments on commit 7becae6

Please sign in to comment.