pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:11666:
int `<(object o) {return x < o->x;} }; array(object) o=allocate(100,foo)(); sort(o); for(int e=1;e<100;e++) if(o[e-1]->x > o[e]->x) return e; return -1; ]],-1) test_equal(sort (({(<2>), (<1>)})), ({(<1>), (<2>)}))
+
test_any_equal([[
+
function pike_fun = lambda() {};
+
function c_fun = sleep;
+
return ({equal (sort (({pike_fun, pike_fun})), ({pike_fun, pike_fun})),
+
equal (sort (({c_fun, c_fun})), ({c_fun, c_fun})),
+
equal (sort (({pike_fun, c_fun})), ({pike_fun, c_fun})),
+
equal (sort (({c_fun, pike_fun})), ({pike_fun, c_fun}))});
+
]], [[({1, 1, 1, 1})]])
dnl missing tests for objects, arrays, multisets and mappings // - sprintf // Tested in sprintf // - sqrt // Tested in _math // - strerror