Capturing STDOUT tests

sergot · Apr 14, 2012 · c1e29f4 · c1e29f4
1 parent 8fbaef0
commit c1e29f4
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/t/t0.p6 b/t/t0.p6
@@ -0,0 +1,16 @@
+use IO::Capture::Simple;
+use Test;
+plan 2;
+
+my $test = "OH HAI!";
+
+my $r = capture_stdout { print $test }
+
+ok $r ~~ $test;
+
+$r = '';
+
+capture_stdout($r);
+print $test;
+stdout_off;
+ok $r ~~ $test;