--- trunk/t/2_soap.t	2005/05/18 12:29:35	43
+++ trunk/t/2_soap.t	2005/06/21 09:41:43	58
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 19;
+use Test::More tests => 22;
 
 BEGIN {
 	use_ok('Nos');
@@ -42,11 +42,13 @@
 
 ok(my $list_id = $soap->NewList({
 	list => 'SOAP test',
+	from => 'SOAP list',
 	email => 'soap-test@example.com',
 })->result, "NewList named");
 
 ok(my $list_id2 = $soap->NewList(
 	'SOAP test',
+	'SOAP list',
 	'soap-test@example.com',
 )->result, "NewList positional");
 
@@ -59,12 +61,14 @@
 	list => 'SOAP test',
 	email => 'dpavlin@rot13.org',
 	name => 'Dobrica Pavlinusic',
+	ext_id => 42,
 })->result, "AddMemberToList named");
 
 ok(my $member_id2 = $soap->AddMemberToList(
 	'SOAP test',
 	'dpavlin@rot13.org',
 	'Dobrica Pavlinusic',
+	42,
 )->result, "AddMemberToList positional");
 
 cmp_ok($member_id, '==', $member_id2, "member_id: $member_id");
@@ -104,6 +108,11 @@
 
 eq_array(\@arr, \@arr2, "members lists same");
 
+cmp_ok($#arr, '==', 0, "member count ok");
+
+cmp_ok($arr[0]->{'full_name'}, '==', 'Dobrica Pavlinusic', "full_name");
+cmp_ok($arr[0]->{'email'}, '==', 'dpavlin@rot13.org', "email");
+
 # kill server
 
 ok(kill('HUP' => $pid), "kill $pid");