[elephant-cvs] CVS update: elephant/tests/testcollections.lisp

[blee at common-lisp.net]

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)