Skip to content

Commit fbb9534

Browse files
committed
rakudo unfudges
1 parent fba1e39 commit fbb9534

File tree

11 files changed

+0
-13
lines changed

11 files changed

+0
-13
lines changed

S02-types/array.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -159,7 +159,6 @@ my @array2 = ("test", 1, Mu);
159159
}
160160

161161
#?niecza skip "type constraints"
162-
#?rakudo skip "parametrization issues"
163162
{
164163
# declare the array with data type
165164
my Int @array;

S02-types/whatever.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -161,7 +161,6 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
161161

162162
# L<S02/The C<.assuming> Method/This is only for operators that are not
163163
# Whatever-aware.>
164-
#?rakudo skip 'user defined ops'
165164
{
166165
multi sub infix:<quack>($x, $y) { "$x|$y" };
167166
isa_ok * quack 5, Code,

S03-metaops/hyper.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -490,7 +490,6 @@ my @e;
490490
}
491491

492492
#?niecza skip 'our sub'
493-
#?rakudo skip 'nom regression: user-defined ops'
494493
#?DOES 4
495494
{
496495
our sub postfix:<!>($a) {

S03-metaops/reduce.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -177,7 +177,6 @@ lives_ok({my @foo = [>>+<<] ([1..3],[1..3],[1..3])},'Parse [>>+<<]');
177177

178178
# Check that user defined infix ops work with [...], too.
179179
#?pugs todo 'bug'
180-
#?rakudo skip 'reduce of user defined op'
181180
{
182181
sub infix:<more_than_plus>($a, $b) { $a + $b + 1 }
183182
is (try { [more_than_plus] 1, 2, 3 }), 8, "[...] reduce metaop works on user defined ops";

S03-operators/nesting.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,6 @@ is (1 R[R[R-]] 2), 1, 'R[R[R-]] works';
4848
is (1 RR[R-] 2), 1, 'RR[R-] works';
4949

5050
# crazy stuff
51-
#?rakudo skip 'nom regression'
5251
{
5352
our sub infix:<blue>($a, $b) {
5453
$a % $b

S03-operators/ternary.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -55,7 +55,6 @@ is((4 or 5 ?? 6 !! 7), 4, "operator priority");
5555
is($foo, Bool::True, "a statement with both ??!! and :: in it did compile") ;
5656
}
5757

58-
#?rakudo skip 'custom operators'
5958
{
6059
# Defining an N! postfix (for factorial) causes a misparse on ternary op
6160
proto postfix:<!>($n) {

S05-transliteration/trans.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -112,7 +112,6 @@ is($b.trans('..A..H..' => '__a..h__'), 'abcdefghIJKLMNOPQRSTUVWXYZ',
112112
'leading, trailing ranges interpreted as string');
113113

114114
# added as a consequence of RT #76720
115-
#?rakudo skip 'RT 76720'
116115
is("hello".trans("l" => ""), "heo", "can replace with empty string");
117116

118117
# complement, squeeze/squash, delete

S06-multi/type-based.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,7 +134,6 @@ is(mmd(1..3), 2, 'Slurpy MMD to listop via list');
134134
}
135135

136136
# multi dispatch on typed containers
137-
#?rakudo skip 'typed array and hash containers are NYI'
138137
{
139138
multi f4 (Int @a ) { 'Array of Int' } #OK not used
140139
multi f4 (Str @a ) { 'Array of Str' } #OK not used

S13-overloading/operators.t

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5,15 +5,13 @@ plan 3;
55

66
#L<S06/Operator overloading>
77

8-
#?rakudo skip 'custom operators'
98
{
109
sub postfix:<§> ($x) {
1110
$x * 2;
1211
};
1312
is 3§, 6, 'Can define postfix operator';
1413
}
1514

16-
#?rakudo skip 'custom operators'
1715
{
1816
sub postfix:<!>($arg) {
1917
if ($arg == 0) { 1;}

S16-filehandles/filetest.t

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -40,13 +40,11 @@ if $*OS eq any <MSWin32 mingw msys cygwin> {
4040
skip "win32 doesn't have ~~:x", 2;
4141
} else {
4242
if $*EXECUTABLE_NAME.IO ~~ :e {
43-
#?rakudo skip ':x'
4443
ok $*EXECUTABLE_NAME.IO ~~ :x, "~~:x returns true on executable files";
4544
}
4645
else {
4746
skip "'$*EXECUTABLE_NAME' is not present (interactive mode?)", 1;
4847
}
49-
#?rakudo skip ':x'
5048
ok 't'.IO ~~ :x, "~~:x returns true on cwd()able directories";
5149
}
5250

0 commit comments

Comments
 (0)