[Rt-commit] r16556 - in rt/branches/3.999-DANGEROUS: t/web

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Oct 28 03:30:04 2008
New Revision: 16556

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/t/web/compilation_errors.t

Log:
 r17419 at sunnavys-mb:  sunnavy | 2008-10-28 15:28:55 +0800
 imporve compilation_errors.t to make Install/ special


Modified: rt/branches/3.999-DANGEROUS/t/web/compilation_errors.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/compilation_errors.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/compilation_errors.t	Tue Oct 28 03:30:04 2008
@@ -5,6 +5,7 @@
 use Test::More;
 my $tests = 2;
 find ( sub { wanted() and $tests += 4 } , 'share/html/');
+find ( sub { /\.html$/ and $tests += 4 } , 'share/html/Install');
 plan tests => $tests;
 use HTTP::Request::Common;
 use HTTP::Cookies;
@@ -30,10 +31,14 @@
 
 
 use File::Find;
-find ( sub { wanted() and test_get($File::Find::name) } , 'share/html/');
+# we take out pages below Install/ because those pages will set install_mode,
+# which will redirect any page out Install/ to Install/index.html
+find ( sub { wanted() and test_get($File::Find::name) } , 'share/html');
+find ( sub { /\.html$/ and test_get($File::Find::name) } , 'share/html/Install');
 
 sub wanted {
-        -f  && /\.html$/ && $_ !~ /Logout.html$/;
+        -f  && /\.html$/ && $_ !~ /Logout.html$/ && $File::Find::name !~
+            m{share/html/Install/};
 }
 
 sub test_get {