diff options
| author | Jan Dubois <jand@activestate.com> | 2005-12-16 07:12:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-16 21:13:37 +0000 |
| commit | aeecf691f59fe1423b7011655dd5de7d5fbd2192 (patch) | |
| tree | c9ef1f79b643133f95c8a03c1820e666397dfe08 /t | |
| parent | 3043b442861dc32a5941608838b57d2e089a7e25 (diff) | |
| download | perl-aeecf691f59fe1423b7011655dd5de7d5fbd2192.tar.gz | |
RE: PeekMessage() call in win32\win32.c win32_async_check
Message-ID: <015901c60207$abd64210$d563a8c0@candy>
(Without the proposed alarm.t test)
p4raw-id: //depot/perl@26379
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/fork.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/op/fork.t b/t/op/fork.t index 4300894b5c..588d88b153 100755 --- a/t/op/fork.t +++ b/t/op/fork.t @@ -97,6 +97,24 @@ ok 1 ok 2 ######## $| = 1; +if ($cid = fork) { + sleep 1; + print "not " unless kill 'INT', $cid; + print "ok 2\n"; +} +else { + # XXX On Windows the default signal handler kills the + # XXX whole process, not just the thread (pseudo-process) + $SIG{INT} = sub { exit }; + print "ok 1\n"; + sleep 5; + die; +} +EXPECT +ok 1 +ok 2 +######## +$| = 1; sub forkit { print "iteration $i start\n"; my $x = fork; |