mozilla
/
pjs
зеркало из https://github.com/mozilla/pjs.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Bug 501305. Clean up tools/tests by deleting most of it. r=dbaron

This commit is contained in:
Phil Ringnalda 2009-08-04 09:49:00 +12:00
Родитель e238e2e766
Коммит 8d088ef308
30 изменённых файлов: 0 добавлений и 13813 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

241
tools/tests/LoadUrl.pl
Просмотреть файл

@ -1,241 +0,0 @@
#!/usr/bin/perl
$viewer_path = &ParseArgs();
if (defined($OSNAME)) {
$ostype = "unix";
}
else {
$ostype = "win32";
}
#Win32 Autoconfig
if ($ostype eq "win32") {
$viewer = $viewer_path . "\viewer.exe";
print $viewer_path . "\\viewer.exe" . "\n";
if (-e $viewer_path . "\\viewer.exe") {
system ($viewer_path . '\\viewer.exe -v -d 15 -f url.txt > result.txt');
}
else {
die $viewer_path . "viewer doesn't exist! Check your path.\n";
}
}
#=================================================================
#Linux Autoconfig
if ($ostype eq "unix") {
$viewer = $viewer_path . "/viewer";
if (-e $viewer_path . "/viewer") {
$ENV{'MOZILLA_HOME'}=$viewer_path;
$ENV{'LD_LIBRARY_PATH'}=$viewer_path;
system ($viewer_path . '/viewer -v -d 9 -f ./url.txt > result.txt');
}
else {
die $viewer_path . "/viewer doesn't exist! Check your path.\n";
}
}
#=================================================================
open (ANALYSIS_FILE, '>analysis.html') || die ("can't open file jim");
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
%weekday= (
"1", "$day",
'2', 'Tuesday',
'3', 'Wednesday',
'4', 'Thursday',
'5', 'Friday',
'6', 'Saturday',
'7', 'Sunday',
);
if ($hour > 12)
{
$hour = $hour - 12;
}
$mon += 1;
print "Content-type:text/html\n\n";
print (ANALYSIS_FILE "<HTML><HEAD><TITLE> Load URl's Analysis File </TITLE></HEAD>\n");
print (ANALYSIS_FILE "<BODY>\n");
print (ANALYSIS_FILE "<H2><CENTER> Load URL's Analysis File </CENTER></H2>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "Day Date Year and Time when Program started: ");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "$weekday{$wday} $mon/$mday/19$year $hour:$min:$sec");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
open (IN_FILE, '<result.txt');
open (OUT_FILE, '>loaded.txt');
open (URL_FILE, '<Url.txt');
open (NOMATCH_FILE, '>notloaded.txt');
$ThisLine;
@Url_List = (0..24,0..1);
$count=0;
while (<URL_FILE>)
{
$ThisLine = $_;
chomp ($ThisLine);
#push (@Url_List, "$ThisLine 0");
@Url_List[$count]->[0] = $ThisLine;
@Url_List[$count]->[1] = 0;
#print "@Url_List[$count]->[0] ";
#print "@Url_List[$count]->[1] \n";
$count++;
}
while (<IN_FILE>)
{
$ThisLine = $_;
if (/done loading/)
{
print (OUT_FILE "$ThisLine");
}
}
close (OUT_FILE);
open (OUT_FILE, '<loaded.txt');
$ThisLine = "";
$NumItems = @Url_List;
$ThisItem;
$InList;
while (<OUT_FILE>)
{
$ThisLine = $_;
for ($i = 0; $i < $NumItems-1; $i += 1)
{
$InList = @Url_List[$i]->[0];
if ($ThisLine =~ /$InList/)
{
#print @Url_List[$i]->[0];
#print "\n";
@Url_List[$i]->[1] = 1;
}
}
}
for ($i = 0; $i < $NumItems-1; $i += 1)
{
if (@Url_List[$i]->[1] == 0)
{
print (NOMATCH_FILE "@Url_List[$i]->[0]\n");
}
}
close (OUT_FILE);
close (NOMATCH_FILE);
open (OUT_FILE, '<loaded.txt');
open (NOMATCH_FILE, '<notloaded.txt');
$LoadItems;
$NotLoadItems;
while (<OUT_FILE>)
{
$LoadItems += 1;
}
while (<NOMATCH_FILE>)
{
$NotLoadItems += 1;
}
close (OUT_FILE);
close (NOMATCH_FILE);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
%weekday= (
"1", "$day",
'2', 'Tuesday',
'3', 'Wednesday',
'4', 'Thursday',
'5', 'Friday',
'6', 'Saturday',
'7', 'Sunday',
);
if ($hour > 12)
{
$hour = $hour - 12;
}
$mon += 1;
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "Day Date Year and Time when Program stopped: ");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "$weekday{$wday} $mon/$mday/19$year $hour:$min:$sec");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B>\n");
print (ANALYSIS_FILE "Number of URL's NOT loaded = ");
print (ANALYSIS_FILE "$NotLoadItems\n");
print (ANALYSIS_FILE "</B>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
open (OUT_FILE, '<loaded.txt');
open (NOMATCH_FILE, '<notloaded.txt');
while (<NOMATCH_FILE>)
{
$ThisLine = $_;
print (ANALYSIS_FILE "<A HREF='$ThisLine'>$ThisLine</A>\n");
print (ANALYSIS_FILE "<BR>\n");
}
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B>\n");
print (ANALYSIS_FILE "Number of URL's loaded = ");
print (ANALYSIS_FILE "$LoadItems\n");
print (ANALYSIS_FILE "</B>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
while (<OUT_FILE>)
{
$ThisLine = $_;
print (ANALYSIS_FILE "$ThisLine\n");
print (ANALYSIS_FILE "<BR>\n");
}
print (ANALYSIS_FILE "</BODY>\n");
print (ANALYSIS_FILE "</HTML>\n");
close (URL_FILE);
close (IN_FILE);
close (OUT_FILE);
close (NOMATCH_FILE);
close (ANALYSIS_FILE);
sub ParseArgs {
my($i);
if( (@ARGV == 0) || (@ARGV > 1) ) {
&PrintUsage;
}
else {
$viewer_path = $ARGV[0];
}
return $viewer_path;
}
sub PrintUsage {
die "usage: LoadUrl.pl <directory containing viewer app>";
}

204
tools/tests/SmokeTestLinux-1.pl
Просмотреть файл

@ -1,204 +0,0 @@
#! /usr/bin/perl
# hacked together by bsharma@netscape.com and phillip@netscape.com
use Cwd;
use FileHandle;
#some vars that depend on the location of apprunner.
#apprunner_bin should be the only thing you need to change to get this to work...
$apprunner_bin = '/u/phillip/seamonkey/linux/package';
#$apprunner_bin = '/build/mozilla/dist/bin';
$apprunner = "$apprunner_bin/apprunner";
$apprunner_samples = "$apprunner_bin/res/samples";
$apprunner_log = '/tmp/apprunnerlog.txt';
$mail_log = '/tmp/maillog.txt';
$test_duration = 30; # seconds
# 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
# launch_apprunner - takes a parameter (or the null string)
# so it begins
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");
&launch_apprunner();
# pessimistically assume that this will fail
# just look for the string loaded successfully in the log file
$load_result = "NOT";
open (APP_LOG_FILE, "< $apprunner_log");
while (<APP_LOG_FILE>)
{
chop;
if (/loaded successfully/)
{ #since the start page was loaded successfully,
#we can say that Apprunner loaded successfully
$load_result = "";
}
}
close (APP_LOG_FILE);
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");
@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
################################################################################
for ($i = 0; $i < $#url_list; $i ++)
{
print " @url_list[$i]\n";
&launch_apprunner(@url_list[$i]);
$load_result = "NOT";
open (APP_LOG_FILE, "< $apprunner_log");
while (<APP_LOG_FILE>)
{
chop;
#if (/@url_list[$i]/ and /loaded successfully/)
if (/loaded successfully/)
{
$load_result = "";
}
}
# print in red if there's a failure
if ( $load_result eq "NOT" ) {
$style = "style='color: red;'";
} else { $style = ""; }
print (REPORT_FILE "<B $style>\n<a href=\"@url_list[$i]\">@url_list[$i]</a> $load_result Loaded Successfully</B>\n<BR>\n");
}
close (APP_LOG_FILE);
# 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 . . . ################################################
################################################################################
################################################################################
sub get_build_date {
open (XUL_FILE, "< $apprunner_samples/navigator.xul");
$BuildNo = "";
$LineList;
while (<XUL_FILE>)
{
chop;
if (/Build ID/)
{
@LineList = split / /;
$BuildNo = $LineList[4];
}
}
close( XUL_FILE );
$BuildNo =~ s/"/ /g;
return $BuildNo;
}
sub launch_apprunner{
my $url = shift || "";
if ( $pid = fork ) {
# parent will wait $test_duration seconds, then kill kid.
sleep ( $test_duration );
system("killall -9 apprunner");
}
else {
#child runs aprrunner to see if it even launches.
print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n";
if ( $url eq "" ){
exec "$apprunner > $apprunner_log 2>&1";
} else {
exec "$apprunner -url $url > $apprunner_log 2>&1";
}
print "exec error: this line of code should never be reached\n" and die;
}
}
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;
}

18
tools/tests/launchviewer.bat
Просмотреть файл

@ -1,18 +0,0 @@
rem This batch file simply runs the viewer with appropriate
rem command line arguments to cause it to visit a series of
rem urls (specified in url.txt) and allows 15 seconds for each
rem to load.
rem the output is put into smoke_status.txt. This is where you
rem will find if it successfully finished loading the various
rem pages in the allotted 15 seconds.
rem if the url.txt gets too large, the log file will suck.
rem keep that in mind. If it looks like it's getting unmanagable,
rem Bindu has some alternative filters to run it through to weed
rem out the interesting information. She can be contacted at
rem bsharma@netscape.com
@echo off
y:\recover\mozilla\dist\WIN32_D.OBJ\bin\viewer.exe -v -d 15 -f y:\url.txt > y:\smoke.status.txt

Двоичные данные
tools/tests/mac/IntlSmoke.txt
Просмотреть файл

Двоичный файл не отображается.

Двоичные данные
tools/tests/mac/all_smoke.txt
Просмотреть файл

Двоичный файл не отображается.

Двоичные данные
tools/tests/mac/apFrame.inc
Просмотреть файл

Двоичный файл не отображается.

Двоичные данные
tools/tests/mac/i18n_smoketest.t
Просмотреть файл

Двоичный файл не отображается.

Двоичные данные
tools/tests/mac/smoketest.t
Просмотреть файл

Двоичный файл не отображается.

325
tools/tests/unix/smoke.pl
Просмотреть файл

@ -1,325 +0,0 @@
#! /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 = 30; # seconds before i deem this url timed out
# TODO: get apprunner working with relative paths. the problem with
# this is LD_LIBRARY_PATH and MOZILLA_FIVE_HOME want absolute
# paths, so we need to get the pwd and replace 'tools/tests/unix'
# with 'dist/bin' -- then we're golden.
#$apprunner_bin = '/u/phillip/seamonkey/linux/package';
chop($start_dir = `pwd`);
$apprunner_bin = '../../../dist/bin';
chdir($apprunner_bin);
# need the absolute path, not the relative one
chop($apprunner_bin = `pwd`);
#nothing else needs to be changed
$apprunner = "$apprunner_bin/apprunner";
$apprunner_samples = "$apprunner_bin/res/samples";
$apprunner_log = $start_dir . '/smoketest.log';
#$mail_log = '/tmp/maillog.txt';
#open (LOG_FILE, ">> $apprunner_log");
#print LOG_FILE "Starting directory is $start_dir \n";
#print LOG_FULE "apprunner binary is $apprunner \n";
#print LOG_FULE "Samples directory is $apprunner_samples \n";
#close (LOG_FILE);
# 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;
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
# its 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 || "";
if( $url ne "" ) { $url = "-url " . $url; }
local $run_time = 'E2-FAILED';
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 \((\d*\.\d*) secs/) {
$run_time = $1;
last; # we can quit if we get a Document: Done message
}
if (/loaded successfully/) {
if ($run_time eq 'E2-FAILED') {
$run_time = -1 ;
}
last; # we can quit if we get a loaded successfully message
}
$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;
# yuck. killall is very bad for solaris.
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 || $start_dir . "/url.txt";
my $i = 0;
open (URL_FILE, "< $url");
while (<URL_FILE>) {
chop;
$url_list[$i++] = $_;
}
}
__END__

35
tools/tests/unix/url.txt
Просмотреть файл

@ -1,35 +0,0 @@
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
http://www.browserwatch.com

25
tools/tests/url.txt
Просмотреть файл

@ -1,25 +0,0 @@
http://www.yahoo.com
http://www.netscape.com
http://www.microsoft.com
http://www.excite.com
http://www.mapquest.com
http://www.city.net
http://www.webcrawler.com
http://www.mirabilis.com
http://www.infoseek.com
http://www.pathfinder.com
http://www.warnerbros.com
http://www.cnn.com
http://www.altavista.com
http://www.usatoday.com
http://www.disney.com
http://www.go.com
http://www.bloomberg.com
http://www.cnet.com
http://www.search.com
http://www.news.com
http://www.download.com
http://www.geocities.com
http://www.aol.com
http://members.aol.com
http://www.imdb.com

148
tools/tests/win32/Copy.pm
Просмотреть файл

@ -1,148 +0,0 @@
# File/Copy.pm. Written in 1994 by Aaron Sherman <ajs@ajs.com>. This
# source code has been placed in the public domain by the author.
# Please be kind and preserve the documentation.
#
package File::Copy;
require Exporter;
use Carp;
@ISA=qw(Exporter);
@EXPORT=qw(copy);
@EXPORT_OK=qw(copy cp);
$File::Copy::VERSION = '1.5';
$File::Copy::Too_Big = 1024 * 1024 * 2;
sub VERSION {
# Version of File::Copy
return $File::Copy::VERSION;
}
sub copy {
croak("Usage: copy( file1, file2 [, buffersize]) ")
unless(@_ == 2 || @_ == 3);
my $from = shift;
my $to = shift;
my $recsep = $\;
my $closefrom=0;
my $closeto=0;
my ($size, $status, $r, $buf);
local(*FROM, *TO);
$\ = '';
if (ref(\$from) eq 'GLOB') {
*FROM = $from;
} elsif (defined ref $from and
(ref($from) eq 'GLOB' || ref($from) eq 'FileHandle')) {
*FROM = *$from;
} else {
open(FROM,"<$from")||goto(fail_open1);
$closefrom = 1;
}
if (ref(\$to) eq 'GLOB') {
*TO = $to;
} elsif (defined ref $to and
(ref($to) eq 'GLOB' || ref($to) eq 'FileHandle')) {
*TO = *$to;
} else {
open(TO,">$to")||goto(fail_open2);
$closeto=1;
}
if (@_) {
$size = shift(@_) + 0;
croak("Bad buffer size for copy: $size\n") unless ($size > 0);
} else {
$size = -s FROM;
$size = 1024 if ($size < 512);
$size = $File::Copy::Too_Big if ($size > $File::Copy::Too_Big);
}
$buf = '';
while(defined($r = read(FROM,$buf,$size)) && $r > 0) {
if (syswrite (TO,$buf,$r) != $r) {
goto fail_inner;
}
}
goto fail_inner unless(defined($r));
close(TO) || goto fail_open2 if $closeto;
close(FROM) || goto fail_open1 if $closefrom;
$\ = $recsep;
return 1;
# All of these contortions try to preserve error messages...
fail_inner:
if ($closeto) {
$status = $!;
$! = 0;
close TO;
$! = $status unless $!;
}
fail_open2:
if ($closefrom) {
$status = $!;
$! = 0;
close FROM;
$! = $status unless $!;
}
fail_open1:
$\ = $recsep;
return 0;
}
*cp = \&copy;
1;
__END__
=head1 NAME
File::Copy - Copy files or filehandles
=head1 USAGE
use File::Copy;
copy("file1","file2");
copy("Copy.pm",\*STDOUT);'
use POSIX;
use File::Copy cp;
$n=FileHandle->new("/dev/null","r");
cp($n,"x");'
=head1 DESCRIPTION
The Copy module provides one function (copy) which takes two
parameters: a file to copy from and a file to copy to. Either
argument may be a string, a FileHandle reference or a FileHandle
glob. Obviously, if the first argument is a filehandle of some
sort, it will be read from, and if it is a file I<name> it will
be opened for reading. Likewise, the second argument will be
written to (and created if need be).
An optional third parameter can be used to specify the buffer
size used for copying. This is the number of bytes from the
first file, that wil be held in memory at any given time, before
being written to the second file. The default buffer size depends
upon the file, but will generally be the whole file (up to 2Mb), or
1k for filehandles that do not reference files (eg. sockets).
You may use the syntax C<use File::Copy "cp"> to get at the
"cp" alias for this function. The syntax is I<exactly> the same.
=head1 RETURN
Returns 1 on success, 0 on failure. $! will be set if an error was
encountered.
=head1 AUTHOR
File::Copy was written by Aaron Sherman <ajs@ajs.com> in 1995.
=cut

77
tools/tests/win32/Intlurl.pl
Просмотреть файл

@ -1,77 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
#############################################
open (REPORT_FILE, '>>report.html');
print (REPORT_FILE "<HR>\n");
print (REPORT_FILE "<B><CENTER><font size=+2>\n");
print (REPORT_FILE "Loading International Sites Results");
print (REPORT_FILE "</font></CENTER></B>\n");
open (URL_FILE, '<Intlurl.txt');
$i = 0;
while (<URL_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
$url_list[$i] = $ThisLine;
$i += 1;
}
for ($i = 0; $i < 13; $i ++)
{
$count = 0;
open (STDOUT, ">log.txt");
select STDOUT; $| =1;
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "apprunner $url_list[$i]";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\apprunner.exe",
"$temp.\\apprunner.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
sleep (90);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
open (APP_LOG_FILE, '< log.txt');
while (<APP_LOG_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/loaded successfully/)
{
$count = $count + 1;
}
}
if ($count >= 1)
{
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "@url_list[$i] Loaded Successfully");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
$count = 0;
}
else
{
print (REPORT_FILE "<B><FONT COLOR='#FF0000'>\n");
print (REPORT_FILE "$url_list[$i] NOT Loaded Successfully");
print (REPORT_FILE "</FONT></B>\n");
print (REPORT_FILE "<BR>\n");
}
close (APP_LOG_FILE);
}
close (REPORT_FILE);

