pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1:
-
test_true([["$Id: testsuite.in,v 1.
702
2004/03/
07
22
:
22
:
25
nilsson
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
703
2004/03/
08
09
:
30
:
20
grubba
Exp $"]]);
// 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:2705:
res = "None"; tmp = decode_value(encode_value(tmp, Codec()), Codec()); res=tmp->Q(); if(res != ans) throw("Test failed for encode/decode."); x=Program.inherit_list(object_program(tmp)); }; if(err) { errors++;
-
werror("\nTest failed:\n----------------------------------\n%s\n---------------------------------
\nexpected
answer: %
O\nAnswer
received: %O\n",test,ans,res);
+
werror("\nTest failed:\n
"
+
"
----------------------------------\n
"
+
"
%s\n
"
+
"
---------------------------------
\n"
+
"expected
answer: %
O\n"
+
"Answer
received: %O\n",test,ans,res);
if(!stringp(err) || !has_prefix(err, "Test failed")) { string tmp=master()->describe_backtrace(err); array s=tmp/"\n"; s=s[..20]; werror("%s\n",s*"\n"); }
-
+
if (res == "None") {
+
// Probable decode error; try to get some debug.
+
catch {
+
werror("Encoding...\n");
+
string encoded = ((function)encode_value)(tmp, Codec(), 6);
+
werror("Decoding...\n");
+
tmp = ((function)decode_value)(encoded, Codec(), 6);
+
werror("Strange... No error thrown...\n");
+
};
+
}
return; } }else{ low_generate(depth, code+ ({sprintf("string F%d(){ return %s()+\"F%d\"; }",cnt,acc,cnt)}), sprintf("F%d",cnt), sprintf("%sF%d",ans,cnt), cnt+1);
pike.git/src/testsuite.in:10616:
test_true(arrayp(call_out_info())) test_true(sizeof(call_out_info()) > 0) test_true(call_out_info()[-1][0] > 1) test_eq(find_call_out(call_out_info()[-1][2]), call_out_info()[-1][0]) test_eq(find_call_out(a),-1) test_true(zero_type(find_call_out(a))) test_true(!sizeof(call_out_info()) || function_name(call_out_info()[-1][2])!="call_out_cb") test_do(remove_call_out(call_out_info()[-1][2])) test_do(add_constant("call_out_cb")) test_do(_do_call_outs())
-
test_
false
(Process.
system
(
RUNPIKE+"
SRCDIR/test_co.pike"))
+
test_
any
(
[
+
object pid =
Process.
create_process
(
RUNPIKE_ARRAY +
+
({
"SRCDIR/test_co.pike"
}
))
;
+
int i;
+
for (i=0; i < 60; i++) {
+
if (pid->status()>0) break;
+
__signal_watchdog();
+
sleep(1);
+
}
+
if (pid->status() <= 0) {
+
pid->kill(9);
+
return "Killed".
+
}
+
return pid->wait();
+
], 0)
test_do_([[ catch { _do_call_outs(); }]]) // - varargs test_any_equal([[ mixed test(int a, mixed ... b) { return b; }; return test(1); ]],[[ ({}) ]]) test_any_equal([[