pike.git / src / modules / Gdbm / testsuite.in

version» Context lines:

pike.git/src/modules/Gdbm/testsuite.in:1: - // $Id: testsuite.in,v 1.4 1998/03/28 14:55:06 grubba Exp $ + START_MARKER      // gdbm - cond( [[ master()->resolv("Gdbm")->gdbm ]], - [[ -  define([[GDBM]],[[ Gdbm.gdbm ]]) -  test_true(programp(GDBM)) -  test_do(destruct(clone(GDBM))) + cond_begin([[ master()->resolv("Gdbm") ]])    -  +  test_true(programp(Gdbm.gdbm)) +  test_do(destruct(Gdbm.gdbm())) +     define([[GDBMTESTS]],    [[    test_do(rm("test.gdbm")) -  test_do(add_constant("GDBMBASE",clone(GDBM,"test.gdbm"))) +  test_do(add_constant("GDBMBASE",Gdbm.gdbm("test.gdbm")))    test_true(file_stat("test.gdbm"))       GDBMNULLTEST    test_true(GDBMBASE->store("foo","bar"))    GDBMNULLTEST    test_equal(GDBMBASE->fetch("foo"),"bar")    test_do([[int e; for(e=0;e<100;e++) GDBMBASE->store("x"+e,"y"+e)]])    GDBMNULLTEST    test_any(int e; for(e=0;e<100;e++) if(GDBMBASE->fetch("x"+e)!="y"+e) return e; return -1,-1)    GDBMNULLTEST
pike.git/src/modules/Gdbm/testsuite.in:44:    test_false(GDBMBASE->fetch("slakjdfasdf"))    test_do(GDBMBASE->reorganize())    test_do(GDBMBASE->sync())    test_do(GDBMBASE->close())    test_do(GDBMBASE->create("test.gdbm"))    ]])       GDBMTESTS       test_do(rm("test.gdbm")) - ]]) +  test_do(add_constant("GDBMBASE")) +  + cond_end // Gdbm +  + END_MARKER