moparisthebest
/
wget
mirror of https://github.com/moparisthebest/wget
1
0
Fork 0
Code Issues Releases Wiki Activity

synchronize client and server in Test-proxied-https-auth.px

This commit is contained in:
Tim Rühsen 2014-10-28 11:40:34 +01:00
parent 56a02c1a44
commit 3eff3ad69a
2 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/ChangeLog
View File

@ -1,3 +1,7 @@
2014-10-28 Tim Ruehsen <tim.ruehsen@gmx.de>
* tests/Test-proxied-https-auth.px: synchronize client and server
2014-10-28 Giuseppe Scrivano <gscrivan@redhat.com>
* Makefile.am: Replace $FOO with @VAR@.

36
tests/Test-proxied-https-auth.px
View File

@ -49,12 +49,15 @@ sub get_request {
}
sub do_server {
my ($synch_callback) = @_;
my $alrm = alarm 10;
my $s = $SOCKET;
my $conn;
my $rqst;
my $rspn;
$synch_callback->();
for my $expect_inner_auth (0, 1) {
$conn = $s->accept;
$rqst = $conn->get_request;
@ -90,7 +93,7 @@ sub do_server {
Connection => 'close'
]);
$rspn->protocol('HTTP/1.0');
print $rspn->as_string;
print STDERR $rspn->as_string;
print $conn $rspn->as_string;
} else {
die "No proxied auth\n" unless $rqst->header('Authorization');
@ -100,9 +103,9 @@ sub do_server {
'Connection' => 'close',
], "foobarbaz\n");
$rspn->protocol('HTTP/1.0');
print "=====\n";
print $rspn->as_string;
print "\n=====\n";
print STDERR "=====\n";
print STDERR $rspn->as_string;
print STDERR "\n=====\n";
print $conn $rspn->as_string;
}
$conn->close;
@ -113,18 +116,29 @@ sub do_server {
}
sub fork_server {
my $pid = fork;
die "Couldn't fork" if ($pid < 0);
return $pid if $pid;
pipe(FROM_CHILD, TO_PARENT) or die "Cannot create pipe!";
select((select(TO_PARENT), $| = 1)[0]);
&do_server;
exit;
my $pid = fork();
if ($pid < 0) {
die "Cannot fork";
} elsif ($pid == 0) {
# child
close FROM_CHILD;
do_server(sub { print TO_PARENT "SYNC\n"; close TO_PARENT });
} else {
# parent
close TO_PARENT;
chomp(my $line = <FROM_CHILD>);
close FROM_CHILD;
}
return $pid;
}
system ('rm -f needs-auth.txt');
my $pid = &fork_server;
sleep 1;
my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
. " --password=Dodgson -e https_proxy=localhost:{{port}}"
. " --no-check-certificate"