13
tools/tests/win32/Intlurl.txt
Просмотреть файл

@ -1,13 +0,0 @@
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

145
tools/tests/win32/Process.pm
Просмотреть файл

@ -1,145 +0,0 @@
package Win32::Process;
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
$VERSION = '0.04';
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
CREATE_DEFAULT_ERROR_MODE
CREATE_NEW_CONSOLE
CREATE_NEW_PROCESS_GROUP
CREATE_NO_WINDOW
CREATE_SEPARATE_WOW_VDM
CREATE_SUSPENDED
CREATE_UNICODE_ENVIRONMENT
DEBUG_ONLY_THIS_PROCESS
DEBUG_PROCESS
DETACHED_PROCESS
HIGH_PRIORITY_CLASS
IDLE_PRIORITY_CLASS
INFINITE
NORMAL_PRIORITY_CLASS
REALTIME_PRIORITY_CLASS
THREAD_PRIORITY_ABOVE_NORMAL
THREAD_PRIORITY_BELOW_NORMAL
THREAD_PRIORITY_ERROR_RETURN
THREAD_PRIORITY_HIGHEST
THREAD_PRIORITY_IDLE
THREAD_PRIORITY_LOWEST
THREAD_PRIORITY_NORMAL
THREAD_PRIORITY_TIME_CRITICAL
);
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function.
my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
my $val = constant($constname);
if ($! != 0) {
my ($pack,$file,$line) = caller;
die "Your vendor has not defined Win32::Process macro $constname, used at $file line $line.";
}
eval "sub $AUTOLOAD { $val }";
goto &$AUTOLOAD;
} # end AUTOLOAD
bootstrap Win32::Process;
1;
__END__
=head1 NAME
Win32::Process - Create and manipulate processes.
=head1 SYNOPSIS
use Win32::Process;
use Win32;
sub ErrorReport{
print Win32::FormatMessage( Win32::GetLastError() );
}
Win32::Process::Create($ProcessObj,
"D:\\winnt35\\system32\\notepad.exe",
"notepad temp.txt",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport();
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);
=head1 DESCRIPTION
This module allows for control of processes in Perl.
=head1 METHODS
=over 8
=item Win32::Process::Create($obj,$appname,$cmdline,$iflags,$cflags,$curdir)
Creates a new process.
Args:
$obj container for process object
$appname full path name of executable module
$cmdline command line args
$iflags flag: inherit calling processes handles or not
$cflags flags for creation (see exported vars below)
$curdir working dir of new process
=item $ProcessObj->Suspend()
Suspend the process associated with the $ProcessObj.
=item $ProcessObj->Resume()
Resume a suspended process.
=item $ProcessObj->Kill( $ExitCode )
Kill the associated process, have it die with exit code $ExitCode.
=item $ProcessObj->GetPriorityClass($class)
Get the priority class of the process.
=item $ProcessObj->SetPriorityClass( $class )
Set the priority class of the process (see exported values below for
options).
=item $ProcessObj->GetProcessAffinitymask( $processAffinityMask, $systemAffinitymask)
Get the process affinity mask. This is a bitvector in which each bit
represents the processors that a process is allowed to run on.
=item $ProcessObj->SetProcessAffinitymask( $processAffinityMask )
Set the process affinity mask. Only available on Windows NT.
=item $ProcessObj->GetExitCode( $ExitCode )
Retrieve the exitcode of the process.
=item $ProcessObj->Wait($Timeout)
Wait for the process to die. forever = INFINITE
=back
=cut
# Local Variables:
# tmtrack-file-task: "Win32::Process"
# End:

