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

adding the smoketest scripts

This commit is contained in:
bsharma%netscape.com 1999-06-07 22:29:38 +00:00
Родитель b9b65d633f
Коммит f4713568a3
19 изменённых файлов: 12965 добавлений и 0 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -0,0 +1,148 @@
# 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 Normal file
Просмотреть файл

@ -0,0 +1,77 @@
#!/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 (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);

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

@ -0,0 +1,13 @@
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 Normal file
Просмотреть файл

@ -0,0 +1,145 @@
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 Normal file
Просмотреть файл

@ -0,0 +1,121 @@
#!/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 Normal file
Просмотреть файл

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

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

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

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

@ -0,0 +1,95 @@
#!/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 Normal file
Просмотреть файл

@ -0,0 +1,9 @@
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 Normal file
Просмотреть файл

@ -0,0 +1,86 @@
#!/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 Normal file
Просмотреть файл

@ -0,0 +1,12 @@
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 Normal file
Просмотреть файл

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

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

@ -0,0 +1,11 @@
#!/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 Normal file
Просмотреть файл

@ -0,0 +1,78 @@
#!/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 Normal file
Просмотреть файл

@ -0,0 +1,3 @@
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 Normal file
Просмотреть файл

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

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

@ -0,0 +1,15 @@
#!/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 Normal file
Просмотреть файл

@ -0,0 +1,77 @@
#!/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 Normal file
Просмотреть файл

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