summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl22
1 files changed, 22 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl
new file mode 100644
index 00000000..a5467747
--- /dev/null
+++ b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl
@@ -0,0 +1,22 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib qw(blib/lib lib);
+
+use IO::Socket::UNIX;
+use Server::Starter qw(server_ports);
+
+my $listener = IO::Socket::UNIX->new()
+ or die "failed to create unix socket:$!";
+$listener->fdopen((values %{server_ports()})[0], 'w')
+ or die "failde to bind to listening socket:$!";
+
+while (1) {
+ if (my $conn = $listener->accept) {
+ while ($conn->sysread(my $buf, 1048576) > 0) {
+ $conn->syswrite($buf);
+ }
+ }
+}