Changeset 161 for trunk/src/unit_tests

Timestamp:

12/04/09 16:06:21 (15 years ago)

Author:

lgiessmann

Message:

added some unit-tests for the rdf-module

Location:

trunk/src/unit_tests

Files:

• reification.rdf (modified) (1 diff)
• reification_test.lisp (modified) (5 diffs)

trunk/src/unit_tests/reification.rdf ¶

@@ -33 +33 @@
   <!-- reification in Topic-Maps-mapped-RDF -->
   <rdf:Description rdf:about="http://simpsons.tv/lisa">
+    <rdf:type rdf:resource="http://isidorus/tm2rdf_mapping/types/Topic"/>
     <isi:name>
       <rdf:Description>

trunk/src/unit_tests/reification_test.lisp ¶

@@ -39 +39 @@
    :test-xtm2.0-reification-exporter
    :test-rdf-importer-reification
-   :test-rdf-importer-reification-2))
+   :test-rdf-importer-reification-2
+   :test-rdf-importer-reification-3))
 
 
@@ -551 +552 @@
                       "</rdf:Description>"
                       "</rdf:RDF>")))
+    (clean-out-db db-dir)
     (let ((dom-1 (cxml:parse doc-1 (cxml-dom:make-dom-builder))))
       (is-true dom-1)
@@ -635 +637 @@
         (revision-1 100)
         (document-id "doc-id"))
+    (clean-out-db db-dir)
     (rdf-importer:rdf-importer
      *reification.rdf* db-dir :tm-id tm-id
      :document-id document-id :start-revision revision-1)
-
-    ))
+    (elephant:open-store (xml-importer:get-store-spec db-dir))
+    (let ((homer (get-item-by-id "http://simpsons.tv/homer" :xtm-id document-id))
+          (bart (get-item-by-id "http://simpsons.tv/bart" :xtm-id document-id))
+          (married (get-item-by-id "http://simpsons.tv/arcs/married" :xtm-id document-id)))
+      (is-true homer)
+      (is-true bart)
+      (is-true married)
+      (is (= (length (used-as-type married)) 1))
+      (is-true (reifier (first (used-as-type married))))
+      (is-true (reified (reifier (first (used-as-type married)))))
+      (is (= (length (psis (reifier (first (used-as-type married))))) 1))
+      (is (string= (uri (first (psis (reifier (first (used-as-type married))))))
+                   "http://test-tm#married-arc"))
+      (is (= (length (occurrences bart)) 1))
+      (is-true (reifier (first (occurrences bart))))
+      (is-true (reified (reifier (first (occurrences bart)))))
+      (is (string= (uri (first (psis (reifier (first (occurrences bart))))))
+                   "http://test-tm#lastName-arc"))))
+  (elephant:close-store))
+
+
+(test test-rdf-importer-reification-3
+  "Tests the rdf-importer, especially some reification cases of
+   the tm2rdf mapping."
+  (let ((db-dir "data_base")
+        (tm-id "http://test-tm/")
+        (revision-1 100)
+        (document-id "doc-id"))
+    (clean-out-db db-dir)
+    (rdf-importer:rdf-importer
+     *reification.rdf* db-dir :tm-id tm-id
+     :document-id document-id :start-revision revision-1)
+    (elephant:open-store (xml-importer:get-store-spec db-dir))
+    (let ((lisa (get-item-by-id "http://simpsons.tv/lisa" :xtm-id document-id)))
+      (is-true lisa)
+      (is (= (length (names lisa)) 1))
+      (is (= (length (occurrences lisa)) 1))
+      (let ((name (first (names lisa)))
+            (occurrence (first (occurrences lisa))))
+        (is (= (length (variants name)) 1))
+        (let ((variant (first (variants name))))
+          (is-true (reifier name))
+          (is-true (reified (reifier name)))
+          (is (= (length (psis (reifier name))) 1))
+          (is (string= (uri (first (psis (reifier name))))
+                       (concatenate 'string tm-id "lisa-name")))
+          (is-true (reifier variant))
+          (is-true (reified (reifier variant)))
+          (is (= (length (psis (reifier variant))) 1))
+          (is (string= (uri (first (psis (reifier variant))))
+                       (concatenate 'string tm-id "lisa-name-variant")))
+          (is-true (reifier occurrence))
+          (is-true (reified (reifier occurrence)))
+          (is (= (length (psis (reifier occurrence))) 1))
+          (is (string= (uri (first (psis (reifier occurrence))))
+                       (concatenate 'string tm-id "lisa-occurrence")))))))
+  (elephant:close-store))
 
 
@@ -648 +706 @@
 ;;TODO: check fragment exporter
 ;;TODO: extend the fragment-importer in the RESTful-interface
+;;TODO: Delete the tm2rdf-mapping-constructs --> maybe there is a bug in the map-to-tm-file???
 ;;TODO: DOKU
 
@@ -658 +717 @@
   (it.bese.fiveam:run! 'test-xtm2.0-reification-exporter)
   (it.bese.fiveam:run! 'test-rdf-importer-reification)
-  (it.bese.fiveam:run! 'test-rdf-importer-reification-2))
+  (it.bese.fiveam:run! 'test-rdf-importer-reification-2)
+  (it.bese.fiveam:run! 'test-rdf-importer-reification-3))