… | |
… | |
94 | print $s == 0 ? "" : "not ", "ok 6 # $s\n"; |
94 | print $s == 0 ? "" : "not ", "ok 6 # $s\n"; |
95 | |
95 | |
96 | kill INT => $$; |
96 | kill INT => $$; |
97 | |
97 | |
98 | $cv = AE::cv; |
98 | $cv = AE::cv; |
99 | $wt = AE::timer 0.01, 0, $cv; |
99 | $wt = AE::timer 0.1, 0, $cv; # maybe OS X needs more time here? |
100 | |
100 | |
101 | $s = 0; |
101 | $s = 0; |
102 | $cv->recv; |
102 | $cv->recv; |
103 | |
103 | |
104 | print $s == 3 ? "" : "not ", "ok 7 # $s\n"; |
104 | print $s == 3 ? "" : "not ", "ok 7 # $s\n"; |
… | |
… | |
137 | print $s == 0 ? "" : "not ", "ok 9 # $s\n"; |
137 | print $s == 0 ? "" : "not ", "ok 9 # $s\n"; |
138 | |
138 | |
139 | kill 9, $pid; |
139 | kill 9, $pid; |
140 | |
140 | |
141 | $cv = AE::cv; |
141 | $cv = AE::cv; |
142 | $wt = AE::timer 0.01, 0, $cv; |
142 | $wt = AE::timer 0.2, 0, $cv; # cygwin needs ages for this |
143 | |
143 | |
144 | $s = 0; |
144 | $s = 0; |
145 | $cv->recv; |
145 | $cv->recv; |
146 | |
146 | |
147 | print $s == 3 ? "" : "not ", "ok 10 # $s\n"; |
147 | print $s == 3 ? "" : "not ", "ok 10 # $s\n"; |