121
tools/tests/win32/apprunner.pl
Просмотреть файл

@ -1,121 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
#print ($BaseDir, "\n");
#############################################
open (REPORT_FILE, '>report.html');
#open (XUL_FILE, '< c:\program files\netscape\seamonkey\x86rel\res\samples\navigator.xul') || die "cannot open hardcode path \n";
$NavXul = $BaseDir . '\res\samples\navigator.xul';
print ($NavXul, "\n");
open (XUL_FILE, "< $NavXul") || die "cannot open $NavXul";
$BuildNo = "";
$LineList;
while (<XUL_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/Build ID/)
{
@LineList = split (/ /, $ThisLine);
$BuildNo = $LineList[3];
}
}
$BuildNo =~ s/"/ /g;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)= localtime;
%weekday= (
"1", "$day",
'2', 'Tuesday',
'3', 'Wednesday',
'4', 'Thursday',
'5', 'Friday',
'6', 'Saturday',
'7', 'Sunday',
);
$mon += 1;
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>\n");
print (REPORT_FILE "Win32</CENTER></H1>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B><CENTER>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "$weekday{$wday} $mon/$mday/19$year ");
printf (REPORT_FILE "%02d:%02d:%02d", $hour,$min,$sec);
print (REPORT_FILE "</B></CENTER>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B><CENTER>\n");
print (REPORT_FILE "Build Number: $BuildNo");
print (REPORT_FILE "</CENTER></B>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<HR>\n");
#############################################
open (STDOUT, ">log.txt");
select STDOUT; $| =1;
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "apprunner";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\apprunner.exe",
"$temp.\\apprunner.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
#print APPRUNNER_LOG $_;
sleep (30);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
#############################################
print (REPORT_FILE "<B><CENTER><font size=+2>\n");
print (REPORT_FILE "Launch Apprunner Results");
print (REPORT_FILE "</font></CENTER></B>\n");
$count = 0;
open (APP_LOG_FILE, '< log.txt');
while (<APP_LOG_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/loaded successfully/)
{
#print (REPORT_FILE "<B>\n");
#print (REPORT_FILE "$ThisLine");
#print (REPORT_FILE "</B>\n");
#print (REPORT_FILE "<BR>\n");
$count = $count + 1;
}
}
if ($count >= 1)
{
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "Apprunner Loaded Successfully");
print (REPORT_FILE "</B></Center>\n");
print (REPORT_FILE "<BR>\n");
}
else
{
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "Apprunner NOT Loaded Successfully");
print (REPORT_FILE "</B></Center>\n");
print (REPORT_FILE "<BR>\n");
}
close (APP_LOG_FILE);
#########################################
close (REPORT_FILE);

