Add test for % encoding in hostname

Author: oalders

Changes

@@ -1,6 +1,8 @@
 Revision history for HTTP-Daemon
 
 {{$NEXT}}
+  - An IPv6 zone separator must be URI-quoted (GH#47) (Petr Pisar and Olaf
+    Alders)
 
 6.10      2020-05-26 16:20:36Z
   - No changes since TRIAL release 6.09

t/encoding.t

@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+use HTTP::Daemon ();
+use Socket qw( AF_INET6 );
+
+{
+    no warnings 'redefine';
+    local *IO::Socket::sockdomain = sub { return Socket::AF_INET6 };
+    local *IO::Socket::IP::sockhost
+        = sub { return q{fe80::250:54ff:fe00:f01%ens3} };
+
+    my $d = HTTP::Daemon->new;
+    is($d->sockhost, q{fe80::250:54ff:fe00:f01%ens3}, 'we overrode sockhost');
+    is($d->sockdomain, Socket::AF_INET6, 'we overrode sockdomain');
+
+    like(
+        $d->url,
+        qr{\Q[fe80::250:54ff:fe00:f01%25ens3]\E},
+        '% is encoded in host'
+    );
+
+}
+
+done_testing;