[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.8.8-170-ge3b68b2

[Shawn Moore]

The branch, 3.9-trunk has been updated
       via  e3b68b210a1f1a7837eb96e53084e587d0119db0 (commit)
      from  fae1ed4bee381d96b27442fe1df484d05cba657d (commit)

Summary of changes:
 t/web/compilation_errors.t |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit e3b68b210a1f1a7837eb96e53084e587d0119db0
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Thu Jul 15 20:46:53 2010 -0400

    Attempt to include some diagnostics in compilation_errors

diff --git a/t/web/compilation_errors.t b/t/web/compilation_errors.t
index 46a8628..e8cfca7 100644
--- a/t/web/compilation_errors.t
+++ b/t/web/compilation_errors.t
@@ -60,7 +60,11 @@ sub test_get {
         is ($agent->{'status'}, 200, "Loaded $file");
 #        ok( $agent->{'content'} =~ /Logout/i, "Found a logout link on $file ");
         ok( $agent->{'content'} !~ /Not logged in/i, "Still logged in for  $file");
-        ok( $agent->{'content'} !~ /raw error/i, "Didn't get a Mason compilation error on $file");
+        ok( $agent->{'content'} !~ /raw error/i, "Didn't get a Mason compilation error on $file") or do {
+            if (my ($error) = $agent->{'content'} =~ /<pre>(.*)/) {
+                diag "$file: $error";
+            }
+        };
 }
 
 # }}}

-----------------------------------------------------------------------