Author: mkuster Date: Sat Jan 31 14:38:07 2009 New Revision: 6

Log: test for depends on added

Modified: trunk/src/atom/collection.lisp trunk/src/unit_tests/atom_test.lisp

Modified: trunk/src/atom/collection.lisp ============================================================================== --- trunk/src/atom/collection.lisp (original) +++ trunk/src/atom/collection.lisp Sat Jan 31 14:38:07 2009 @@ -12,7 +12,8 @@

(defmethod feed-to-elem ((feed collection-feed)) (setf (updated feed) (get-most-recent-datetime-for-tm (id feed))) - (to-elem "e:depends-on" (depends-on feed))) + (when (depends-on feed) + (to-elem "e:depends-on" (depends-on feed))))

(defclass collection-entry (entry) ((link-type :accessor link-type

Modified: trunk/src/unit_tests/atom_test.lisp ============================================================================== --- trunk/src/unit_tests/atom_test.lisp (original) +++ trunk/src/unit_tests/atom_test.lisp Sat Jan 31 14:38:07 2009 @@ -54,7 +54,7 @@ (collection-feed-string (format nil "<a:feed xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Topicmaps on psi.egovpt.org</a:title><a:id>http://london.ztt.fh-worms.de:8000/feeds</a:id><a:author><a:name>Isidor</a:name></a:author><a:link href="http://london.ztt.fh-worms.de:8000/feeds%5C" rel="self"></a:link><a:updated>~a</a:updated><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Data behind the portal of the city of Worms</a:title><a:id>http://psi.egovpt.org/tm/worms/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms%5C" rel="alternate" type="application/atom+xml"></a:link><a:author><a:name>Isidor</a:name></a:author><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms%5C" rel="collection-feed" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>eGov Reference Ontology</a:title><a:id>http://psi.egovpt.org/tm/egov-ontology/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/egov-ontology%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/egov-ontology%5C" rel="alternate" type="application/atom+xml"></a:link><a:author><a:name>Isidor</a:name></a:author><a:link href="http://london.ztt.fh-worms.de:8000/feeds/egov-ontology%5C" rel="collection-feed" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry></a:feed>" datetime-revision3 datetime-revision3 datetime-revision1)) (worms-feed-string - (format nil "<a:feed xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Data behind the portal of the city of Worms</a:title><a:id>http://london.ztt.fh-worms.de:8000/feeds/worms</a:id><a:author><a:name>Isidor</a:name></a:author><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms%5C" rel="self"></a:link><e:depends-on></e:depends-on><a:updated>~a</a:updated><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Snapshots of the Worms data</a:title><a:id>http://psi.egovpt.org/tm/worms/snapshots/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/snapshots%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/snapshots%5C" rel="http://www.egovpt.org/sdshare/snapshotsfeed%5C" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>A list of all change fragments for the Worms data</a:title><a:id>http://psi.egovpt.org/tm/worms/fragments/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/fragments%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/fragments%5C" rel="http://www.egovpt.org/sdshare/fragmentsfeed%5C" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry></a:feed>" datetime-revision3 datetime-revision3 datetime-revision3))) + (format nil "<a:feed xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Data behind the portal of the city of Worms</a:title><a:id>http://london.ztt.fh-worms.de:8000/feeds/worms</a:id><a:author><a:name>Isidor</a:name></a:author><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms%5C" rel="self"></a:link><e:depends-on>http://london.ztt.fh-worms.de:8000/feeds/egov-ontology</e:depends-on><a:updated>~a</a:updated><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>Snapshots of the Worms data</a:title><a:id>http://psi.egovpt.org/tm/worms/snapshots/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/snapshots%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/snapshots%5C" rel="http://www.egovpt.org/sdshare/snapshotsfeed%5C" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry><a:entry xmlns:a="http://www.w3.org/2005/Atom%5C" xmlns:e="http://www.egovpt.org/sdshare/%5C%22%3E<a:title>A list of all change fragments for the Worms data</a:title><a:id>http://psi.egovpt.org/tm/worms/fragments/entry</a:id><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/fragments%5C" rel="alternate"></a:link><a:link href="http://london.ztt.fh-worms.de:8000/feeds/worms/fragments%5C" rel="http://www.egovpt.org/sdshare/fragmentsfeed%5C" type="application/atom+xml"></a:link><a:updated>~a</a:updated></a:entry></a:feed>" datetime-revision3 datetime-revision3 datetime-revision3))) (is (string= collection-feed-string