shlist

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

commit c0c7443e2ff040b2e10bee72db58e015a567ab4f
parent ceb4f16494ff0e0bf749b783a3114eac9b9e8157
Author: kyle <kyle@0x30.net>
Date:   Wed,  9 Dec 2015 20:57:36 -0700

tests: add new test for ok message

Diffstat:
Atests/msg_ok/Makefile | 1+
Atests/msg_ok/server.log.good | 6++++++
Atests/msg_ok/test.pl | 16++++++++++++++++
3 files changed, 23 insertions(+), 0 deletions(-)

diff --git a/tests/msg_ok/Makefile b/tests/msg_ok/Makefile @@ -0,0 +1 @@ +include ../test.mk diff --git a/tests/msg_ok/server.log.good b/tests/msg_ok/server.log.good @@ -0,0 +1,6 @@ +accepting connections on <ip>:<port> (pid = <digits>) +new connection (pid = <digits>) +ssl started, ver = 'TLSv1_2' cipher = 'ECDHE-RSA-AES128-SHA256' +new_device: success <digits> <base64> +ok: device <base64> checking in +disconnected! diff --git a/tests/msg_ok/test.pl b/tests/msg_ok/test.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl -I../ +use strict; +use warnings; +use test; + +my $sock = new_socket(); + +send_msg($sock, 'new_device', "4038675309"); +my (undef, $device_id) = recv_msg($sock); + +send_msg($sock, 'ok', $device_id); +my ($type, $response, $length) = recv_msg($sock); + +fail "expected msg type 'ok', got '$type'" if ($type ne 'ok'); +fail "expected response to be undefined, it wasn't" if (defined $response); +fail "expected response size 0, got $length" if ($length != 0);