git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Give error if overflow in quota setting in appendfile on a 32-bit
[exim.git]
/
test
/
runtest
diff --git
a/test/runtest
b/test/runtest
index 2210cba3b66af6d3c06d6162db1c9d9dec09a470..d5a161234dc855aa534f5c6660987ce8f3e87a5f 100755
(executable)
--- a/
test/runtest
+++ b/
test/runtest
@@
-1,6
+1,6
@@
#! /usr/bin/perl -w
#! /usr/bin/perl -w
-# $Cambridge: exim/test/runtest,v 1.
3 2006/02/09 14:50:58
ph10 Exp $
+# $Cambridge: exim/test/runtest,v 1.
4 2006/02/10 16:29:20
ph10 Exp $
###############################################################################
# This is the controlling script for the "new" test suite for Exim. It should #
###############################################################################
# This is the controlling script for the "new" test suite for Exim. It should #
@@
-36,6
+36,7
@@
$server_opts = "";
$have_ipv4 = 1;
$have_ipv6 = 1;
$have_ipv4 = 1;
$have_ipv6 = 1;
+$have_largefiles = 0;
$test_start = 1;
$test_end = $test_top = 8999;
$test_start = 1;
$test_end = $test_top = 8999;
@@
-614,7
+615,7
@@
while(<IN>)
# Maildirsize data
if (/^\d+S,\d+C\s*$/)
{
# Maildirsize data
if (/^\d+S,\d+C\s*$/)
{
- print MUNGED
"dddS,dC\n"
;
+ print MUNGED;
while (<IN>)
{
last if !/^\d+ \d+\s*$/;
while (<IN>)
{
last if !/^\d+ \d+\s*$/;
@@
-788,7
+789,8
@@
while(<IN>)
/^Transports:/ ||
/^log selectors =/ ||
/^cwd=/ ||
/^Transports:/ ||
/^log selectors =/ ||
/^cwd=/ ||
- /^Fixed never_users:/
+ /^Fixed never_users:/ ||
+ /^Size of off_t:/
);
}
);
}
@@
-1459,7
+1461,7
@@
if (/^sleep\s+(.*)$/)
# Various Unix management commands are recognized
# Various Unix management commands are recognized
-if (/^(ln|ls|du|mkdir|mkfifo|touch|cp)\s/ ||
+if (/^(ln|ls|du|mkdir|mkfifo|touch|cp
|cat
)\s/ ||
/^sudo (rmdir|rm|chown|chmod)\s/)
{
run_system("$_ >>test-stdout 2>>test-stderr");
/^sudo (rmdir|rm|chown|chmod)\s/)
{
run_system("$_ >>test-stdout 2>>test-stderr");
@@
-1952,9
+1954,14
@@
while (<EXIMINFO>)
{
my(@temp);
{
my(@temp);
- if (/^Exim version/) { print;
next;
}
+ if (/^Exim version/) { print; }
- if (/^Support for: (.*)/)
+ elsif (/^Size of off_t: (\d+)/)
+ {
+ $have_largefiles = 1 if $1 > 4;
+ }
+
+ elsif (/^Support for: (.*)/)
{
print;
@temp = split /(\s+)/, $1;
{
print;
@temp = split /(\s+)/, $1;
@@
-1962,7
+1969,7
@@
while (<EXIMINFO>)
%parm_support = @temp;
}
%parm_support = @temp;
}
- if (/^Lookups: (.*)/)
+
els
if (/^Lookups: (.*)/)
{
print;
@temp = split /(\s+)/, $1;
{
print;
@temp = split /(\s+)/, $1;
@@
-1970,7
+1977,7
@@
while (<EXIMINFO>)
%parm_lookups = @temp;
}
%parm_lookups = @temp;
}
- if (/^Authenticators: (.*)/)
+
els
if (/^Authenticators: (.*)/)
{
print;
@temp = split /(\s+)/, $1;
{
print;
@temp = split /(\s+)/, $1;
@@
-1978,7
+1985,7
@@
while (<EXIMINFO>)
%parm_authenticators = @temp;
}
%parm_authenticators = @temp;
}
- if (/^Routers: (.*)/)
+
els
if (/^Routers: (.*)/)
{
print;
@temp = split /(\s+)/, $1;
{
print;
@temp = split /(\s+)/, $1;
@@
-1990,7
+1997,7
@@
while (<EXIMINFO>)
# that the basic transport name is set, and then the name with each of the
# options.
# that the basic transport name is set, and then the name with each of the
# options.
- if (/^Transports: (.*)/)
+
els
if (/^Transports: (.*)/)
{
print;
@temp = split /(\s+)/, $1;
{
print;
@temp = split /(\s+)/, $1;
@@
-2853,6
+2860,15
@@
foreach $test (@test_list)
if (/^rmfiltertest/) { $rmfiltertest = 1; next; }
if (/^sortlog/) { $sortlog = 1; next; }
if (/^rmfiltertest/) { $rmfiltertest = 1; next; }
if (/^sortlog/) { $sortlog = 1; next; }
+ if (/^need_largefiles/)
+ {
+ next if $have_largefiles;
+ print ">>> Large file support is needed for test $testno, but is not available: skipping\n";
+ $docheck = 0; # don't check output
+ undef $_; # pretend EOF
+ last;
+ }
+
if (/^need_ipv4/)
{
next if $have_ipv4;
if (/^need_ipv4/)
{
next if $have_ipv4;