pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.764 2006/03/04 15:02:49 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.765 2006/03/25 12:48:15 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:9941:      test_any_equal([[    mapping m = (["foo": "bar", "bar": "gnu", "gnu": "bar"]);    array a = ({});    a += ({search (m, "bar")});    a += ({search (m, "bar", a[-1])});    a += ({search (m, "bar", a[-1])});    return sort (a);   ]], sort(({0, "foo", "gnu"})))    + test_equal([[ +  sort(({"\Uffffffff","\0", "", "\177", "\377", "\U7fffffff"})); + ]], ({ "", "\0", "\177", "\377", "\U7fffffff", "\Uffffffff" })) +    // test large searches (find string, size, pattern)   define(test_search,[[   test_eq(sprintf($1+"%'"+$3+"'*n",$2)[..strlen($1)-1],$1)   test_eq(search(sprintf($1+"%'"+$3+"'*n",$2),$1),0)   test_eq(search(sprintf("%'"+$3+"'*n" ,$2),$1),-1)   test_eq(search(sprintf("%'"+$3+"'*n"+$1,$2),$1),$2)   test_eq(search(sprintf("%'"+$3+"'*n"+$1+"%'"+$3+"'*n",$2,$2),$1),$2)   ]])      define(test_search2,[[dnl