added term merging test case

AccelerationNet · Apr 8, 2009 · c56971f · c56971f
1 parent f3af8c1
commit c56971f
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/montezuma/tests/unit/index/tc-term-buffer.lisp b/montezuma/tests/unit/index/tc-term-buffer.lisp
@@ -37,3 +37,10 @@
       (test term-buffer-read-1 (text tb) "John Wiseman" #'string=)
       (test term-buffer-read-2 (term-text (term tb)) "John Wiseman" #'string=)
       (test term-buffer-read-3 (field tb) "Writer" #'string=))))
+
+(deftestfun test-term-buffer-merge
+  (let ((i (make-instance 'index)))
+    (dotimes (j 333) ; induce term merging process
+      (add-document-to-index i "über")
+      (add-document-to-index i '((id . 0)("test"))))))
+