shlist

commit 7d30d73006936542dd84a2537223ccb1207effac
parent b03aa8ab1236b3d95c4e3d400d9869381da4f4e0
Author: kyle <kyle@0x30.net>
Date:   Sun, 17 Jan 2016 22:44:55 -0700

tests: add more verification to list_join

Diffstat:
M
server/tests/list_join/test.pl
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/server/tests/list_join/test.pl b/server/tests/list_join/test.pl
@@ -20,8 +20,10 @@ $A->list_add($list_name);
 $B->list_join($A->lists(0)->{num});
 
 # B requests its lists to make sure its committed to the list
-my @lists = $B->lists_get();
+my ($list) = $B->lists_get();
 
-# fail "request list id mismatch: '$id' ne '$list_id'" if ($id ne $list_id);
-# fail "unexpected name '$name', expected '$list_name'" if ($name ne $list_name);
-# fail "expected 2 list members, got ". @members if (@members != 2);
+# Verify what we get from server
+my $stored_list = $A->lists(0);
+for ('num', 'name', 'date') {
+	fail_msg_ne $stored_list->{$_}, $list->{$_};
+}