We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b190f96 commit 45ce3b6Copy full SHA for 45ce3b6
xt/examples-compilation.t
@@ -2,7 +2,6 @@
2
3
use v6;
4
use Test;
5
-use IO::String;
6
7
use lib 'lib';
8
use Pod::Convenience;
@@ -64,7 +63,6 @@ for @files -> $file {
64
63
my $proc;
65
plan +@examples;
66
67
-my $dummy-io = IO::String.new();
68
for @examples -> $eg {
69
use MONKEY-SEE-NO-EVAL;
70
@@ -102,8 +100,8 @@ for @examples -> $eg {
102
100
103
101
my $status;
104
{
105
- $*OUT = $dummy-io;
106
- $*ERR = $dummy-io;
+ temp $*OUT = open :w, $*SPEC.devnull;
+ temp $*ERR = open :w, $*SPEC.devnull;
107
try EVAL $code;
108
$status = $!;
109
}
0 commit comments