shlist

commit b444a1349e20bdb6e5d70c0a07d1b3151563ed44
parent bb61fa0f4b5688114d6b10aad8099811c1024af0
Author: kyle <kyle@getaddrinfo.net>
Date:   Sat, 28 Nov 2015 13:51:33 -0700

tests: add extra check in list_request_basic

Diffstat:
M
tests/list_request_basic/test.pl
 | 
3
+++

1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/tests/list_request_basic/test.pl b/tests/list_request_basic/test.pl
@@ -33,6 +33,7 @@ if ($type ne 'list_request') {
 my ($direct, $indirect) = split("\0\0", $list_data);
 fail "got indirect lists, expected none" if (length($indirect) != 0);
 
+my $num_lists = 0;
 for my $l (split("\0", $direct)) {
 	my ($name, $id, @members) = split(":", $l);
 	unless ($name && $id && @members) {
@@ -47,4 +48,6 @@ for my $l (split("\0", $direct)) {
 	if ($members[0] ne $phone_num) {
 		fail "unexpected list member $members[0]";
 	}
+	$num_lists++;
 }
+fail "expected 3 direct lists, got $num_lists\n" if ($num_lists != 3);