projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f1c982a
)
[perl #45173] port the test to MSWin32
author
Tony Cook
<tony@develop-help.com>
Tue, 26 Jun 2012 07:56:44 +0000
(17:56 +1000)
committer
Tony Cook
<tony@develop-help.com>
Tue, 26 Jun 2012 08:22:00 +0000
(18:22 +1000)
t/op/sigdispatch.t
patch
|
blob
|
history
diff --git
a/t/op/sigdispatch.t
b/t/op/sigdispatch.t
index
13303fd
..
1ce047d
100644
(file)
--- a/
t/op/sigdispatch.t
+++ b/
t/op/sigdispatch.t
@@
-10,6
+10,7
@@
use strict;
use Config;
plan tests => 29;
+$| = 1;
watchdog(15);
@@
-150,11
+151,13
@@
like $@, qr/No such hook: __DIE__\\0whoops at/;
# [perl #45173]
{
- my $
hup
_called;
- local $SIG{
HUP} = sub { $hup_called = 1
};
+ my $
int
_called;
+ local $SIG{
INT} = sub { $int_called = 1;
};
$@ = "died";
is($@, "died");
- kill 'HUP', $$;
- is($hup_called, 1);
+ kill 'INT', $$;
+ # this is needed to ensure signal delivery on MSWin32
+ sleep(1);
+ is($int_called, 1);
is($@, "died");
}