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:
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);