Skip to content

Commit 440a6c4

Browse files
committed
Ignore s/…/…/ and possibly some other things
To prevent misdetection like here: http://colabti.org/irclogger/irclogger_log/perl6?date=2018-02-06#l249
1 parent 3f0ba37 commit 440a6c4

File tree

2 files changed

+4
-0
lines changed

2 files changed

+4
-0
lines changed

bin/Evalable.p6

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -72,6 +72,7 @@ method process($msg, $code is copy, :$good-only?) {
7272
return if $result<exit-code> ≠ 0;
7373
return if !$output;
7474
return if $output ~~ /^‘WARNINGS for ’\N*\n‘Useless use’/;
75+
return if $output ~~ /^‘Potential difficulties:’/;
7576
return if $output ~~ /^‘Use of uninitialized value of type Any in string context.’/;
7677
}
7778
my $extra = ;

t/evalable.t

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -222,6 +222,9 @@ $t.test(‘empty output is ignored’,
222222
$t.test(timeouts are ignored,
223223
sleep ∞);
224224

225+
$t.test(s/…/…/ is ignored,
226+
s/each block/each comp unit/;);
227+
225228
$t.test(segfaults are not ignored,
226229
use NativeCall; sub strdup(int64) is native(Str) {*}; strdup(0),
227230
/^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «(signal SIGSEGV) »’ $/);

0 commit comments

Comments
 (0)