12043
tools/tests/win32/inbox
Просмотреть файл

Разница между файлами не показана из-за своего большого размера Загрузить разницу

Двоичные данные
tools/tests/win32/inbox.snm
Просмотреть файл

Двоичный файл не отображается.

95
tools/tests/win32/mail.pl
Просмотреть файл

@ -1,95 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
open (REPORT_FILE, '>>report.html');
print (REPORT_FILE "<HR>\n");
print (REPORT_FILE "<B><CENTER><font size=+2>\n");
print (REPORT_FILE "Apprunner Mail Results");
print (REPORT_FILE "</font></CENTER></B>\n");
open (STDOUT, ">log.txt");
select STDOUT; $| =1;
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "apprunner -mail";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\apprunner.exe",
"$temp.\\apprunner.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
#print APPRUNNER_LOG $_;
sleep (30);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
$status = 0;
#open (LOG_FILE, '< c:\program files\netscape\seamonkey\x86rel\MailSmokeTest.txt');
$MailRes = $BaseDir . '\MailSmokeTest.txt';
open (MAIL_FILE, "< $MailRes");
$ThisLine;
while (<LOG_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/Mailbox Done/)
{
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "Mail Window Loaded SUCCESSFULLY");
$status = 1;
print (REPORT_FILE "<Center></B>\n");
print (REPORT_FILE "<BR>\n");
}
else
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "MAIL NOT LOADED");
print (REPORT_FILE "</Center></B>\n");
print (REPORT_FILE "<BR>\n");
}
}
print ("AFTER Mail\n");
print (REPORT_FILE "<HR>\n");
if ($status >= 1)
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "Application Terminated.");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "MAIL NOT LOADED");
print (REPORT_FILE "</Center></B>\n");
print (REPORT_FILE "<BR>\n");
# die ("Application terminated\n");
}
#if (!(-e 'c:\program files\netscape\seamonkey\x86rel\MailSmokeTest.txt'))
print ($MailRes);
if ((-e $MailRes))
{
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "</Center></B>\n");
print (REPORT_FILE "<BR>\n");
}
else
{
print (REPORT_FILE "<B><Center>\n");
print (REPORT_FILE "Mail Output file NOT found.");
print (REPORT_FILE "</Center></B>\n");
print (REPORT_FILE "<BR>\n");
}
close (LOG_FILE);
close (REPORT_FILE);

