shlist

share and manage lists between multiple people
Log | Files | Refs

commit 93aa4a2ec5876f42e7e6f5962a93cb30c5fcb537
parent f229c342896ebc28acfaab5b70237c6cfc1cfe8a
Author: kyle <kyle@0x30.net>
Date:   Tue, 12 Jan 2016 23:47:45 -0700

tests: spruce up comments in header

Diffstat:
Mserver/tests/header/test.pl | 14++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/server/tests/header/test.pl b/server/tests/header/test.pl @@ -1,28 +1,26 @@ #!/usr/bin/perl -I../ use strict; use warnings; - use client; -# Message header sanity checks. A new connection needed every time because -# server will disconnect on header errors. +# Need a new connection every time because server disconnects on header errors. -# send an invalid message number +# Invalid message number my $client = client->new(1); $client->send_all(pack('nnn', 0, 47837, 0), 6); -# send a bad protocol version +# Bad protocol version $client = client->new(1); $client->send_all(pack('nnn', 101, 0, 0), 6); -# send a message length that's too long +# Payload length that's too long $client = client->new(1); $client->send_all(pack('nnn', 0, 0, 25143), 6); -# send a message length that's larger than the actual data sent +# Advertised payload length longer than actual data length $client = client->new(1); $client->send_all(pack('nnnZ*', 0, 0, 5, 'ab'), 9); -# send a partial header +# Truncated header $client = client->new(1); $client->send_all(pack('nn', 101, 69), 4);