Skip to content

Commit 45ce3b6

Browse files
committed
Get rid of IO::String usage
Fixes D#1827 #1827
1 parent b190f96 commit 45ce3b6

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

xt/examples-compilation.t

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,6 @@
22

33
use v6;
44
use Test;
5-
use IO::String;
65

76
use lib 'lib';
87
use Pod::Convenience;
@@ -64,7 +63,6 @@ for @files -> $file {
6463
my $proc;
6564
plan +@examples;
6665

67-
my $dummy-io = IO::String.new();
6866
for @examples -> $eg {
6967
use MONKEY-SEE-NO-EVAL;
7068

@@ -102,8 +100,8 @@ for @examples -> $eg {
102100

103101
my $status;
104102
{
105-
$*OUT = $dummy-io;
106-
$*ERR = $dummy-io;
103+
temp $*OUT = open :w, $*SPEC.devnull;
104+
temp $*ERR = open :w, $*SPEC.devnull;
107105
try EVAL $code;
108106
$status = $!;
109107
}

0 commit comments

Comments
 (0)