### ----------------------------------------------------
### -- IO::Capture::Simple
### -- Licenses: Artistic-2.0
### -- Authors: Filip Sergot, JJ Merelo
### -- File: t/stdout.t
### ----------------------------------------------------
use IO::Capture::Simple;
use Test;
plan 2;

my $test = "OH HAI!";

my $r = capture_stdout { print $test }

ok $r ~~ $test;

$r = '';
capture_stdout_on($r);
print $test;
capture_stdout_off;
ok $r ~~ $test;