9
tools/tests/win32/message.eml
Просмотреть файл

@ -1,9 +0,0 @@
From: <mscott@netscape.com>
Subject: Test of the SMTP Protocol....
Organization: Netscape Communications Co.
This is a test of the smtp protocol. This message is being sent by the new
SMTP protocol module. This message has been hard coded into a text file
and then wrapped up into an nsSmtpUrl.
-Scott

86
tools/tests/win32/pop3.pl
Просмотреть файл

@ -1,86 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
open (REPORT_FILE, '>>report.html');
$count = 0;
#if (-e 'c:\program files\netscape\seamonkey\x86rel\pop3test.exe')
$PopFile = $BaseDir . '\pop3test.exe';
if (-e $PopFile)
{
open (STDOUT, ">popresult.txt");
select STDOUT; $| =1;
open (STDIN, "<poptestdata.txt");
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "pop3test";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\pop3test.exe",
"$temp.\\pop3test.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
#print APPRUNNER_LOG $_;
sleep (3);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
close (STDIN);
open (POPRES_FILE, '< popresult.txt');
$ThisLine = "";
$count = 0;
while (<POPRES_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if ((/User Name: smoketst/) || (/Pop Server: nsmail-1/) || (/Pop Password: l00N!e/))
{
$count = 0;
}
if (/Ya'll got mail!/)
{
$count = 0;
}
}
if ($count == 0)
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "POP TEST PASSED");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
}
else
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "POP TEST FAILED");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
}
}
else
{
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "Pop3Test.exe File does NOT exist");
print (REPORT_FILE "</B>\n");
}
close (REPORT_FILE);
close (POPRES_FILE);
print (REPORT_FILE "<HR>\n");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "</BODY>\n");
print (REPORT_FILE "</HTML>\n");

