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