shlist

commit c52b55b923a3afbf9754159a5011941654b3e6d2
parent eddaeb304b091d991863d7b88904167e137299ef
Author: kyle <kyle@getaddrinfo.net>
Date:   Sun, 22 Nov 2015 11:19:05 -0700

tests/new_list: start using msg number lookup functions

Diffstat:
M
tests/new_list/test.pl
 | 
16
++++++++--------

1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/tests/new_list/test.pl b/tests/new_list/test.pl
@@ -1,8 +1,6 @@
 #!/usr/bin/perl -I../
-
 use strict;
 use warnings;
-
 use test;
 
 # this test:
@@ -12,17 +10,19 @@ use test;
 # - verifies received information is congruent with what was sent
 
 my $sock = new_socket();
-send_msg($sock, 0, "4038675309");
-my ($type, $device_id, $length) = recv_msg($sock);
+my $send_t = $msg_num{new_device};
+send_msg($sock, $send_t, "4038675309");
+my ($recv_t, $device_id, $length) = recv_msg($sock);
 
-fail "got response type $type, expected 0" if ($type != 0);
+fail "got response type $recv_t, expected $send_t" if ($recv_t != $send_t);
 fail "expected response length of 43, got $length" if ($length != 43);
 
 my $list_name = "this is a new list";
-send_msg($sock, 1, "$device_id\0$list_name");
-my ($type2, $list_data, $length2) = recv_msg($sock);
+$send_t = $msg_num{new_list};
+send_msg($sock, $send_t, "$device_id\0$list_name");
+my ($recv_t2, $list_data, $length2) = recv_msg($sock);
 
-fail "got response type $type, expected 1" if ($type2 != 1);
+fail "got response type $recv_t2, expected $send_t" if ($recv_t2 != $send_t);
 
 my ($id, $name, @members) = split("\0", $list_data);
 my $id_length = length($id);