12
tools/tests/win32/popresult.txt
Просмотреть файл

@ -1,12 +0,0 @@
Enter command number: Commands currently available:
0) List available commands.
1) Check new mail.
2) Get mail account url.
3) Uidl.
4) Get new mail.
5) Check identity information.
9) Exit the test application.
Enter command number: No accounts. I'll try to migrate 4.x prefs..
Tried to upgrade old prefs, but couldn't find server type!
Unable to retrieve the outgoing server interface....
Enter command number: Enter command number: Enter command number: Terminating Pop3 test harness....

5
tools/tests/win32/poptestdata.txt
Просмотреть файл

@ -1,5 +0,0 @@
0
5
1
4
9

11
tools/tests/win32/smoke.pl
Просмотреть файл

@ -1,11 +0,0 @@
#!/perl/bin/perl
@ARGV[0];
$BaseDir = $ARGV[0];
#print ($BaseDir, "\n");
system ("apprunner.pl \"$BaseDir\"");
system ("url.pl \"$BaseDir\"");
system ("mail.pl \"$BaseDir\"");
system ("smtp.pl \"$BaseDir\"");
system ("pop3.pl \"$BaseDir\"");
system ("Intlurl.pl \"$BaseDir\"");

78
tools/tests/win32/smtp.pl
Просмотреть файл

