[Rt-commit] r7715 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sat Apr 28 15:24:31 2007
New Revision: 7715

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t

Log:
 r5173 at cubic-pc:  cubic | 2007-04-28 20:21:33 +0400
 * add diag output to the test


Modified: rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t	Sat Apr 28 15:24:31 2007
@@ -42,7 +42,9 @@
 
 sub file_content
 {
-    open my $fh, "<:raw", $_[0] or die "couldn't open file '$_[0]': $!";
+    my $path = shift;
+    diag "reading content of '$path'" if $ENV{'TEST_VERBOSE'};
+    open my $fh, "<:raw", $path or die "couldn't open file '$path': $!";
     local $/;
     return scalar <$fh>;
 }