Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-28 23:31:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

adding the smoketest scripts

Browse Source
This commit is contained in:
bsharma%netscape.com 1999-06-07 22:29:38 +00:00
parent b9b65d633f
commit f4713568a3
19 changed files with 12965 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
tools/tests/win32/Copy.pm Normal file
View 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
View 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
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

BIN
tools/tests/win32/inbox.snm Normal file
View File

Binary file not shown.

95
tools/tests/win32/mail.pl Normal file
View 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
View 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
View 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
View 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
View File

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

11
tools/tests/win32/smoke.pl Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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