/[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 39 by dpavlin, Tue May 17 22:23:40 2005 UTC revision 40 by dpavlin, Tue May 17 22:27:09 2005 UTC
# Line 17  ok(my $daemon = new SOAP::Transport::HTT Line 17  ok(my $daemon = new SOAP::Transport::HTT
17    
18  my $pid;  my $pid;
19    
 $SIG{CHLD} = 'IGNORE';  
   
20  unless ($pid = fork) {  unless ($pid = fork) {
21    
22            local $SIG{HUP} = sub {
23                    diag "exiting SOAP server";
24                    exit 0;
25            };
26    
27          diag "SOAP server at ", $daemon->url;          diag "SOAP server at ", $daemon->url;
28          $daemon->handle;          $daemon->handle;
29    
30  }  }
31    
32  diag "child pid: $pid";  diag "child pid: $pid";
# Line 58  This is a dummy test Line 63  This is a dummy test
63    
64  diag "message_id: $message_id";  diag "message_id: $message_id";
65    
66  ok(kill('TERM' => $pid), "kill $pid");  ok(kill('HUP' => $pid), "kill $pid");
67    
68  sleep 1;  ok(waitpid($pid,0), "waitpid");
 print `ps ax`;  
69    
70  ok(! kill(0, $pid), "child dead");  ok(! kill(0, $pid), "child dead");
71    
 ok(waitpid($pid,0), "waitpid");  
   
72  exit 1;  exit 1;
Legend:
Removed from v.39  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.26