trunk/t/2_soap.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 11;

BEGIN {
        use_ok('Nos');
        use_ok('SOAP::Transport::HTTP');
        use_ok('SOAP::Lite');
};

ok(my $nos = new Nos::SOAP('dsn' => 'dbi:Pg:dbname=notices'), "new");

ok(my $daemon = new SOAP::Transport::HTTP::Daemon(LocalAddr => 'localhost')->dispatch_to('Nos::SOAP'), "SOAP daemon");

my $pid;

$SIG{CHLD} = 'IGNORE';

unless ($pid = fork) {
        diag "SOAP server at ", $daemon->url;
        $daemon->handle;
}

diag "child pid: $pid";

my $soap = SOAP::Lite
        ->readable(1)
        ->uri('http://localhost/Nos/SOAP/')
        ->proxy($daemon->url);

ok(my $list_id = $soap->NewList({
        list => 'SOAP test',
        email => 'soap-test@example.com',
})->result, "NewList");

diag "list_id: $list_id";

ok(my $member_id = $soap->AddMemberToList({
        list => 'SOAP test',
        email => 'dpavlin@rot13.org',
        name => 'Dobrica Pavlinusic',
})->result, "AddMemberToList");

diag "member_id: $member_id";

ok(my $message_id = $soap->AddMessageToList({
        list => 'SOAP test',
        message => 'To: member@example.com
From: mylist@example.com
Subject: text

This is a dummy test
',
})->result, "AddMessageToList");

diag "message_id: $message_id";

ok(kill('TERM' => $pid), "kill $pid");

sleep 1;
print `ps ax`;

ok(! kill(0, $pid), "child dead");

ok(waitpid($pid,0), "waitpid");

exit 1;
1	dpavlin	39	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6			use Test::More tests => 11;
7
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			my $pid;
19
20			$SIG{CHLD} = 'IGNORE';
21
22			unless ($pid = fork) {
23			diag "SOAP server at ", $daemon->url;
24			$daemon->handle;
25			}
26
27			diag "child pid: $pid";
28
29			my $soap = SOAP::Lite
30			->readable(1)
31			->uri('http://localhost/Nos/SOAP/')
32			->proxy($daemon->url);
33
34			ok(my $list_id = $soap->NewList({
35			list => 'SOAP test',
36			email => 'soap-test@example.com',
37			})->result, "NewList");
38
39			diag "list_id: $list_id";
40
41			ok(my $member_id = $soap->AddMemberToList({
42			list => 'SOAP test',
43			email => 'dpavlin@rot13.org',
44			name => 'Dobrica Pavlinusic',
45			})->result, "AddMemberToList");
46
47			diag "member_id: $member_id";
48
49			ok(my $message_id = $soap->AddMessageToList({
50			list => 'SOAP test',
51			message => 'To: member@example.com
52			From: mylist@example.com
53			Subject: text
54
55			This is a dummy test
56			',
57			})->result, "AddMessageToList");
58
59			diag "message_id: $message_id";
60
61			ok(kill('TERM' => $pid), "kill $pid");
62
63			sleep 1;
64			print `ps ax`;
65
66			ok(! kill(0, $pid), "child dead");
67
68			ok(waitpid($pid,0), "waitpid");
69
70			exit 1;