[isidorus-cvs] r109 - in trunk/src: . unit_tests xml/rdf
Lukas Giessmann
lgiessmann at common-lisp.net
Thu Aug 6 15:46:12 UTC 2009
Author: lgiessmann
Date: Thu Aug 6 11:46:11 2009
New Revision: 109
Log:
changed some rdf test files
Added:
trunk/src/unit_tests/poems_light.rdf
Modified:
trunk/src/isidorus.asd
trunk/src/unit_tests/fixtures.lisp
trunk/src/unit_tests/poems.rdf
trunk/src/unit_tests/rdf_importer_test.lisp
trunk/src/unit_tests/unittests-constants.lisp
trunk/src/xml/rdf/rdf_tools.lisp
Modified: trunk/src/isidorus.asd
==============================================================================
--- trunk/src/isidorus.asd (original)
+++ trunk/src/isidorus.asd Thu Aug 6 11:46:11 2009
@@ -106,6 +106,7 @@
(:static-file "atom_test.xtm")
(:static-file "poems.xtm")
(:static-file "poems.rdf")
+ (:static-file "poems_light.rdf")
(:file "atom-conf")
(:file "unittests-constants"
:depends-on ("dangling_topicref.xtm"
Modified: trunk/src/unit_tests/fixtures.lisp
==============================================================================
--- trunk/src/unit_tests/fixtures.lisp (original)
+++ trunk/src/unit_tests/fixtures.lisp Thu Aug 6 11:46:11 2009
@@ -35,7 +35,9 @@
:*NOTIFICATIONBASE-TM*
:*XTM-TM*
:*XTM-MERGE1-TM*
- :*XTM-MERGE2-TM*))
+ :*XTM-MERGE2-TM*
+ :rdf-init-db
+ :rdf-test-db))
(in-package :fixtures)
@@ -166,4 +168,26 @@
(importer *XTM-ATOM-TM* :xtm-id "atom-tm1" :tm-id "http://psi.egovpt.org/tm/egov-ontology"
:revision revision1)
(&body)
+ (tear-down-test-db)))
+
+
+(defun rdf-init-db (&key (db-dir "data_base") (start-revision (get-revision)))
+ "Deletes the data base files and initializes isidorus for rdf."
+ (when elephant:*store-controller*
+ (elephant:close-store))
+ (clean-out-db db-dir)
+ (elephant:open-store (xml-importer:get-store-spec db-dir))
+ (xml-importer:init-isidorus start-revision)
+ (rdf-importer:init-rdf-module start-revision))
+
+
+(def-fixture rdf-test-db ()
+ (let ((db-dir "data_base")
+ (tm-id "http://test-tm/")
+ (document-id "doc-id"))
+ (clean-out-db db-dir)
+ (rdf-importer:setup-rdf-module *poems_light.rdf* db-dir :tm-id tm-id
+ :document-id document-id)
+ (elephant:open-store (xml-importer:get-store-spec db-dir))
+ (&body)
(tear-down-test-db)))
\ No newline at end of file
Modified: trunk/src/unit_tests/poems.rdf
==============================================================================
--- trunk/src/unit_tests/poems.rdf (original)
+++ trunk/src/unit_tests/poems.rdf Thu Aug 6 11:46:11 2009
@@ -55,6 +55,7 @@
<arcs:date rdf:datatype="#date" xml:base="http://www.w3.org/2001/XMLSchema">22.03.1832</arcs:date>
<arcs:place xml:base="">
<types:City rdf:about="Weimar" arcs:fullName="Weimar">
+ <rdfs:subClassOf rdf:resource="http://some.where/types/Region"/>
<arcs:population rdf:datatype="http://www.w3.org/2001/XMLSchema#unsigneLong">64720</arcs:population>
<arcs:locatedIn rdf:resource="http://some.where/country/Germany"/>
</types:City>
@@ -66,7 +67,7 @@
<arcs:wrote>
<rdf:Bag rdf:nodeID="goethe_literature">
<rdf:li>
- <types:Poem>
+ <types:Poem rdf:about="http://some.where/poem/Der_Zauberlehrling">
<arcs:title rdf:parseType="Literal" xml:lang="de">Der Zauberlehrling</arcs:title>
<arcs:dateRange rdf:parseType="Resource" xml:base="http://www.w3.org/2001/XMLSchema"> <!-- rdf:parseType="resource" == bland_node -->
<arcs:start rdf:datatype="#date">01.01.1797</arcs:start>
@@ -194,10 +195,10 @@
<!-- referenced ressources by goethe -->
<rdf:Description rdf:nodeID="goethe_literature">
<rdf:li>
- <types:Ballad arcs:title="Der Erlkönig" xml:lang="de">
+ <types:Ballad rdf:about="http://some.where/ballad/Der_Erlkoenig" arcs:title="Der Erlkönig" xml:lang="de">
<arcs:dateRange rdf:parseType="Resource" xml:base="http://www.w3.org/2001/XMLSchema">
<arcs:start rdf:datatype="#date">01.01.1782</arcs:start>
- <arcs:end rdf:datatype="#date">01.01.1782</arcs:end>
+ <arcs:end rdf:datatype="#date">31.12.1782</arcs:end>
</arcs:dateRange>
<arcs:content rdf:datatype="http://www.w3.org/2001/XMLSchema#string" xml:lang="de">
<![CDATA[Wer reitet so spät durch Nacht und Wind?
@@ -243,7 +244,7 @@
</types:Ballad>
</rdf:li>
<rdf:li>
- <rdf:Description arcs:title="Prometheus">
+ <rdf:Description rdf:about="http://some.where/poem/Prometheus" arcs:title="Prometheus">
<rdf:type rdf:resource="/types/Poem"/>
<arcs:dateRange>
<rdf:Description xml:base="http://does.not.exist">
@@ -354,7 +355,7 @@
<rdf:Description>
<rdf:type rdf:resource="http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag"/>
<rdf:_1>
- <types:Poem arcs:title="Resigantion" xml:lang="de">
+ <types:Poem rdf:about="http://some.where/poem/Resignation" arcs:title="Resigantion" xml:lang="de">
<arcs:dateRange rdf:parseType="Resource">
<arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">01.01.1786</arcs:start>
<arcs:end rdf:datatype="http://www.w3.org/2001/XMLSchema#date">31.12.1786</arcs:end>
@@ -471,7 +472,7 @@
</types:Poem>
</rdf:_1>
<rdf:_2>
- <types:Drama arcs:title="Die Räuber" xml:lang="de">
+ <types:Drama rdf:about="http://some.where/drama/Die_Raeuber" arcs:title="Die Räuber" xml:lang="de">
<arcs:dateRange>
<rdf:Description>
<arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">01.01.1781</arcs:start>
@@ -3138,7 +3139,7 @@
<arcs:wrote>
<rdf:Bag>
<rdf:li>
- <types:Poem arcs:title="Mondnacht">
+ <types:Poem rdf:about="http://some.where/poem/Mondnacht" arcs:title="Mondnacht">
<arcs:dateRange rdf:parseType="Resource">
<arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">01.01.1837</arcs:start>
<arcs:end rdf:datatype="http://www.w3.org/2001/XMLSchema#date">31.12.1837</arcs:end>
@@ -3162,7 +3163,7 @@
</types:Poem>
</rdf:li>
<rdf:li>
- <types:Ballad>
+ <types:Ballad rdf:about="http://some.where/ballad/Die_zwei_Gesellen">
<arcs:title rdf:parseType="Literal">Die zwei Gesellen</arcs:title>
<arcs:title rdf:parseType="Literal">Frühlingsfahrt</arcs:title>
<arcs:dateRange rdf:parseType="Resource">
@@ -3256,7 +3257,7 @@
<arcs:wrote>
<rdf:Bag>
<rdf:_1>
- <types:Poem arcs:title="Venus And Adonis">
+ <types:Poem rdf:about="http://some.where/poem/Venus_And_Adonis" arcs:title="Venus And Adonis">
<arcs:dateRange rdf:parseType="Resource">
<arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">01.01.1592</arcs:start>
<arcs:end rdf:datatype="http://www.w3.org/2001/XMLSchema#date">31.12.1593</arcs:end>
@@ -4677,7 +4678,7 @@
</types:Poem>
</rdf:_1>
<rdf:_2>
- <types:Drama arcs:title="Venus And Adonis">
+ <types:Drama rdf:about="http://some.where/drama/Romeo_And_Juliet" arcs:title="Romeo and Juliet">
<arcs:dateRange rdf:parseType="Resource">
<arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">01.01.1597</arcs:start>
<arcs:end rdf:datatype="http://www.w3.org/2001/XMLSchema#date">31.12.1597</arcs:end>
Added: trunk/src/unit_tests/poems_light.rdf
==============================================================================
--- (empty file)
+++ trunk/src/unit_tests/poems_light.rdf Thu Aug 6 11:46:11 2009
@@ -0,0 +1,328 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+ xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
+ xmlns:poems="http://some.where/"
+ xmlns:arcs="http://some.where/relationship/"
+ xmlns:types="http://some.where/types/"
+ xml:base="http://some.where/">
+ <!-- === Goethe ========================================================== -->
+ <rdf:Description rdf:about="author/Goethe">
+ <rdf:type rdf:resource="types/Author"/>
+ <arcs:firstName>Johann Wolfgang</arcs:firstName>
+ <arcs:lastName rdf:parseType="Literal">von Goethe</arcs:lastName>
+
+ <!-- === born event ==================================================== -->
+ <arcs:born>
+ <types:Event>
+ <arcs:date rdf:datatype="http://www.w3.org/2001/XMLSchema#date">28.08.1749</arcs:date>
+ <arcs:place>
+ <rdf:Description rdf:about="/region/FrankfurtMain">
+ <rdf:type>
+ <rdf:Description rdf:about="/types/Metropolis">
+ <rdfs:subClassOf rdf:resource="/types/Region"/>
+ </rdf:Description>
+ </rdf:type>
+ <arcs:fullName>Frankfurt am Main</arcs:fullName>
+ <arcs:population rdf:datatype="http://www.w3.org/2001/XMLSchema#unsignedLong">659000</arcs:population>
+ <arcs:locatedIn>
+ <rdf:Description rdf:about="http://some.where/country/Germany">
+ <rdf:type>
+ <rdf:Description rdf:about="http://some.where/types/Country"></rdf:Description>
+ </rdf:type>
+ <arcs:nativeName xml:lang="de">Deutschland</arcs:nativeName>
+ <arcs:population rdf:datatype="http://www.w3.org/2001/XMLSchema#unsignedLong">82099232</arcs:population>
+ <arcs:officialese rdf:resource="language/German"/>
+ <arcs:capital>
+ <rdf:Description rdf:about="http://some.where/region/Berlin">
+ <rdf:type>
+ <rdf:Description rdf:about="http://some.where/types/Metropolis"/>
+ </rdf:type>
+ <arcs:locatedIn rdf:resource="/country/Germany"/>
+ <arcs:population rdf:datatype="http://www.w3.org/2001/XMLSchema#unsignedLong">3431473</arcs:population>
+ </rdf:Description>
+ </arcs:capital>
+ </rdf:Description>
+ </arcs:locatedIn>
+ </rdf:Description>
+ </arcs:place>
+ </types:Event>
+ </arcs:born>
+
+ <!-- === died event ==================================================== -->
+ <arcs:died>
+ <rdf:Description xml:base="http://some.where/types/">
+ <rdf:type rdf:resource="Event"/>
+ <arcs:date rdf:datatype="#date" xml:base="http://www.w3.org/2001/XMLSchema">22.03.1832</arcs:date>
+ <arcs:place xml:base="">
+ <types:City rdf:about="Weimar" arcs:fullName="Weimar">
+ <rdfs:subClassOf rdf:resource="http://some.where/types/Region"/>
+ <arcs:population rdf:datatype="http://www.w3.org/2001/XMLSchema#unsigneLong">64720</arcs:population>
+ <arcs:locatedIn rdf:resource="http://some.where/country/Germany"/>
+ </types:City>
+ </arcs:place>
+ </rdf:Description>
+ </arcs:died>
+
+ <!-- === wrote bag ===================================================== -->
+ <arcs:wrote>
+ <rdf:Bag rdf:nodeID="goethe_literature">
+ <rdf:li>
+ <types:Poem rdf:about="http://some.where/poem/Der_Zauberlehrling">
+ <arcs:title rdf:parseType="Literal" xml:lang="de">Der Zauberlehrling</arcs:title>
+ <arcs:dateRange rdf:parseType="Resource" xml:base="http://www.w3.org/2001/XMLSchema"> <!-- rdf:parseType="resource" == bland_node -->
+ <arcs:start rdf:datatype="#date">01.01.1797</arcs:start>
+ <arcs:end rdf:datatype="#date">31.12.1797</arcs:end>
+ </arcs:dateRange>
+ <arcs:content xml:lang="de">
+ <![CDATA[Hat der alte Hexenmeister
+sich doch einmal wegbegeben!
+Und nun sollen seine Geister
+auch nach meinem Willen leben.
+Seine Wort und Werke
+merkt ich und den Brauch,
+und mit Geistesstärke
+tu ich Wunder auch.
+
+Walle! walle
+Manche Strecke,
+daß, zum Zwecke,
+Wasser fließe
+und mit reichem, vollem Schwalle
+zu dem Bade sich ergieße.
+
+Und nun komm, du alter Besen!
+Nimm die schlechten Lumpenhüllen;
+bist schon lange Knecht gewesen:
+nun erfülle meinen Willen!
+Auf zwei Beinen stehe,
+oben sei ein Kopf,
+eile nun und gehe
+mit dem Wassertopf!
+
+Walle! walle
+manche Strecke,
+daß, zum Zwecke,
+Wasser fließe
+und mit reichem, vollem Schwalle
+zu dem Bade sich ergieße.
+
+Seht, er läuft zum Ufer nieder,
+Wahrlich! ist schon an dem Flusse,
+und mit Blitzesschnelle wieder
+ist er hier mit raschem Gusse.
+Schon zum zweiten Male!
+Wie das Becken schwillt!
+Wie sich jede Schale
+voll mit Wasser füllt!
+
+Stehe! stehe!
+denn wir haben
+deiner Gaben
+vollgemessen! -
+Ach, ich merk es! Wehe! wehe!
+Hab ich doch das Wort vergessen!
+
+Ach, das Wort, worauf am Ende
+er das wird, was er gewesen.
+Ach, er läuft und bringt behende!
+Wärst du doch der alte Besen!
+Immer neue Güsse
+bringt er schnell herein,
+Ach! und hundert Flüsse
+stürzen auf mich ein.
+
+Nein, nicht länger
+kann ichs lassen;
+will ihn fassen.
+Das ist Tücke!
+Ach! nun wird mir immer bänger!
+Welche Mine! welche Blicke!
+
+O du Ausgeburt der Hölle!
+Soll das ganze Haus ersaufen?
+Seh ich über jede Schwelle
+doch schon Wasserströme laufen.
+Ein verruchter Besen,
+der nicht hören will!
+Stock, der du gewesen,
+steh doch wieder still!
+
+Willst am Ende
+gar nicht lassen?
+Will dich fassen,
+will dich halten
+und das alte Holz behende
+mit dem scharfen Beile spalten.
+
+Seht da kommt er schleppend wieder!
+Wie ich mich nur auf dich werfe,
+gleich, o Kobold, liegst du nieder;
+krachend trifft die glatte Schärfe.
+Wahrlich, brav getroffen!
+Seht, er ist entzwei!
+Und nun kann ich hoffen,
+und ich atme frei!
+
+Wehe! wehe!
+Beide Teile
+stehn in Eile
+schon als Knechte
+völlig fertig in die Höhe!
+Helft mir, ach! ihr hohen Mächte!
+
+Und sie laufen! Naß und nässer
+wirds im Saal und auf den Stufen.
+Welch entsetzliches Gewässer!
+Herr und Meister! hör mich rufen! -
+Ach, da kommt der Meister!
+Herr, die Not ist groß!
+Die ich rief, die Geister
+werd ich nun nicht los.
+
+"In die Ecke,
+Besen, Besen!
+Seids gewesen.
+Denn als Geister
+ruft euch nur zu diesem Zwecke,
+erst hervor der alte Meister."]]>
+ </arcs:content>
+ </types:Poem>
+ </rdf:li>
+ </rdf:Bag>
+ </arcs:wrote>
+ </rdf:Description>
+
+ <!-- referenced ressources by goethe -->
+ <rdf:Description rdf:nodeID="goethe_literature">
+ <rdf:li>
+ <types:Ballad rdf:about="http://some.where/ballad/Der_Erlkoenig" arcs:title="Der Erlkönig" xml:lang="de">
+ <arcs:dateRange rdf:parseType="Resource" xml:base="http://www.w3.org/2001/XMLSchema">
+ <arcs:start rdf:datatype="#date">01.01.1782</arcs:start>
+ <arcs:end rdf:datatype="#date">31.12.1782</arcs:end>
+ </arcs:dateRange>
+ <arcs:content rdf:datatype="http://www.w3.org/2001/XMLSchema#string" xml:lang="de">
+ <![CDATA[Wer reitet so spät durch Nacht und Wind?
+Es ist der Vater mit seinem Kind;
+Er hat den Knaben wohl in dem Arm,
+Er faßt ihn sicher, er hält ihn warm.
+
+Mein Sohn, was birgst du so bang dein Gesicht? -
+Siehst Vater, du den Erlkönig nicht?
+Den Erlenkönig mit Kron und Schweif? -
+Mein Sohn, es ist ein Nebelstreif. -
+
+"Du liebes Kind, komm, geh mit mir!
+Gar schöne Spiele spiel ich mit dir;
+Manch bunte Blumen sind an dem Strand,
+Meine Mutter hat manch gülden Gewand."
+
+Mein Vater, mein Vater, und hörest du nicht,
+Was Erlenkönig mir leise verspricht? -
+Sei ruhig, bleibe ruhig, mein Kind;
+In dürren Blättern säuselt der Wind. -
+
+"Willst, feiner Knabe, du mit mir gehn?
+Meine Töchter sollen dich warten schön;
+Meine Töchter führen den nächtlichen Reihn
+Und wiegen und tanzen und singen dich ein."
+
+Mein Vater, mein Vater, und siehst du nicht dort
+Erlkönigs Töchter am düstern Ort? -
+Mein Sohn, mein Sohn, ich seh es genau:
+Es scheinen die alten Weiden so grau. -
+
+"Ich liebe dich, mich reizt deine schöne Gestalt;
+Und bist du nicht willig, so brauch ich Gewalt."
+Mein Vater, mein Vater, jetzt faßt er mich an!
+Erlkönig hat mir ein Leids getan! -
+
+Dem Vater grauset's, er reitet geschwind,
+Er hält in den Armen das ächzende Kind,
+Erreicht den Hof mit Mühe und Not;
+In seinen Armen das Kind war tot.]]>
+ </arcs:content>
+ </types:Ballad>
+ </rdf:li>
+ <rdf:li>
+ <rdf:Description rdf:about="http://some.where/poem/Prometheus" arcs:title="Prometheus">
+ <rdf:type rdf:resource="/types/Poem"/>
+ <arcs:dateRange>
+ <rdf:Description xml:base="http://does.not.exist">
+ <arcs:start rdf:datatype="http://www.w3.org/2001/XMLSchema#date">1772</arcs:start>
+ <arcs:end rdf:datatype="http://www.w3.org/2001/XMLSchema#date">1774</arcs:end>
+ </rdf:Description>
+ </arcs:dateRange>
+ <arcs:content rdf:parseType="Literal" xml:lang="de">
+ <![CDATA[Bedecke deinen Himmel, Zeus,
+Mit Wolkendunst!
+Und übe, Knaben gleich,
+Der Disteln köpft,
+An Eichen dich und Bergeshöh'n!
+Mußt mir meine Erde
+Doch lassen steh'n,
+Und meine Hütte,
+Die du nicht gebaut,
+Und meinen Herd,
+Um dessen Glut
+Du mich beneidest.
+
+Ich kenne nichts Ärmeres
+Unter der Sonn' als euch Götter!
+Ihr nähret kümmerlich
+Von Opfersteuern
+Und Gebetshauch
+Eure Majestät
+Und darbtet, wären
+Nicht Kinder und Bettler
+Hoffnungsvolle Toren.
+
+Da ich ein Kind war,
+Nicht wußte, wo aus, wo ein,
+Kehrt' ich mein verirrtes Auge
+Zur Sonne, als wenn drüber wär
+Ein Ohr zu hören meine Klage,
+Ein Herz wie meins,
+Sich des Bedrängten zu erbarmen.
+
+Wer half mir
+Wider der Titanen Übermut?
+Wer rettete vom Tode mich,
+Von Sklaverei?
+Hast du's nicht alles selbst vollendet,
+Heilig glühend Herz?
+Und glühtest, jung und gut,
+Betrogen, Rettungsdank
+Dem Schlafenden dadroben?
+
+Ich dich ehren? Wofür?
+Hast du die Schmerzen gelindert
+Je des Beladenen?
+Hast du die Tränen gestillet
+Je des Geängsteten?
+Hat nicht mich zum Manne geschmiedet
+Die allmächtige Zeit
+Und das ewige Schicksal,
+Meine Herren und deine?
+
+Wähntest du etwa,
+Ich sollte das Leben hassen,
+In Wüsten fliehn,
+Weil nicht alle Knabenmorgen-
+Blütenträume reiften?
+
+Hier sitz' ich, forme Menschen
+Nach meinem Bilde,
+Ein Geschlecht, das mir gleich sei,
+Zu leiden, weinen,
+Genießen und zu freuen sich,
+Und dein nicht zu achten,
+Wie ich!]]>
+ </arcs:content>
+ </rdf:Description>
+ </rdf:li>
+ </rdf:Description>
+
+ <rdf:Description rdf:about="http://some.where/language/German">
+ <rdf:type rdf:resource="types/Language"/>
+ </rdf:Description>
+</rdf:RDF>
Modified: trunk/src/unit_tests/rdf_importer_test.lisp
==============================================================================
--- trunk/src/unit_tests/rdf_importer_test.lisp (original)
+++ trunk/src/unit_tests/rdf_importer_test.lisp Thu Aug 6 11:46:11 2009
@@ -52,7 +52,8 @@
:test-parse-properties-of-node
:test-import-node-1
:test-import-node-reification
- :test-import-dom))
+ :test-import-dom
+ :test-poems-rdf-1))
(declaim (optimize (debug 3) (speed 0) (safety 3) (space 0) (compilation-speed 0)))
@@ -65,16 +66,6 @@
(in-suite rdf-importer-test)
-(defun rdf-init-db (&key (db-dir "data_base") (start-revision (get-revision)))
- "Empties the data base files and initializes isidorus for rdf."
- (when elephant:*store-controller*
- (elephant:close-store))
- (clean-out-db db-dir)
- (elephant:open-store (xml-importer:get-store-spec db-dir))
- (xml-importer:init-isidorus start-revision)
- (rdf-importer:init-rdf-module start-revision))
-
-
(test test-get-literals-of-node
"Tests the helper function get-literals-of-node."
(let ((doc-1
@@ -1727,6 +1718,24 @@
(elephant:close-store))
+(test test-poems-rdf-1
+ "Tests general functionality of the rdf-importer module with the file
+ poems_light.rdf."
+ (elephant:close-store) ;TODO: remove
+ (with-fixture rdf-test-db ()
+ (let ((topics (elephant:get-instances-by-class 'd:TopicC))
+ (occs (elephant:get-instances-by-class 'd:OccurrenceC))
+ (assocs (elephant:get-instances-by-class 'd:AssociationC)))
+ (is (= (length (elephant:get-instances-by-class 'd:TopicC)) 65))
+ (is (= (length (elephant:get-instances-by-class 'd:OccurrenceC)) 23))
+ (is (= (length (elephant:get-instances-by-class 'd:AssociationC)) 30))
+
+
+ ))
+ (elephant:open-store (xml-importer:get-store-spec "data_base"))) ;TODO: remove
+
+
+
(defun run-rdf-importer-tests()
(it.bese.fiveam:run! 'test-get-literals-of-node)
@@ -1740,4 +1749,5 @@
(it.bese.fiveam:run! 'test-parse-properties-of-node)
(it.bese.fiveam:run! 'test-import-node-1)
(it.bese.fiveam:run! 'test-import-node-reification)
- (it.bese.fiveam:run! 'test-import-dom))
\ No newline at end of file
+ (it.bese.fiveam:run! 'test-import-dom)
+ (it.bese.fiveam:run! 'test-poems-rdf-1))
\ No newline at end of file
Modified: trunk/src/unit_tests/unittests-constants.lisp
==============================================================================
--- trunk/src/unit_tests/unittests-constants.lisp (original)
+++ trunk/src/unit_tests/unittests-constants.lisp Thu Aug 6 11:46:11 2009
@@ -28,7 +28,8 @@
:*sample_objects.xtm*
:*t100.xtm*
:*atom_test.xtm*
- :*atom-conf.lisp*))
+ :*atom-conf.lisp*
+ :*poems_light.rdf*))
(in-package :unittests-constants)
@@ -89,3 +90,7 @@
(defparameter *atom-conf.lisp*
(asdf:component-pathname
(asdf:find-component *unit-tests-component* "atom-conf")))
+
+(defparameter *poems_light.rdf*
+ (asdf:component-pathname
+ (asdf:find-component *unit-tests-component* "poems_light.rdf")))
\ No newline at end of file
Modified: trunk/src/xml/rdf/rdf_tools.lisp
==============================================================================
--- trunk/src/xml/rdf/rdf_tools.lisp (original)
+++ trunk/src/xml/rdf/rdf_tools.lisp Thu Aug 6 11:46:11 2009
@@ -75,10 +75,10 @@
(in-package :rdf-importer)
(defvar *rdf-types* (list "Description" "List" "Alt" "Bag" "Seq"
- "Statement" "Property" "XMLLiteral"))
+ "Statement" "Property" "XMLLiteral" "nil"))
(defvar *rdf-properties* (list "type" "first" "rest" "subject" "predicate"
- "object" "li"))
+ "object" "li" "first" "rest"))
(defvar *rdfs-types* (list "Resource" "Literal" "Class" "Datatype"
"Container" "ContainerMembershipProperty"))
More information about the Isidorus-cvs
mailing list