generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

the simple way was too simple, so added --mktarball option.

Browse Source
This commit is contained in:
Gunter Knauf 2004-07-05 22:35:00 +00:00
parent 56edbe3804
commit 69f9d0c916
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/testcurl.pl
View File

@ -52,7 +52,7 @@ BEGIN { $^W = 1; }
use vars qw($version $fixed $infixed $CURLDIR $CVS $pwd $build $buildlog use vars qw($version $fixed $infixed $CURLDIR $CVS $pwd $build $buildlog
$buildlogname $gnulikebuild $targetos $confsuffix $binext $libext); $buildlogname $gnulikebuild $targetos $confsuffix $binext $libext);
use vars qw($name $email $desc $confopts $setupfile); use vars qw($name $email $desc $confopts $setupfile $mktarball);
# version of this script # version of this script
$version='$Revision$'; $version='$Revision$';
@ -64,11 +64,14 @@ $CURLDIR="curl";
$CVS=1; $CVS=1;
$targetos = ''; $targetos = '';
$setupfile = 'setup'; $setupfile = 'setup';
$mktarball = '';
while ($ARGV[0]) { while ($ARGV[0]) {
if ($ARGV[0] =~ /--target=/) { if ($ARGV[0] =~ /--target=/) {
$targetos = (split(/=/, shift @ARGV))[1]; $targetos = (split(/=/, shift @ARGV))[1];
} elsif ($ARGV[0] =~ /--setup=/) { } elsif ($ARGV[0] =~ /--setup=/) {
$setupfile = (split(/=/, shift @ARGV))[1]; $setupfile = (split(/=/, shift @ARGV))[1];
} elsif ($ARGV[0] =~ /--mktarball=/) {
$mktarball = (split(/=/, shift @ARGV))[1];
} else { } else {
$CURLDIR=shift @ARGV; $CURLDIR=shift @ARGV;
$CVS=0; $CVS=0;
@ -425,7 +428,9 @@ if (-f "src/curl$binext") {
} }
if ($targetos ne '' && $targetos =~ /netware/) { if ($targetos ne '' && $targetos =~ /netware/) {
#system('../../curlver.sh'); if (-f '../../curlver') {
system('../../curlver');
}
} else { } else {
logit "display curl$binext --version output"; logit "display curl$binext --version output";
@ -459,9 +464,9 @@ if ($gnulikebuild) {
print "TESTDONE: 1 tests out of 0 (dummy message)\n"; # dummy message to feign success print "TESTDONE: 1 tests out of 0 (dummy message)\n"; # dummy message to feign success
} }
# simple way to create a tarball just before the build is deleted. # create a tarball if we got that option.
if (-f '../mktarball') { if ($mktarball ne '') {
system('../mktarball'); system($mktarball);
} }
# mydie to cleanup # mydie to cleanup