/[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

Annotation of /trunk/t/2_soap.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 56 - (hide annotations)
Tue Jun 21 09:14:54 2005 UTC (18 years, 9 months ago) by dpavlin
File MIME type: application/x-troff
File size: 2366 byte(s)
added from address to SOAP method NewList, added ext_id to add_member_to_list

1 dpavlin 39 #!/usr/bin/perl -w
2    
3     use strict;
4     use blib;
5    
6 dpavlin 44 use Test::More tests => 22;
7 dpavlin 39
8     BEGIN {
9     use_ok('Nos');
10     use_ok('SOAP::Transport::HTTP');
11     use_ok('SOAP::Lite');
12     };
13    
14     ok(my $nos = new Nos::SOAP('dsn' => 'dbi:Pg:dbname=notices'), "new");
15    
16     ok(my $daemon = new SOAP::Transport::HTTP::Daemon(LocalAddr => 'localhost')->dispatch_to('Nos::SOAP'), "SOAP daemon");
17    
18 dpavlin 41
19     # start server
20    
21 dpavlin 39 my $pid;
22 dpavlin 40 unless ($pid = fork) {
23 dpavlin 39
24 dpavlin 40 local $SIG{HUP} = sub {
25     diag "exiting SOAP server";
26     exit 0;
27     };
28    
29 dpavlin 39 diag "SOAP server at ", $daemon->url;
30     $daemon->handle;
31 dpavlin 40
32 dpavlin 39 }
33    
34     diag "child pid: $pid";
35    
36     my $soap = SOAP::Lite
37     ->readable(1)
38     ->uri('http://localhost/Nos/SOAP/')
39     ->proxy($daemon->url);
40    
41 dpavlin 41 # NewList
42    
43 dpavlin 39 ok(my $list_id = $soap->NewList({
44     list => 'SOAP test',
45 dpavlin 56 from => 'SOAP list',
46 dpavlin 39 email => 'soap-test@example.com',
47 dpavlin 41 })->result, "NewList named");
48 dpavlin 39
49 dpavlin 41 ok(my $list_id2 = $soap->NewList(
50     'SOAP test',
51 dpavlin 56 'SOAP list',
52 dpavlin 41 'soap-test@example.com',
53     )->result, "NewList positional");
54 dpavlin 39
55 dpavlin 41 cmp_ok($list_id, '==', $list_id2, "list_id $list_id");
56    
57    
58     # AddMemberToList
59    
60 dpavlin 39 ok(my $member_id = $soap->AddMemberToList({
61     list => 'SOAP test',
62     email => 'dpavlin@rot13.org',
63     name => 'Dobrica Pavlinusic',
64 dpavlin 41 })->result, "AddMemberToList named");
65 dpavlin 39
66 dpavlin 41 ok(my $member_id2 = $soap->AddMemberToList(
67     'SOAP test',
68     'dpavlin@rot13.org',
69     'Dobrica Pavlinusic',
70     )->result, "AddMemberToList positional");
71 dpavlin 39
72 dpavlin 41 cmp_ok($member_id, '==', $member_id2, "member_id: $member_id");
73    
74    
75     # AddMessageToList
76    
77     my $msg = 'To: member@example.com
78 dpavlin 39 From: mylist@example.com
79     Subject: text
80    
81     This is a dummy test
82 dpavlin 41 ';
83 dpavlin 39
84 dpavlin 41 ok(my $message_id = $soap->AddMessageToList({
85     list => 'SOAP test',
86     message => $msg,
87     })->result, "AddMessageToList named");
88 dpavlin 39
89 dpavlin 41 ok(my $message_id2 = $soap->AddMessageToList(
90     'SOAP test',
91     $msg,
92     )->result, "AddMessageToList positional");
93    
94     cmp_ok($message_id, '==', $message_id2, "message_id: $message_id");
95    
96    
97 dpavlin 43 # ListMembers
98    
99     ok(my @arr = $soap->ListMembers({
100     list => 'SOAP test',
101     })->result, "ListMembers named");
102    
103     ok(my @arr2 = $soap->ListMembers(
104     'SOAP test',
105     )->result, "ListMembers positional");
106    
107     eq_array(\@arr, \@arr2, "members lists same");
108    
109 dpavlin 44 cmp_ok($#arr, '==', 0, "member count ok");
110    
111     cmp_ok($arr[0]->{'full_name'}, '==', 'Dobrica Pavlinusic', "full_name");
112     cmp_ok($arr[0]->{'email'}, '==', 'dpavlin@rot13.org', "email");
113    
114 dpavlin 41 # kill server
115    
116 dpavlin 40 ok(kill('HUP' => $pid), "kill $pid");
117 dpavlin 39
118 dpavlin 40 ok(waitpid($pid,0), "waitpid");
119 dpavlin 39
120     ok(! kill(0, $pid), "child dead");
121    
122     exit 1;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26