Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv28172/tests
Modified Files: testcollections.lisp Log Message: tests for :populate
Date: Sun Sep 19 19:52:51 2004 Author: blee
Index: elephant/tests/testcollections.lisp diff -u elephant/tests/testcollections.lisp:1.1 elephant/tests/testcollections.lisp:1.2 --- elephant/tests/testcollections.lisp:1.1 Thu Sep 16 06:26:37 2004 +++ elephant/tests/testcollections.lisp Sun Sep 19 19:52:51 2004 @@ -421,4 +421,31 @@ (pcursor-pkey (cursor-pget-both c 10 101)) (pcursor-pkey (cursor-pget-both-range c 11 111.4))))
- 0 2 10 11 10 9 9999 3000 2000 101 112) \ No newline at end of file + 0 2 10 11 10 9 9999 3000 2000 101 112) + +(defvar index4) + +(deftest newindex + (finishes + (with-transaction () + (setq index4 + (add-index indexed2 :index-name 'crunch :key-form 'crunch + :populate t)))) + t) + +(deftest pcursor2 + (with-btree-cursor (c index4) + (values + (pcursor-pkey (cursor-pfirst c)) + (pcursor-pkey (cursor-pnext c)) + (pcursor-pkey (cursor-pnext-nodup c)) + (pcursor-pkey (cursor-pnext-dup c)) + (pcursor-pkey (cursor-pprev c)) + (pcursor-pkey (cursor-pprev-nodup c)) + (pcursor-pkey (cursor-plast c)) + (pcursor-pkey (cursor-pset c 300)) + (pcursor-pkey (cursor-pset-range c 199.5)) + (pcursor-pkey (cursor-pget-both c 10 101)) + (pcursor-pkey (cursor-pget-both-range c 11 111.4)))) + + 0 2 10 11 10 9 9999 3000 2000 101 112)