[Rt-commit] r11821 - in rt/branches/3.8-TESTING: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Apr 22 15:34:21 2008
New Revision: 11821

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/t/web/compilation_errors.t

Log:
 r29937 at kohr-ah:  chmrr | 2008-04-16 15:52:02 -0400
  * Count the number of tests before we run


Modified: rt/branches/3.8-TESTING/t/web/compilation_errors.t
==============================================================================
--- rt/branches/3.8-TESTING/t/web/compilation_errors.t	(original)
+++ rt/branches/3.8-TESTING/t/web/compilation_errors.t	Tue Apr 22 15:34:21 2008
@@ -2,7 +2,9 @@
 
 use strict;
 use Test::More;
-plan tests => 407;
+my $tests = 7;
+find ( sub { wanted() and $tests += 4 } , 'html/');
+plan tests => $tests;
 use HTTP::Request::Common;
 use HTTP::Cookies;
 use LWP;
@@ -40,11 +42,11 @@
 
 
 use File::Find;
-find ( \&wanted , 'html/');
+find ( sub { wanted() and test_get($File::Find::name) } , 'html/');
 
 sub wanted {
-        -f  && /\.html$/ && $_ !~ /Logout.html$/ && test_get($File::Find::name);
-}       
+        -f  && /\.html$/ && $_ !~ /Logout.html$/;
+}
 
 sub test_get {
         my $file = shift;