[isidorus-cvs] r336 - in trunk/src: . TM-SPARQL unit_tests - isidorus-cvs@common-lisp.net - mailman3.common-lisp.net

10 Nov 2010

Author: lgiessmann
Date: Wed Nov 10 03:32:07 2010
New Revision: 336
Log:
added the fundamental module-structure including all files for the TM-SPARQL-interface and the corresponding unit-tests
Added:
   trunk/src/TM-SPARQL/
   trunk/src/TM-SPARQL/sparql.lisp
   trunk/src/TM-SPARQL/sparql_tokenizer.lisp
   trunk/src/unit_tests/sparql_test.lisp
   trunk/src/unit_tests/trivial_queries_test.lisp
Modified:
   trunk/src/isidorus.asd
Added: trunk/src/TM-SPARQL/sparql.lisp
==============================================================================

--- (empty file)
+++ trunk/src/TM-SPARQL/sparql.lisp	Wed Nov 10 03:32:07 2010
@@ -0,0 +1,10 @@
+;;+-----------------------------------------------------------------------------
+;;+  Isidorus
+;;+  (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff
+;;+
+;;+  Isidorus is freely distributable under the LLGPL license.
+;;+  You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and
+;;+  trunk/docs/LGPL-LICENSE.txt.
+;;+-----------------------------------------------------------------------------
+
+(in-package :TM-SPARQL)
Added: trunk/src/TM-SPARQL/sparql_tokenizer.lisp
==============================================================================
--- (empty file)
+++ trunk/src/TM-SPARQL/sparql_tokenizer.lisp	Wed Nov 10 03:32:07 2010
@@ -0,0 +1,14 @@
+;;+-----------------------------------------------------------------------------
+;;+  Isidorus
+;;+  (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff
+;;+
+;;+  Isidorus is freely distributable under the LLGPL license.
+;;+  You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and
+;;+  trunk/docs/LGPL-LICENSE.txt.
+;;+-----------------------------------------------------------------------------
+
+(defpackage :TM-SPARQL
+  (:use :cl :datamodel))
+
+
+(in-package :TM-SPARQL)
Modified: trunk/src/isidorus.asd
==============================================================================
--- trunk/src/isidorus.asd	(original)
+++ trunk/src/isidorus.asd	Wed Nov 10 03:32:07 2010
@@ -40,6 +40,11 @@
                                      (:file "model_tools"
                                             :depends-on ("exceptions")))
    		:depends-on ("constants"))
+	       (:module "TM-SPARQL"
+			:components ((:file "sparql"
+					    :depends-on ("sparql_tokenizer"))
+				     (:file "sparql_tokenizer"))
+			:depends-on ("constants" "base-tools" "model"))
           (:module "xml"
    		:components ((:module "xtm"
    				      :components ((:file "tools")
@@ -161,6 +166,10 @@
    				    :depends-on ("fixtures"))
    			     (:file "datamodel_test"
    				    :depends-on ("fixtures"))
+				     (:file "sparql_test"
+					    :depends-on ("fixtures"))
+				     (:file "trivial_queries_test"
+					    :depends-on ("fixtures"))
    			     (:file "reification_test"
    				    :depends-on ("fixtures" "unittests-constants")))
    		:depends-on ("atom"
Added: trunk/src/unit_tests/sparql_test.lisp
==============================================================================
--- (empty file)
+++ trunk/src/unit_tests/sparql_test.lisp	Wed Nov 10 03:32:07 2010
@@ -0,0 +1,28 @@
+;;+-----------------------------------------------------------------------------
+;;+  Isidorus
+;;+  (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff
+;;+
+;;+  Isidorus is freely distributable under the LLGPL license.
+;;+  You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and
+;;+  trunk/docs/LGPL-LICENSE.txt.
+;;+-----------------------------------------------------------------------------
+
+(defpackage :sparql-test
+  (:use  :cl
+	 :it.bese.FiveAM
+	 :TM-SPARQL)
+  (:export :run-sparql-tests
+	   :sparql-tests))
+
+
+(in-package :sparql-test)
+
+
+(def-suite sparql-test
+     :description "tests  various key functions of the TM-SPARQL module")
+
+(in-suite sparql-test)
+
+
+(defun run-sparql-tests ()
+  (it.bese.fiveam:run! 'sparql-test:sparql-tests))
\ No newline at end of file
Added: trunk/src/unit_tests/trivial_queries_test.lisp
==============================================================================
--- (empty file)
+++ trunk/src/unit_tests/trivial_queries_test.lisp	Wed Nov 10 03:32:07 2010
@@ -0,0 +1,29 @@
+;;+-----------------------------------------------------------------------------
+;;+  Isidorus
+;;+  (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff
+;;+
+;;+  Isidorus is freely distributable under the LLGPL license.
+;;+  You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and
+;;+  trunk/docs/LGPL-LICENSE.txt.
+;;+-----------------------------------------------------------------------------
+
+(defpackage :trivial-queries-test
+  (:use  :cl
+	 :it.bese.FiveAM
+	 :datamodel)
+  (:export :run-trivial-queries-tests
+	   :trivial-queries-tests))
+
+
+(in-package :trivial-queries-test)
+
+
+(def-suite trivial-queries-test
+     :description "tests various key functions of the trivial-query-test of
+                   the datamodel module")
+
+(in-suite trivial-queries-test)
+
+
+(defun run-trivial-queries-tests ()
+  (it.bese.fiveam:run! 'trivial-queries-test:trivial-queries-tests))
\ No newline at end of file

    