Branch: Tag:

1997-02-11

1997-02-11 08:08:54 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

files moved for new module system

Rev: src/modules/Gdbm/.cvsignore:1.1
Rev: src/modules/Gdbm/Makefile.in:1.1
Rev: src/modules/Gdbm/configure.in:1.1
Rev: src/modules/Gdbm/doc/gdbm:1.1
Rev: src/modules/Gdbm/gdbm_machine.h.in:1.1
Rev: src/modules/Gdbm/gdbmmod.c:1.1
Rev: src/modules/Gdbm/testsuite.in:1.1
Rev: src/modules/Gmp/.cvsignore:1.1
Rev: src/modules/Gmp/Makefile.in:1.1
Rev: src/modules/Gmp/configure.in:1.1
Rev: src/modules/Gmp/doc/mpz:1.1
Rev: src/modules/Gmp/gmp_machine.h.in:1.1
Rev: src/modules/Gmp/mpz_glue.c:1.1
Rev: src/modules/Gmp/testsuite.in:1.1

1: + // gdbm + cond( [[ master()->programs["/precompiled/gdbm"] ]], + [[ +  define([[GDBM]],[[ (program)"/precompiled/gdbm" ]]) +  test_true(programp(GDBM)) +  test_do(destruct(clone(GDBM)))    -  +  define([[GDBMTESTS]], +  [[ +  test_do(rm("test.gdbm")) +  test_do(add_efun("GDBMBASE",clone(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 +  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")) + ]])   Newline at end of file added.