Tests: style.

proxy_unix.t

diff --git a/proxy_unix.t b/proxy_unix.t
index e3dd10b..249c8ae 100644
--- a/proxy_unix.t
+++ b/proxy_unix.t
@@ -45,7 +45,7 @@
         server_name  localhost;
 
         location / {
-            proxy_pass http://unix:/%%TESTDIR%%/unix.sock;
+            proxy_pass http://unix:%%TESTDIR%%/unix.sock;
             proxy_read_timeout 1s;
             proxy_connect_timeout 2s;
         }
@@ -59,15 +59,15 @@
 
 EOF
 
-my $d = $t->testdir();
+my $path = $t->testdir() . '/unix.sock';
 
-$t->run_daemon(\&http_daemon, $d);
+$t->run_daemon(\&http_daemon, $path);
 $t->run();
 
 # wait for unix socket to appear
 
 for (1 .. 50) {
-	last if -S "$d/unix.sock";
+	last if -S $path;
 	select undef, undef, undef, 0.1;
 }
 
@@ -78,16 +78,14 @@
 
 unlike(http_head('/'), qr/SEE-THIS/, 'proxy head request');
 
-like(http_get("/var?b=unix:/$d/unix.sock:/"), qr/SEE-THIS/, 'proxy variables');
+like(http_get("/var?b=unix:$path:/"), qr/SEE-THIS/, 'proxy with variables');
 
 ###############################################################################
 
 sub http_daemon {
-	my ($d) = @_;
-
 	my $server = IO::Socket::UNIX->new(
 		Proto => 'tcp',
-		Local => "$d/unix.sock",
+		Local => shift,
 		Listen => 5,
 		Reuse => 1
 	)