pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1: - test_true([["$Id: testsuite.in,v 1.722 2004/05/19 19:00:17 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.723 2004/06/13 14:24:48 mast 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:4468:      test_equal([[lambda(multiset x){return ({x[17]++,x[17]++,x[17]++});}((<>))]],    [[({0,1,1})]])      test_do([[    multiset a = copy_value ((<(<1,2,3>), ({5,4}), ([1:2]), 1, ({}), (<1,2>), "foo">));    foreach (a; mixed i;)    if (!a[i]) error ("Can't find multiset member in itself: %O\n", i);   ]])    + test_any([[ +  object o1 = class{}(), o2 = class{}(), o3 = class{}(); +  multiset m = (<o1, o2, o3, 17>); +  destruct (o1), destruct (o2), destruct (o3); +  return m[17]; + ]], 1); +  + test_any_equal([[ +  object o1 = class{}(), o2 = class{}(), o3 = class{}(); +  multiset m = (<o1, o2, o3, 17>); +  destruct (o1), destruct (o2), destruct (o3); +  return copy_value (m); + ]], (<17>)); +    // mapping tests      test_any([[mapping m=([]);int e;    for(e=0;e<1000;e++) m[e]=e;    for(e=0;e<1000;e++) if(m[e]!=e) return 0;    return 1;   ]],1)      test_any([[mapping m=([]);int e;    for(e=0;e<1000;e++) m[e]=e;