diff options
Diffstat (limited to 'tests/autotest-remote-server.pl')
| -rw-r--r-- | tests/autotest-remote-server.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/autotest-remote-server.pl b/tests/autotest-remote-server.pl new file mode 100644 index 0000000..e113808 --- /dev/null +++ b/tests/autotest-remote-server.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use IO::Socket; + +my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1); +die "Could not create socket: $!\n" unless $server; + +my $client = $server->accept(); + +print while (<$client>); + |