@ -1,78 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
open (REPORT_FILE, '>>report.html');
$count = 0;
#if (-e 'c:\program files\netscape\seamonkey\x86rel\smtptest.exe')
print ($BaseDir, "\n");
$SmtpFile = $BaseDir . '\Smtptest.exe';
print ($SmtpFile, "\n");
if (-e $SmtpFile)
{
open (STDOUT, ">smtpresult.txt");
select STDOUT; $| =1;
open (STDIN, "<smtptestdata.txt");
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "smtptest";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\smtptest.exe",
"$temp.\\smtptest.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
#print APPRUNNER_LOG $_;
sleep (3);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
open (SMTPRES_FILE, '< smtpresult.txt');
$ThisLine = "";
while (<SMTPRES_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/Message Sent: PASSED/)
{
$count = $count + 1;
}
}
if ($count >= 1)
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "SMTP TEST PASSED");
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "$ThisLine");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
}
else
{
print (REPORT_FILE "<BR>\n");
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "SMTP TEST FAILED");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
}
}
else
{
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "smtpTest.exe File does NOT exist");
print (REPORT_FILE "</B>\n");
}
print (REPORT_FILE "<HR>\n");
close (REPORT_FILE);

3
tools/tests/win32/smtpresult.txt
Просмотреть файл

