examples/mocking_io/test1.t
use strict;
use warnings;
use Test::More;

use MyModule1;
plan tests => 1;

{
    my $stdout;
    open my $out_fh, '>', \$stdout or die "Cannot open STDOUT to write to string: $!";
    my $stdin = "qwert\n";
    open my $in_fh, '<', \$stdin or die "Cannot open STDIN to read from string: $!";
    local *STDIN = $in_fh;
    local *STDOUT = $out_fh;

    MyModule1::game();

    is($stdout, "Enter your name: Hello 'qwert'\n");
}