pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1: - test_true([["$Id: testsuite.in,v 1.664 2003/08/05 12:59:21 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.665 2003/08/10 16:47:32 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:3851:    while(zero_type(o)) o=_next(o); /* skip destructed */    catch { if(objectp(o) || object_program(o)) return 1; };    o=_prev(this_object());    while(zero_type(o)) o=_prev(o); /* skip destructed */    catch { if(objectp(o) || object_program(o)) return 1; };    return 0;   ]],1)      test_any([[object(Stdio.File) o=Stdio.File(); return objectp(o);]],1)   test_any([[object o=Regexp("foo"); return objectp(o);]],1) - test_any([[object o=Regexp("foo"); return object_program(o);]],Regexp) + test_any([[object o=Regexp("foo"); return object_program(o);]], +  Regexp.SimpleRegexp)   test_any([[class Test {}; object(Test) o=Test(); return object_program(o);]],Test)   test_define_program(test,[[constant foo = 1; int a() { return foo; }]])   test_true(test()->a())   test_program(inherit test;)   test_program(inherit test; int a() { return foo; } )   test_define_program(test,[[class TEST { int a() { return 1; } }]])   test_program(inherit test; inherit TEST; )   test_do(add_constant("test");)      test_any([[