From 3ac6006f3be8ad090d4162e6a8b9e9be7307351f Mon Sep 17 00:00:00 2001
From: "cltbld%netscape.com" <cltbld%netscape.com>
Date: Tue, 17 Dec 2002 03:13:52 +0000
Subject: [PATCH] Adding QA DOM/JS test.  Tweaking timeout for codesize test
 for windows long case. -mcafee

---
 tools/tinderbox/build-seamonkey-util.pl | 32 ++++++++++++++++++++++++-
 tools/tinderbox/tinder-defaults.pl      |  4 +++-
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/tools/tinderbox/build-seamonkey-util.pl b/tools/tinderbox/build-seamonkey-util.pl
index 81b02412e6c8..c3055138cdf7 100644
--- a/tools/tinderbox/build-seamonkey-util.pl
+++ b/tools/tinderbox/build-seamonkey-util.pl
@@ -22,7 +22,7 @@ use File::Path;     # for rmtree();
 use Config;         # for $Config{sig_name} and $Config{sig_num}
 use File::Find ();
 
-$::UtilsVersion = '$Revision: 1.194 $ ';
+$::UtilsVersion = '$Revision: 1.195 $ ';
 
 package TinderUtils;
 
@@ -1060,6 +1060,7 @@ sub extract_token_from_file {
         if (/$token/) {
             # pull the token out of $_
             $token_value = substr($_, index($_, $delimiter) + 1);
+            chomp($token_value);
             last;
         }
     }
@@ -1650,6 +1651,13 @@ sub run_all_tests {
                                              [$binary, "-P", $Settings::MozProfileName]);
     }
 
+    # QA test: Client-side JS, DOM/HTML/Views, form submission.
+    if ($Settings::QATest and $test_result eq 'success') {
+        $test_result = QATest("QATest",
+                              $build_dir,
+                              [$binary, "-P", $Settings::MozProfileName]);
+    }
+
 
     # xul window open test.
     #
@@ -1913,6 +1921,28 @@ sub LayoutPerformanceTest {
     return $layout_test_result;
 }
 
+# Client-side JavaScript, DOM Core/HTML/Views, and Form Submission tests.
+# Currently only available inside netscape firewall.
+sub QATest {
+    my ($test_name, $build_dir, $args) = @_;
+    my $binary_log = "$build_dir/$test_name.log";
+    my $url = "http://geckoqa.mcom.com/ngdriver/cgi-bin/ngdriver.cgi?findsuites=suites&tbox=1";
+    
+    # Settle OS.
+    run_system_cmd("sync; sleep 10", 35);
+    
+    $layout_time = FileBasedTest($test_name,
+                                 $build_dir,
+                                 [@$args, $url],
+                                 $Settings::QATestTimeout,
+                                 "FAILED_XXX", # No failure, we will post-process the data.
+                                 0, 0); # Timeout means failure
+
+    # Post-process log of test output.
+
+
+    return 'success';  # Hard-coded for now.
+}
 
 
 # Startup performance test.  Time how fast it takes the browser
diff --git a/tools/tinderbox/tinder-defaults.pl b/tools/tinderbox/tinder-defaults.pl
index d23e15b03747..c1bdcbbf2ed9 100644
--- a/tools/tinderbox/tinder-defaults.pl
+++ b/tools/tinderbox/tinder-defaults.pl
@@ -32,6 +32,7 @@ $CodesizeTest             = 0;
 $MailBloatTest            = 0;
 $EmbedTest                = 0;  # Assumes you wanted $BuildEmbed=1
 $LayoutPerformanceTest    = 0;
+$QATest                   = 0;
 $XULWindowOpenTest        = 0;
 $StartupPerformanceTest   = 0;
 
@@ -53,8 +54,9 @@ $BloatTestTimeout                 = 120;   # seconds
 $MailBloatTestTimeout             = 120;   # seconds
 $JavaTestTimeout                  = 45;
 $DomTestTimeout	                  = 45;    # seconds
-$CodesizeTestTimeout              = 45;    # seconds
+$CodesizeTestTimeout              = 900;   # seconds
 $LayoutPerformanceTestTimeout     = 1200;  # entire test, seconds
+$QATestTimeout                    = 1200;  # entire test, seconds
 $LayoutPerformanceTestPageTimeout = 30000; # each page, ms
 $StartupPerformanceTestTimeout    = 60;    # seconds
 $XULWindowOpenTestTimeout	      = 150;   # seconds