mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-25 13:51:41 +00:00
smoketest perl script. should run in any unix flavor, but has dependencies
on killall, and other issues that might need to be rectified.
This commit is contained in:
phillip%netscape.com
parent
cbc7d3604a
commit
db58001ea0
321
tools/tests/unix/SmokeTestLinux-1.pl
Normal file
321
tools/tests/unix/SmokeTestLinux-1.pl
Normal file
@ -0,0 +1,321 @@
|
||||
#! /usr/bin/perl
|
||||
# hacked together by bsharma@netscape.com and phillip@netscape.com
|
||||
use Cwd;
|
||||
use FileHandle;
|
||||
use Benchmark;
|
||||
|
||||
#some vars that depend on the location of apprunner.
|
||||
$layout_time = 4; # seconds after document is loaded successfully before apprunner is killed
|
||||
$test_duration = 120; # seconds before i deem this url timed out
|
||||
$apprunner_bin = '/u/phillip/seamonkey/linux/package';
|
||||
#$apprunner_bin = '../../../dist/bin';
|
||||
|
||||
#nothing else needs to be changed
|
||||
$apprunner = "$apprunner_bin/apprunner";
|
||||
$apprunner_samples = "$apprunner_bin/res/samples";
|
||||
$apprunner_log = 'smoketest.log';
|
||||
#$mail_log = '/tmp/maillog.txt';
|
||||
|
||||
# we fork and launch apprunner in a few spots around here, so let's define
|
||||
# this just once:
|
||||
$ENV{'MOZILLA_FIVE_HOME'}="$apprunner_bin";
|
||||
$ENV{'LD_LIBRARY_PATH'}="/usr/lib:/lib:$apprunner_bin";
|
||||
# here are a few subroutines we use:
|
||||
# get_build_date - look through navigator.xul for the build id (1999-04-18-08)
|
||||
# returns the string
|
||||
# get_date - returns a preformatted string containing the date and time
|
||||
# test_url - takes a string url as an optional parameter
|
||||
|
||||
$t0 = new Benchmark;
|
||||
|
||||
&main();
|
||||
|
||||
$t1 = new Benchmark;
|
||||
$launchtimea = timediff($t1,$t0);
|
||||
@launchtime = split (/ /, timestr($launchtimea));
|
||||
$sec = $launchtime[0];
|
||||
|
||||
use integer;
|
||||
$hours = $sec / 3600;
|
||||
$sec -= $hours * 3600;
|
||||
$mins = $sec / 60;
|
||||
$sec -= $mins * 60;
|
||||
print "the whole Smoketest took $hours hours, $mins mins, and $sec seconds.\n";
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
# so it begins
|
||||
sub main {
|
||||
open (REPORT_FILE, '>report.html');
|
||||
REPORT_FILE->autoflush();
|
||||
print (REPORT_FILE "<HTML><HEAD><TITLE>Smoke Test Report File </TITLE></HEAD>\n");
|
||||
print (REPORT_FILE "<BODY>\n");
|
||||
print (REPORT_FILE "<H1><CENTER> Seamonkey Build Smoke Tests Report\n");
|
||||
print (REPORT_FILE "<BR>Linux</CENTER></H1><B><CENTER>\n");
|
||||
print (REPORT_FILE "<BR>\n");
|
||||
print (REPORT_FILE &get_date);
|
||||
print (REPORT_FILE "</B></CENTER>\n <BR>\n <B><CENTER>\n Build Number: " . &get_build_date . " </CENTER></B>\n <BR>\n <HR>\n");
|
||||
|
||||
|
||||
print "testing launch";
|
||||
$load_result = "";
|
||||
$ret = &test_url;
|
||||
$load_result = "NOT" if ( $ret eq 'E1-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E2-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E3-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E4-FAILED' );
|
||||
if ( $load_result eq "NOT" ) {
|
||||
print "FAILED\n";
|
||||
} else {
|
||||
print "OK\n";
|
||||
}
|
||||
|
||||
print (REPORT_FILE "<B><Center>\n");
|
||||
# load_result tells you if the test failed
|
||||
print (REPORT_FILE "Apprunner $load_result Loaded Successfully");
|
||||
|
||||
print (REPORT_FILE "</B></Center>\n");
|
||||
print (REPORT_FILE "<BR>\n");
|
||||
|
||||
print (REPORT_FILE "<HR>\n");
|
||||
print (REPORT_FILE "<B><CENTER><font size=+2>\n");
|
||||
print (REPORT_FILE "Loading Sites Results");
|
||||
print (REPORT_FILE "</font></CENTER></B>\n");
|
||||
|
||||
&get_url_list;
|
||||
#@url_list = ("http://www.yahoo.com",
|
||||
#"http://www.netscape.com",
|
||||
####"http://www.excite.com",
|
||||
#"http://www.microsoft.com",
|
||||
#"http://www.city.net",
|
||||
#"http://www.mirabilis.com",
|
||||
#"http://www.pathfinder.com/welcome",
|
||||
#"http://www.warnerbros.com/home_moz3_day.html",
|
||||
#"http://www.cnn.com",
|
||||
#"http://www.usatoday.com",
|
||||
#"http://www.disney.go.com",
|
||||
#"http://www.hotwired.com",
|
||||
#"http://www.hotbot.com",
|
||||
#"http://slip/projects/marvin/bft/browser/bft_frame_index.html",
|
||||
#"file://$apprunner_samples/test6.html",
|
||||
#"http://slip/projects/marvin/bft/browser/bft_browser_applet.html",
|
||||
#"http://www.abcnews.com",
|
||||
#"http://slip/projects/marvin/bft/browser/bft_browser_imagemap.html",
|
||||
#"file://$apprunner_samples/test2.html",
|
||||
#"file://$apprunner_samples/test13.html",
|
||||
#"file://$apprunner_samples/test13.html",
|
||||
#"file://$apprunner_samples/test2.html",
|
||||
#"http://slip/projects/marvin/bft/browser/bft_browser_html_mix3.html",
|
||||
#"http://slip/projects/marvin/bft/browser/bft_browser_link.html");
|
||||
|
||||
my $i;
|
||||
my $style;
|
||||
|
||||
# launch apprunner once for every browser test in the url_list
|
||||
################################################################################
|
||||
foreach $cur_url (@url_list)
|
||||
{
|
||||
$load_result = "";
|
||||
|
||||
print "$cur_url";
|
||||
|
||||
$ret = &test_url( $cur_url );
|
||||
$load_result = "NOT" if ( $ret eq 'E1-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E2-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E3-FAILED' );
|
||||
$load_result = "NOT" if ( $ret eq 'E4-FAILED' );
|
||||
|
||||
# print in red if there's a failure
|
||||
if ( $load_result eq "NOT" ) {
|
||||
$style = "style='color: red;'";
|
||||
print "FAILED\n";
|
||||
} else {
|
||||
$style = "";
|
||||
print "OK\n";
|
||||
}
|
||||
print (REPORT_FILE "<B $style>\n<a href=\"$cur_url\">$cur_url</a> $load_result Loaded Successfully</B>\n<BR>\n");
|
||||
}
|
||||
|
||||
# now it's time to check mail
|
||||
# not yet functional
|
||||
################################################################################
|
||||
|
||||
#open (LOG_FILE, "< $mail_log");
|
||||
#while (<LOG_FILE>)
|
||||
#{
|
||||
# chop;
|
||||
# $load_result = "NOT";
|
||||
# if (/Mailbox Done/){
|
||||
# $load_result = "";
|
||||
# }
|
||||
# print (REPORT_FILE "<B>\n$load_result</B>\n<BR>\n");
|
||||
#}
|
||||
|
||||
# close the report, and we're done!
|
||||
################################################################################
|
||||
print (REPORT_FILE "<HR>\n<BR>\n<BR>\n<B><CENTER>\n");
|
||||
print (REPORT_FILE &get_date());
|
||||
print (REPORT_FILE "</CENTER></B>\n");
|
||||
print (REPORT_FILE "<BR>\n<BR>\n<HR>\n<BR>\n<BR>\n");
|
||||
print (REPORT_FILE "</BODY>\n");
|
||||
print (REPORT_FILE "</HTML>\n");
|
||||
close (REPORT_FILE);
|
||||
|
||||
}
|
||||
|
||||
################################################################################
|
||||
################################################################################
|
||||
##### Subroutines go here . . . ################################################
|
||||
################################################################################
|
||||
################################################################################
|
||||
|
||||
|
||||
#
|
||||
# my_kill -- takes a pid or the string "apprunner".
|
||||
# essentially calls `kill -9 $pid`.
|
||||
# the reason this exists is because i can't figure
|
||||
# out how to kill apprunner yet, since i can't grab
|
||||
# it's pid. (it's harder than you think.)
|
||||
# when i figure it out, i'll fix it here, then all will
|
||||
# be great. until then, all apprunners are killed!)
|
||||
################################################################
|
||||
sub my_kill{
|
||||
local $pid = shift || "";
|
||||
|
||||
if ($pid eq ""){
|
||||
return;
|
||||
}
|
||||
elsif ($pid eq "apprunner"){
|
||||
system ("killall -9 apprunner");
|
||||
} else {
|
||||
kill 9, $pid;
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# test_url -- takes a url as a parameter and launches apprunner
|
||||
# with it. returns the page-loading-performance as
|
||||
# a string of numbers with a floating point *IF*
|
||||
# the page actually loads. if the page doesn't load,
|
||||
# it returns the string 'En-FAILED', with n in 1..3
|
||||
################################################################
|
||||
sub test_url {
|
||||
$| = 1; # gotta love autoflushing
|
||||
local $reaperchild;
|
||||
local $url = shift || "";
|
||||
local $run_time = 0;
|
||||
|
||||
if ( $reaperchild = fork ) {
|
||||
## ok, the parent spins until apprunner
|
||||
## loads a doc successfully or unsuccessfully, or
|
||||
## until the reaperchild kills apprunner
|
||||
open STATUS, "$apprunner $url 2>&1 |";
|
||||
open LOG_FILE, ">> $apprunner_log";
|
||||
LOG_FILE->autoflush();
|
||||
unless ($url eq ""){ print LOG_FILE "testing url: $url\n" }
|
||||
while (<STATUS>){
|
||||
print LOG_FILE;
|
||||
# Document: Done (7.918 secs)
|
||||
if (/Document: Done \((..*) secs/) {
|
||||
$run_time = $1;
|
||||
}
|
||||
|
||||
last if (/loaded successfully/);
|
||||
$run_time = 'E3-FAILED' and last if (/Error loading URL/);
|
||||
|
||||
}
|
||||
|
||||
# now that the testing ugliness is over, we make
|
||||
# sure everybody is dead. then we can return our
|
||||
# performance findings.
|
||||
print "|";
|
||||
sleep $layout_time;
|
||||
&my_kill( $reaperchild );
|
||||
&my_kill( "apprunner" );
|
||||
# wait for reaperchild to die
|
||||
if ( kill 0 => $reaperchild ){
|
||||
waitpid $reaperchild, 0;
|
||||
}
|
||||
if ( -f "timeout.txt" ) {
|
||||
unlink "timeout.txt";
|
||||
$run_time = 'E1-FAILED';
|
||||
}
|
||||
|
||||
if ( $run_time eq "0" ){
|
||||
print "error, runtime == 0. this is a problem with Timer:Init() being called with a bogus value";
|
||||
$run_time = 'E4-FAILED';
|
||||
}
|
||||
unless ($url eq ""){ print LOG_FILE "done testing url: $url\n" }
|
||||
close LOG_FILE;
|
||||
return $run_time;
|
||||
} else {
|
||||
# child waits for a while, then kills apprunner
|
||||
# the test must go on.
|
||||
for( $j=0; $j<$test_duration; $j++){
|
||||
sleep 1 && print ".";
|
||||
}
|
||||
print "don't fear the reaper, man\n" and sleep 1;
|
||||
system ("killall -9 apprunner");
|
||||
system ("echo timeout > timeout.txt");
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# get_date -- returns a string of the current time and date
|
||||
# formatted for your enjoyment.
|
||||
################################################################
|
||||
sub get_date {
|
||||
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)= localtime;
|
||||
%weekday= (
|
||||
"1", "Monday",
|
||||
'2', 'Tuesday',
|
||||
'3', 'Wednesday',
|
||||
'4', 'Thursday',
|
||||
'5', 'Friday',
|
||||
'6', 'Saturday',
|
||||
'7', 'Sunday',
|
||||
);
|
||||
$mon += 1;
|
||||
return sprintf "%s %02d/%02d/19%02d %02d:%02d:%02d", $weekday{$wday},$mon,$mday,$year,$hour,$min,$sec;
|
||||
}
|
||||
|
||||
#
|
||||
# get_build_date -- returns apprunner's build string,
|
||||
# e.g. '1999-05-18-07'
|
||||
################################################################
|
||||
sub get_build_date {
|
||||
open (XUL_FILE, "< $apprunner_samples/navigator.xul");
|
||||
$BuildNo = "";
|
||||
$LineList;
|
||||
while (<XUL_FILE>) {
|
||||
chop;
|
||||
if (/Build ID/) {
|
||||
@LineList = split / /;
|
||||
$BuildNo = $LineList[5];
|
||||
}
|
||||
}
|
||||
close( XUL_FILE );
|
||||
$BuildNo =~ s/["<>]/ /g;
|
||||
return $BuildNo;
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# get_url_list -- opens the $url file and loads up all the urls.
|
||||
################################################################
|
||||
sub get_url_list {
|
||||
local $url = shift || "url.txt";
|
||||
my $i = 0;
|
||||
|
||||
open (URL_FILE, "< $url");
|
||||
while (<URL_FILE>) {
|
||||
chop;
|
||||
$url_list[$i++] = $_;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
__END__
|
||||
34
tools/tests/unix/url.txt
Normal file
34
tools/tests/unix/url.txt
Normal file
@ -0,0 +1,34 @@
|
||||
http://www.yahoo.com
|
||||
http://www.netscape.com
|
||||
http://my.netscape.com
|
||||
http://www.excite.com
|
||||
http://www.microsoft.com
|
||||
http://www.city.net
|
||||
http://www.mirabilis.com
|
||||
http://www.pathfinder.com/welcome
|
||||
http://www.warnerbros.com/home_moz3_day.html
|
||||
http://www.cnn.com
|
||||
http://www.usatoday.com
|
||||
http://www.hotwired.com
|
||||
http://www.hotbot.com
|
||||
http://www.mozilla.org/quality/browser/bft/bft_frame_index.html
|
||||
http://www.mozilla.org/quality/browser/bft/bft_nested_table.html
|
||||
http://java.sun.com
|
||||
http://www.abcnews.com
|
||||
http://www.mozilla.org/quality/browser/bft/bft_browser_imagemap.html
|
||||
http://www.mozilla.org/quality/browser/bft/bft_multi_images.html
|
||||
http://www.mozilla.org/quality/browser/bft/bft_image_trans.html
|
||||
http://www.mozilla.org/quality/browser/bft/bft_browser_html_mix3.html
|
||||
http://www.yahoo.co.jp/index.html
|
||||
http://www.zdnet.co.jp/pcweek/
|
||||
http://www.zdnet.co.jp/
|
||||
http://www.tvspielfilm.de
|
||||
http://www.focus.de
|
||||
http://www.joongang.co.kr/
|
||||
http://www.dongailbo.co.kr/
|
||||
http://www.chinatimes.com.tw/
|
||||
http://168.160.224.76/real/game/index.htm
|
||||
http://www.ntt.co.jp/index-j.html
|
||||
http://people.netscape.com/erik/sev-nsi-java.html
|
||||
http://www.unicode.org/unicode/iuc10/x-utf8.html
|
||||
http://www.unicode.org/unicode/iuc10/x-ncr.html
|
||||
Loading…
Reference in New Issue
Block a user