/[notice-sender]/trunk/t/2_soap.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/2_soap.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 43 by dpavlin, Wed May 18 12:29:35 2005 UTC revision 58 by dpavlin, Tue Jun 21 09:41:43 2005 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 19;  use Test::More tests => 22;
7    
8  BEGIN {  BEGIN {
9          use_ok('Nos');          use_ok('Nos');
# Line 42  my $soap = SOAP::Lite Line 42  my $soap = SOAP::Lite
42    
43  ok(my $list_id = $soap->NewList({  ok(my $list_id = $soap->NewList({
44          list => 'SOAP test',          list => 'SOAP test',
45            from => 'SOAP list',
46          email => 'soap-test@example.com',          email => 'soap-test@example.com',
47  })->result, "NewList named");  })->result, "NewList named");
48    
49  ok(my $list_id2 = $soap->NewList(  ok(my $list_id2 = $soap->NewList(
50          'SOAP test',          'SOAP test',
51            'SOAP list',
52          'soap-test@example.com',          'soap-test@example.com',
53  )->result, "NewList positional");  )->result, "NewList positional");
54    
# Line 59  ok(my $member_id = $soap->AddMemberToLis Line 61  ok(my $member_id = $soap->AddMemberToLis
61          list => 'SOAP test',          list => 'SOAP test',
62          email => 'dpavlin@rot13.org',          email => 'dpavlin@rot13.org',
63          name => 'Dobrica Pavlinusic',          name => 'Dobrica Pavlinusic',
64            ext_id => 42,
65  })->result, "AddMemberToList named");  })->result, "AddMemberToList named");
66    
67  ok(my $member_id2 = $soap->AddMemberToList(  ok(my $member_id2 = $soap->AddMemberToList(
68          'SOAP test',          'SOAP test',
69          'dpavlin@rot13.org',          'dpavlin@rot13.org',
70          'Dobrica Pavlinusic',          'Dobrica Pavlinusic',
71            42,
72  )->result, "AddMemberToList positional");  )->result, "AddMemberToList positional");
73    
74  cmp_ok($member_id, '==', $member_id2, "member_id: $member_id");  cmp_ok($member_id, '==', $member_id2, "member_id: $member_id");
# Line 104  ok(my @arr2 = $soap->ListMembers( Line 108  ok(my @arr2 = $soap->ListMembers(
108    
109  eq_array(\@arr, \@arr2, "members lists same");  eq_array(\@arr, \@arr2, "members lists same");
110    
111    cmp_ok($#arr, '==', 0, "member count ok");
112    
113    cmp_ok($arr[0]->{'full_name'}, '==', 'Dobrica Pavlinusic', "full_name");
114    cmp_ok($arr[0]->{'email'}, '==', 'dpavlin@rot13.org', "email");
115    
116  # kill server  # kill server
117    
118  ok(kill('HUP' => $pid), "kill $pid");  ok(kill('HUP' => $pid), "kill $pid");
Legend:
Removed from v.43  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26