pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1:
START_MARKER
-
test_true([["
$Id: testsuite.in,v 1.899 2010/09/27 17:06:30 grubba Exp $
"]]);
+
test_true([["
$Id$
"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]]) test_compile_any([[#pike 7.4]]) test_compile_any([[#pike 7.0]]) test_compile_any([[#pike 0.6]]) cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals())
pike.git/src/testsuite.in:5010:
while(o->read() != -1) tmp++; return tmp; ]],10000) dnl this will crash pike on out-of-address-space-related errors dnl test_any([[ catch { allocate(10000,thread_create)(lambda() { sleep(1); })->wait(); } ]]) test_any([[ // Test that a loop relinquishes the interpreter lock every now and then.
-
int count, stop;
-
Thread.thread_create (lambda()
{while
(!stop) count++;});
+
int count, stop
, fail
;
+
Thread.thread_create (lambda()
{
+
int stop_time = time
(
) + 1;
+
while (
!stop)
{
+
count++;
+
if (time() > stop_time) {
+
fail = 1;
+
break;
+
}
+
}
+
}
);
sleep (0.1); stop = 1; sleep (0.1);
-
return count > 0;
+
return
fail ? -1 :
count > 0;
]], 1) // _disable_threads test_any([[ #ifndef __NT__ // Using a named pipe here to make open() block. That doesn't exist on NT. object t = class { void log (function f, string msg) {