shlist

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

commit c032cde8bcb6918c5436c8d5cc3b91225185ad6c
parent 7ad4e1b6e5350c6c2d8f2dbaaebb3b5a933640b9
Author: kyle <kyle@getaddrinfo.net>
Date:   Mon, 23 Nov 2015 20:26:57 -0700

tests/new_list: add another check

Diffstat:
Mtests/new_list/test.pl | 4+++-
1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/new_list/test.pl b/tests/new_list/test.pl @@ -11,7 +11,8 @@ use test; my $sock = new_socket(); my $send_t = 'new_device'; -send_msg($sock, $send_t, "4038675309"); +my $phnum = "4038675309"; +send_msg($sock, $send_t, $phnum); my ($recv_t, $device_id, $length) = recv_msg($sock); fail "got response type '$recv_t', expected '$send_t'" if ($recv_t ne $send_t); @@ -30,3 +31,4 @@ my $id_length = length($id); fail "bad id length $id_length != 43" if ($id_length != 43); fail "recv'd name '$name' not equal to '$list_name'" if ($name ne $list_name); fail "list does not have exactly 1 member" if (@members != 1); +fail "got list member '$members[0]', expected '$phnum'" if ($members[0] ne $phnum);