X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fparse.lisp;fp=tests%2Fparse.lisp;h=83753b4fc1294075bd76ed8b94db0151f9b21464;hb=e4ea77e0121111b1edeb6a8698f3bffcc3e4e0a6;hp=9e1670a4802ad2d9c77a1485f3905d199e9e1f6a;hpb=546945f759de17c366255c1536a41aea54e2a1de;p=umlisp.git

diff --git a/tests/parse.lisp b/tests/parse.lisp
index 9e1670a..83753b4 100644
--- 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<)