--- trunk/t/2_soap.t	2005/05/17 22:27:09	40
+++ trunk/t/2_soap.t	2005/05/18 08:31:52	41
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 11;
+use Test::More tests => 17;
 
 BEGIN {
 	use_ok('Nos');
@@ -15,8 +15,10 @@
 
 ok(my $daemon = new SOAP::Transport::HTTP::Daemon(LocalAddr => 'localhost')->dispatch_to('Nos::SOAP'), "SOAP daemon");
 
-my $pid;
 
+# start server
+
+my $pid;
 unless ($pid = fork) {
 
 	local $SIG{HUP} = sub {
@@ -36,32 +38,61 @@
 	->uri('http://localhost/Nos/SOAP/')
 	->proxy($daemon->url);
 
+# NewList
+
 ok(my $list_id = $soap->NewList({
 	list => 'SOAP test',
 	email => 'soap-test@example.com',
-})->result, "NewList");
+})->result, "NewList named");
+
+ok(my $list_id2 = $soap->NewList(
+	'SOAP test',
+	'soap-test@example.com',
+)->result, "NewList positional");
 
-diag "list_id: $list_id";
+cmp_ok($list_id, '==', $list_id2, "list_id $list_id");
+
+
+# AddMemberToList
 
 ok(my $member_id = $soap->AddMemberToList({
 	list => 'SOAP test',
 	email => 'dpavlin@rot13.org',
 	name => 'Dobrica Pavlinusic',
-})->result, "AddMemberToList");
+})->result, "AddMemberToList named");
 
-diag "member_id: $member_id";
+ok(my $member_id2 = $soap->AddMemberToList(
+	'SOAP test',
+	'dpavlin@rot13.org',
+	'Dobrica Pavlinusic',
+)->result, "AddMemberToList positional");
 
-ok(my $message_id = $soap->AddMessageToList({
-	list => 'SOAP test',
-	message => 'To: member@example.com
+cmp_ok($member_id, '==', $member_id2, "member_id: $member_id");
+
+
+# AddMessageToList
+
+my $msg = 'To: member@example.com
 From: mylist@example.com
 Subject: text
 
 This is a dummy test
-',
-})->result, "AddMessageToList");
+';
+
+ok(my $message_id = $soap->AddMessageToList({
+	list => 'SOAP test',
+	message => $msg,
+})->result, "AddMessageToList named");
+
+ok(my $message_id2 = $soap->AddMessageToList(
+	'SOAP test',
+	$msg,
+)->result, "AddMessageToList positional");
+
+cmp_ok($message_id, '==', $message_id2, "message_id: $message_id");
+
 
-diag "message_id: $message_id";
+# kill server
 
 ok(kill('HUP' => $pid), "kill $pid");