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

Kevin Roth's fixes to make tests work on cygwin

Browse Source
This commit is contained in:
Daniel Stenberg 2001-10-10 21:59:10 +00:00
parent 65b9c0d44d
commit 59a76e4010
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/getpart.pm
View File

@ -119,7 +119,11 @@ sub compareparts {
for(1 .. $sizefirst) {
my $index = $_ - 1;
if($firstref->[$index] ne $secondref->[$index]) {
return 1+$index;
(my $aa = $firstref->[$index]) =~ s/\r+\n$/\n/;
(my $bb = $secondref->[$index]) =~ s/\r+\n$/\n/;
if($aa ne $bb) {
return 1+$index;
}
}
}
return 0;
@ -132,6 +136,7 @@ sub writearray {
my ($filename, $arrayref)=@_;
open(TEMP, ">$filename");
binmode(TEMP,":raw"); # cygwin fix by Kevin Roth
for(@$arrayref) {
print TEMP $_;
}

3
tests/httpserver.pl
View File

@ -137,6 +137,9 @@ for ( $waitedpid = 0;
$testnum=0;
}
open(INPUT, ">>log/server.input");
binmode(INPUT,":raw"); # this makes it work better on cygwin
for(@headers) {
print INPUT $_;
}