diff options
Diffstat (limited to 'test/udp-zero-length-send-recv')
-rwxr-xr-x | test/udp-zero-length-send-recv | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test/udp-zero-length-send-recv b/test/udp-zero-length-send-recv new file mode 100755 index 0000000..541efd4 --- /dev/null +++ b/test/udp-zero-length-send-recv | |||
@@ -0,0 +1,37 @@ | |||
1 | #!/usr/bin/lua | ||
2 | |||
3 | --[[ | ||
4 | Show that luasocket returns an error message on zero-length UDP sends, | ||
5 | even though the send is valid, and in fact the UDP packet is sent | ||
6 | to the peer: | ||
7 | |||
8 | % sudo tcpdump -i lo -n | ||
9 | tcpdump: verbose output suppressed, use -v or -vv for full protocol decode | ||
10 | listening on lo, link-type EN10MB (Ethernet), capture size 65535 bytes | ||
11 | 13:40:16.652808 IP 127.0.0.1.56573 > 127.0.0.1.5432: UDP, length 0 | ||
12 | |||
13 | ]] | ||
14 | |||
15 | require"socket" | ||
16 | |||
17 | s = assert(socket.udp()) | ||
18 | r = assert(socket.udp()) | ||
19 | assert(r:setsockname("*", 5432)) | ||
20 | assert(s:setpeername("127.0.0.1", 5432)) | ||
21 | |||
22 | ok, emsg = s:send("") | ||
23 | if ok ~= 0 then | ||
24 | print("send of zero failed with:", ok, emsg) | ||
25 | end | ||
26 | |||
27 | assert(r:settimeout(2)) | ||
28 | |||
29 | ok, emsg = r:receive() | ||
30 | |||
31 | if not ok or string.len(ok) ~= 0 then | ||
32 | print("fail - receive of zero failed with:", ok, emsg) | ||
33 | os.exit(1) | ||
34 | end | ||
35 | |||
36 | print"ok" | ||
37 | |||