@ -1,3 +0,0 @@
Enter port to use [25]: Enter host name to use [nsmail-2.mcom.com]: Enter command number: Location of message [message.eml]: Recipient of message [mscott@netscape.com]: No accounts. I'll try to migrate 4.x prefs..
Tried to upgrade old prefs, but couldn't find server type!
Enter command number: Terminating Smtp test harness....

6
tools/tests/win32/smtptestdata.txt
Просмотреть файл

@ -1,6 +0,0 @@
25
nsmail-1.mcom.com
1
message.eml
smoketst@netscape.com
9

15
tools/tests/win32/test.pl
Просмотреть файл

@ -1,15 +0,0 @@
#!/perl/bin/perl
@ARGV[0];
$Dir = $ARGV[0];
sleep (3);
print ($Dir);
$temp = $Dir;
$slash = "-"."-";
print ("\n");
print ($slash);
$temp =~ s/'\'/$slash/g;
print ("\n");
print ($temp);

77
tools/tests/win32/url.pl
Просмотреть файл

@ -1,77 +0,0 @@
#!/perl/bin/perl
@ARGV;
$BaseDir = $ARGV[0];
#############################################
open (REPORT_FILE, '>>report.html');
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");
open (URL_FILE, '<url.txt');
$i = 0;
while (<URL_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
$url_list[$i] = $ThisLine;
$i += 1;
}
for ($i = 0; $i < 21; $i ++)
{
$count = 0;
open (STDOUT, ">log.txt");
select STDOUT; $| =1;
$temp = $BaseDir;
$temp =~ s/\\/\\\\/g;
use Win32::Process;
use Win32;
$cmdLine = "apprunner $url_list[$i]";
Win32::Process::Create($ProcessObj,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\apprunner.exe",
"$temp.\\apprunner.exe",
$cmdLine,
1,
NORMAL_PRIORITY_CLASS,
# "c:\\program files\\netscape\\seamonkey\\x86rel\\");
"$temp");
sleep (60);
$ProcessObj->GetExitCode( $ExitCode );
$ProcessObj->Kill( $ExitCode );
close (STDOUT);
open (APP_LOG_FILE, '< log.txt');
while (<APP_LOG_FILE>)
{
$ThisLine = $_;
chop ($ThisLine);
if (/loaded successfully/)
{
$count = $count + 1;
}
}
if ($count >= 1)
{
print (REPORT_FILE "<B>\n");
print (REPORT_FILE "@url_list[$i] Loaded Successfully");
print (REPORT_FILE "</B>\n");
print (REPORT_FILE "<BR>\n");
$count = 0;
}
else
{
print (REPORT_FILE "<B><FONT COLOR='#FF0000'>\n");
print (REPORT_FILE "$url_list[$i] NOT Loaded Successfully");
print (REPORT_FILE "</FONT></B>\n");
print (REPORT_FILE "<BR>\n");
}
close (APP_LOG_FILE);
}
close (REPORT_FILE);

21
tools/tests/win32/url.txt
Просмотреть файл

@ -1,21 +0,0 @@
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