[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.8.8-538-g97c79ca

[Shawn Moore]

The branch, 3.9-trunk has been updated
       via  97c79ca2aab1fdbfa194d8978618cc8316290cf1 (commit)
      from  30e5c93b56fe227bd765f78f7ca5ce946bb649b3 (commit)

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

- Log -----------------------------------------------------------------
commit 97c79ca2aab1fdbfa194d8978618cc8316290cf1
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Tue Aug 24 17:32:42 2010 -0400

    TODO test for compilation_errors being warnings-clean
    
        Yeah.......

diff --git a/t/web/compilation_errors.t b/t/web/compilation_errors.t
index a7945b6..db4e1a7 100644
--- a/t/web/compilation_errors.t
+++ b/t/web/compilation_errors.t
@@ -7,7 +7,7 @@ BEGIN {
     sub wanted {
         -f && /\.html$/ && $_ !~ /Logout.html$/;
     }
-    my $tests = 4;
+    my $tests = 6;
     find( sub { wanted() and $tests += 4 }, 'share/html/' );
     plan tests => $tests;
 }
@@ -32,8 +32,6 @@ $agent->get($url);
 
 is ($agent->{'status'}, 200, "Loaded a page");
 
-# {{{ test a login
-
 # follow the link marked "Login"
 $agent->login(root => 'password');
 is($agent->{'status'}, 200, "Fetched the page ok");
@@ -42,6 +40,11 @@ like( $agent->{'content'} , qr/Logout/i, "Found a logout link");
 
 find ( sub { wanted() and test_get($File::Find::name) } , 'share/html/');
 
+TODO: {
+    local $TODO = "we spew *lots* of undef warnings";
+    $agent->no_warnings_ok;
+};
+
 sub test_get {
         my $file = shift;
 
@@ -58,6 +61,4 @@ sub test_get {
         };
 }
 
-# }}}
-
 1;

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