r11612: rework find-*-sab functions to reuse main find-* function with SAB as an...

[umlisp.git] / tests / parse.lisp

diff --git a/tests/parse.lisp b/tests/parse.lisp
index 9e1670a4802ad2d9c77a1485f3905d199e9e1f6a..83753b4fc1294075bd76ed8b94db0151f9b21464 100644 (file)
--- a/tests/parse.lisp
+++ b/tests/parse.lisp
@@ -43,6 +43,7 @@
        (umlisp::filename-to-tablename "TEST.AB.RRF")
       "TEST_AB")))
 
+;; specific for UMLS2007AA
 (when (probe-file (umlisp::umls-pathname "MRFILES.RRF"))
   (umlisp::ensure-ucols+ufiles)
   (setq
@@ -51,7 +52,7 @@
     *rt-parse*
     '(
       (deftest uparse.1 (length *umls-files*) 63)
-      (deftest uparse.2 (length *umls-cols*) 434)
+      (deftest uparse.2 (length *umls-cols*) 452)
       (deftest uparse.3
          (sort (mapcar #'u::col (umlisp::ucols (umlisp::find-ufile "MRCONSO.RRF")))
           #'string<)