Commit | Line | Data |
---|---|---|
d91d68c1 RS |
1 | #!./perl |
2 | ||
3 | ##################################################################### | |
4 | # | |
5 | # Test for process id return value from open | |
6 | # Ronald Schmidt (The Software Path) RonaldWS@software-path.com | |
7 | # | |
8 | ##################################################################### | |
9 | ||
10 | BEGIN { | |
11 | chdir 't' if -d 't'; | |
20822f61 | 12 | @INC = '../lib'; |
f0060996 | 13 | require './test.pl'; |
d91d68c1 RS |
14 | } |
15 | ||
7b903762 | 16 | if ($^O eq 'dos') { |
f0060996 MS |
17 | skip_all("no multitasking"); |
18 | } | |
19 | ||
20 | plan tests => 10; | |
802cb175 | 21 | watchdog(15, $^O eq 'MSWin32' ? "alarm" : ''); |
f0060996 | 22 | |
4d61ec05 | 23 | use Config; |
d27127a1 | 24 | $| = 1; |
d91d68c1 | 25 | $SIG{PIPE} = 'IGNORE'; |
0c52c6a9 | 26 | $SIG{HUP} = 'IGNORE' if $^O eq 'interix'; |
d91d68c1 | 27 | |
f0060996 | 28 | my $perl = which_perl(); |
c8fc8fb0 | 29 | $perl .= qq[ "-I../lib"]; |
d91d68c1 RS |
30 | |
31 | # | |
32 | # commands run 4 perl programs. Two of these programs write a | |
33 | # short message to STDOUT and exit. Two of these programs | |
34 | # read from STDIN. One reader never exits and must be killed. | |
35 | # the other reader reads one line, waits a few seconds and then | |
36 | # exits to test the waitpid function. | |
37 | # | |
c8fc8fb0 JH |
38 | $cmd1 = qq/$perl -e "\$|=1; print qq[first process\\n]; sleep 30;"/; |
39 | $cmd2 = qq/$perl -e "\$|=1; print qq[second process\\n]; sleep 30;"/; | |
40 | $cmd3 = qq/$perl -e "print <>;"/; # hangs waiting for end of STDIN | |
41 | $cmd4 = qq/$perl -e "print scalar <>;"/; | |
d91d68c1 RS |
42 | |
43 | #warn "#$cmd1\n#$cmd2\n#$cmd3\n#$cmd4\n"; | |
44 | ||
45 | # start the processes | |
c8fc8fb0 JH |
46 | ok( $pid1 = open(FH1, "$cmd1 |"), 'first process started'); |
47 | ok( $pid2 = open(FH2, "$cmd2 |"), ' second' ); | |
3fb41248 SP |
48 | { |
49 | no warnings 'once'; | |
50 | ok( $pid3 = open(FH3, "| $cmd3"), ' third' ); | |
51 | } | |
c8fc8fb0 | 52 | ok( $pid4 = open(FH4, "| $cmd4"), ' fourth' ); |
d91d68c1 RS |
53 | |
54 | print "# pids were $pid1, $pid2, $pid3, $pid4\n"; | |
55 | ||
4d61ec05 GS |
56 | my $killsig = 'HUP'; |
57 | $killsig = 1 unless $Config{sig_name} =~ /\bHUP\b/; | |
58 | ||
d91d68c1 RS |
59 | # get message from first process and kill it |
60 | chomp($from_pid1 = scalar(<FH1>)); | |
f0060996 MS |
61 | is( $from_pid1, 'first process', 'message from first process' ); |
62 | ||
4d61ec05 | 63 | $kill_cnt = kill $killsig, $pid1; |
f0060996 MS |
64 | is( $kill_cnt, 1, 'first process killed' ) || |
65 | print "# errno == $!\n"; | |
d91d68c1 RS |
66 | |
67 | # get message from second process and kill second process and reader process | |
68 | chomp($from_pid2 = scalar(<FH2>)); | |
f0060996 MS |
69 | is( $from_pid2, 'second process', 'message from second process' ); |
70 | ||
4d61ec05 | 71 | $kill_cnt = kill $killsig, $pid2, $pid3; |
f0060996 MS |
72 | is( $kill_cnt, 2, 'killing procs 2 & 3' ) || |
73 | print "# errno == $!\n"; | |
74 | ||
d91d68c1 RS |
75 | |
76 | # send one expected line of text to child process and then wait for it | |
d27127a1 SM |
77 | select(FH4); $| = 1; select(STDOUT); |
78 | ||
f0060996 MS |
79 | printf FH4 "ok %d - text sent to fourth process\n", curr_test(); |
80 | next_test(); | |
d91d68c1 RS |
81 | print "# waiting for process $pid4 to exit\n"; |
82 | $reap_pid = waitpid $pid4, 0; | |
f0060996 MS |
83 | is( $reap_pid, $pid4, 'fourth process reaped' ); |
84 |