diff options
| author | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-13 15:51:42 +0000 |
|---|---|---|
| committer | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-13 15:51:42 +0000 |
| commit | 754567ece20faa10d6d4de6d8f5c421b51dd259c (patch) | |
| tree | 4e21ce4702fe942c7c45277753834893858866e8 /tests/autotest-remote-server.pl | |
| parent | 1b5fa404db5c67454e9bf4fcf5b81cf924456374 (diff) | |
tests: Added remote autotest host/server scripts
git-svn-id: http://pugixml.googlecode.com/svn/trunk@422 99668b35-9821-0410-8761-19e4c4f06640
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>); + |