X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fparse.lisp;h=3a4ebc84dbe46eaa8bbb8f4177ede1557bffe0e8;hb=28aeae6f894ac1e2b4ded59af9371b373e38a701;hp=e1dcd3013cbdba1828ea733cc15ee68120464aeb;hpb=f761dc1d39bb92917db53f935348f79e4db95e40;p=umlisp.git

diff --git a/tests/parse.lisp b/tests/parse.lisp
index e1dcd30..3a4ebc8 100644
--- a/tests/parse.lisp
+++ b/tests/parse.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  May 2003
 ;;;;
-;;;; $Id: parse.lisp,v 1.1 2003/05/07 23:06:44 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -17,3 +17,63 @@
 ;;;; *************************************************************************
 
 (in-package #:umlisp-tests)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (import '(umlisp::*umls-files* umlisp::*umls-cols*)))
+
+(setq *rt-parse*
+  '(
+    (deftest :parse/1
+        (umlisp::decompose-fil "abc")
+      "abc" nil)
+
+    (deftest :parse/2
+        (umlisp::decompose-fil "dir/abc")
+      "abc" "dir")
+
+    (deftest :parse/3
+        (umlisp::decompose-fil nil)
+      nil nil)
+
+    (deftest :parse/4
+        (umlisp::filename-to-tablename "test")
+      "test")
+
+    (deftest :parse/5
+        (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
+   *rt-parse*
+   (append
+    *rt-parse*
+    '(
+      (deftest uparse.1 (length *umls-files*) 63)
+      (deftest uparse.2 (length *umls-cols*) 452)
+      (deftest uparse.3
+          (sort (mapcar #'u::col (umlisp::ucols (umlisp::find-ufile "MRCONSO.RRF")))
+           #'string<)
+        ("AUI" "CODE" "CUI" "CVF" "ISPREF" "KCUILRL" "KCUILUI" "KCUISUI" "KLUILRL"
+         "KPFENG" "KSUILRL" "LAT" "LUI" "SAB" "SAUI" "SCUI" "SDUI" "SRL" "STR" "STT"
+         "SUI" "SUPPRESS" "TS" "TTY"))
+      (deftest uparse.4
+          (equal
+           (sort (mapcar #'u::col (umlisp::ucols (umlisp::find-ufile "MRCONSO.RRF")))
+                 #'string<)
+           (sort (copy-seq (umlisp::fields (umlisp::find-ufile "MRCONSO.RRF")))
+                 #'string<))
+        t)
+      (deftest uparse.5
+          (sort
+           (umlisp::custom-colnames-for-filename "MRCONSO.RRF")
+           #'string<)
+        ("KCUILRL" "KCUILUI" "KCUISUI" "KLUILRL" "KPFENG" "KSUILRL"))
+      (deftest uparse.6
+          (compiled-function-p
+           (umlisp::custom-value-fun
+            (umlisp::find-ucol "KCUISUI" "MRCONSO.RRF")))
+        t)
+      ))))