diff options
Diffstat (limited to 'tests/server/backend-t.in')
-rw-r--r-- | tests/server/backend-t.in | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in index 0b65c07..bc708f2 100644 --- a/tests/server/backend-t.in +++ b/tests/server/backend-t.in @@ -9,7 +9,6 @@ # See LICENSE for licensing terms. use strict; -use IO::String; use Test::More tests => 1263; # Create a dummy class for Wallet::Server that prints what method was called @@ -171,10 +170,10 @@ eval { do '@abs_top_srcdir@/server/wallet-backend' }; # Wallet::Server class. sub run_backend { my (@args) = @_; - my $result; - my $output = IO::String->new (\$result); - $output->autoflush (1); - select $output; + my $result = ''; + open (OUTPUT, '>', \$result) or die "cannot create output string: $!\n"; + select OUTPUT; + local $| = 1; eval { command (@args) }; my $error = $@; select STDOUT; |