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

plan 2;

my $test = "OH HAI!";

my $r = capture_stderr { note $test }

ok $r ~~ /$test/;

$r = '';

capture_stderr_on($r);
note $test;
capture_stderr_off;

ok $r ~~ /$test/;


