| 1169d9 | 2004-05-02 | Martin Nilsson | | START_MARKER
|
| e4d695 | 2005-11-16 | Henrik Grubbström (Grubba) | |
|
| 24ddc7 | 1998-03-28 | Henrik Grubbström (Grubba) | |
|
| a80a9c | 1997-02-11 | Fredrik Hübinette (Hubbe) | |
|
| e4d695 | 2005-11-16 | Henrik Grubbström (Grubba) | | cond( [[ master()->resolv("Gdbm") ]],
|
| a80a9c | 1997-02-11 | Fredrik Hübinette (Hubbe) | | [[
|
| 457cf0 | 2002-11-26 | Martin Nilsson | | test_true(programp(Gdbm.gdbm))
test_do(destruct(Gdbm.gdbm()))
|
| a80a9c | 1997-02-11 | Fredrik Hübinette (Hubbe) | |
define([[GDBMTESTS]],
[[
test_do(rm("test.gdbm"))
|
| 457cf0 | 2002-11-26 | Martin Nilsson | | test_do(add_constant("GDBMBASE",Gdbm.gdbm("test.gdbm")))
|
| a80a9c | 1997-02-11 | Fredrik Hübinette (Hubbe) | | 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
test_true(GDBMBASE->store(sprintf("%'23'100000s","") , sprintf("%'32'100000s","")))
test_true(GDBMBASE->fetch(sprintf("%'23'100000s",""))==sprintf("%'32'100000s",""))
GDBMNULLTEST
test_equal(GDBMBASE->fetch("foo"),"bar")
test_any(int e; for(e=0;e<100;e++) if(GDBMBASE->fetch("x"+e)!="y"+e) return e; return -1,-1)
test_true(GDBMBASE->fetch(sprintf("%'23'100000s",""))==sprintf("%'32'100000s",""))
test_any(int e; string k; for(k=GDBMBASE->firstkey();k;k=GDBMBASE->nextkey(k)) e++; return e,102)
test_do(GDBMBASE->sync())
test_do(GDBMBASE->reorganize())
test_do(GDBMBASE->close())
]])
define([[GDBMNULLTEST]],[[
test_false(GDBMBASE->fetch("slakjdfasdf"))
]])
GDBMTESTS
define([[GDBMNULLTEST]],[[
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"))
|
| ec1d43 | 2002-10-28 | Martin Nilsson | | test_do(add_constant("GDBMBASE"))
|
| a80a9c | 1997-02-11 | Fredrik Hübinette (Hubbe) | | ]])
|
| 1169d9 | 2004-05-02 | Martin Nilsson | | END_MARKER
|