where I am leaving it for now :(

[catagits/HTML-Zoom.git] / t / to_fh.t

diff --git a/t/to_fh.t b/t/to_fh.t
index 114e531..3849bb5 100644 (file)
--- a/t/to_fh.t
+++ b/t/to_fh.t
@@ -73,5 +73,9 @@ is $html, $lines,
     'correct number of lines';
 }
 
+use Data::Dump 'dump';
+warn dump $fh->open;
+warn dump open($fh);
+warn dump $fh->stat;
+warn dump ( -s $fh);
 
-print (stat $fh);