Upgrade to Test::Simple 0.33.
[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / filehandles.t
index 3b3c553..8bd0abe 100644 (file)
@@ -12,3 +12,17 @@ package Dev::Null;
 
 sub TIEHANDLE { bless {} }
 sub PRINT { 1 }
+#!perl -w
+
+use Test::More tests => 1;
+
+tie *STDOUT, "Dev::Null" or die $!;
+
+print "not ok 1\n";     # this should not print.
+pass 'STDOUT can be mucked with';
+
+
+package Dev::Null;
+
+sub TIEHANDLE { bless {} }
+sub PRINT { 1 }