Better cleanup for Test-proxied-https-auth.px.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 73d93a2f9304182121a399ab7668cc25170afd6d..3ce03f9891ee60f75b74959f7f86ba8caddaf5e6 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-12  Micah Cowan  <micah@cowan.name>
+
+       * Test-proxied-https-auth.px: Better cleanup, so next test can
+       open the port.
+
 2008-05-31  Micah Cowan  <micah@cowan.name>
 
        * Test-N-current.px: Ensure we catch failures.

diff --git a/tests/Test-proxied-https-auth.px b/tests/Test-proxied-https-auth.px
index 2260658903f39eaf699d6dc6ac0e831ba041d78e..b1de60b963f48295daaf3b9dc6abe3eea724d5f7 100755 (executable)
--- a/tests/Test-proxied-https-auth.px
+++ b/tests/Test-proxied-https-auth.px
@@ -87,7 +87,7 @@ sub fork_server {
 }
 
 system ('rm -f needs-auth.txt');
-&fork_server;
+my $pid = &fork_server;
 
 sleep 1;
 my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
@@ -98,4 +98,5 @@ my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
 my $code = system($cmdline);
 
 warn "Got code: $code\n" if $code;
+kill ('TERM', $pid);
 exit $code;