shlist

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

commit 2e3520a205f3cd644d8c714d1e8437446ca03573
parent 02d7a6a6b31ec5c2793f7c428a3c638299f1bc7c
Author: kyle <kyle@getaddrinfo.net>
Date:   Tue, 17 Nov 2015 23:11:30 -0700

tests: add new double register test

- try to register the same phone number twice

Diffstat:
Atests/double_register/Makefile | 4++++
Atests/double_register/server.log.good | 4++++
Atests/double_register/test.pl | 18++++++++++++++++++
3 files changed, 26 insertions(+), 0 deletions(-)

diff --git a/tests/double_register/Makefile b/tests/double_register/Makefile @@ -0,0 +1,4 @@ +test: + perl test.pl + +.include "../test.mk" diff --git a/tests/double_register/server.log.good b/tests/double_register/server.log.good @@ -0,0 +1,4 @@ +new connection +added new device <phone_num> <base64> +phone number 4038675309 already exists +disconnected! diff --git a/tests/double_register/test.pl b/tests/double_register/test.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl -I../ + +use strict; +use warnings; + +use MsgTypes; +use testlib; + +my $sock = new_socket(); +send_msg($sock, $msgs{new_device}, "4038675309"); +my ($type, $response, $length) = recv_msg($sock); + +# verify response length is 32 random bytes encoded with base64 +if ($length != 43) { + fail "expected response length of 43, got $length"; +} + +send_msg($sock, $msgs{new_device}, "4038675309");