ontomde-core 1.0.2 → 1.0.4

data/test/protege/etatCivil.rdf

@@ -23,7 +23,9 @@
 	 kb:civilite="Monsieur"
 	 kb:nom="Lafleur"
 	 kb:prenom="Fernand"
-	 rdfs:label="Fernand Lafleur"/>
+	 rdfs:label="Fernand Lafleur">
+	<kb:sponsoredBy rdf:resource="&kb;SampleModel_Instance_3"/>
+</kb:ClientNonFidelise>
 <kb:Contrat rdf:about="&kb;etatCivil_Instance_1"
 	 rdfs:label="etatCivil_Instance_1"/>
 </rdf:RDF>

data/test/protege/etatCivil.rdfs

@@ -68,4 +68,10 @@
 	<rdfs:domain rdf:resource="&kb;Client"/>
 	<rdfs:range rdf:resource="&rdfs;Literal"/>
 </rdf:Property>
+<rdf:Property rdf:about="&kb;sponsoredBy"
+	 a:maxCardinality="1"
+	 rdfs:label="sponsoredBy">
+	<rdfs:domain rdf:resource="&kb;Client"/>
+	<rdfs:range rdf:resource="&kb;ClientFidelise"/>
+</rdf:Property>
 </rdf:RDF>

data/test/protege/test_demo.rb

@@ -1,46 +1,68 @@
-require "ontomde-core"
-
-#module Mmtk_Profil::FT2006_GesCli
-module Mrdf_Resource
-	def disp
-		return ""
-	end
-end
-module Mkb_Client
-	def disp
-		return <<FIN
-***************************************************
-** Bonjour    civ:#{kb_civilite} 
-**            nom:#{kb_nom} 
-**         prenom:#{kb_prenom}
-FIN
-	end
-end
-module Mkb_ClientFidelise
-	def disp
-		super+<<FIN
-**      Vous avez:#{kb_nombrePointDeFidelite} points !
-FIN
-	end
-end
-module Mkb_ClientNonFidelise
-	def disp
-		super+<<FIN
-**      Vous ne beneficiez pas ENCORE de notre programme de fidelisation.
-FIN
-	end
-end
-#end
-
-DATADIR=File.dirname(__FILE__)
-
-@@model=Crdf_Model.new
-@@model.loadMetaModelFromFile("#{DATADIR}/etatCivil.rdfs",true)
-@@model.loadModelFromFile("#{DATADIR}/etatCivil.rdf",true)
-
-puts "+++++++++++++++++++++++++++++++++"
-@@model.each { |k,c|
-	print c.disp
-}
-puts "++++++++++++++++++++"
-
+require "ontomde-core"
+
+#module Mmtk_Profil::FT2006_GesCli
+module Mrdf_Resource
+	def disp
+		return ""
+	end
+end
+module Mkb_Client
+	def disp
+		return <<FIN
+***************************************************
+** Bonjour    civ:#{kb_civilite}
+**            nom:#{kb_nom}
+**         prenom:#{kb_prenom}#{%{
+**   sponsored by:#{kb_sponsoredBy_one.kb_nom}} unless kb_sponsoredBy.empty? }
+FIN
+	end
+end
+module Mkb_ClientFidelise
+	def disp
+		super+<<FIN
+**      Vous avez:#{kb_nombrePointDeFidelite} points !
+FIN
+	end
+end
+module Mkb_ClientNonFidelise
+	def disp
+		super+<<FIN
+**      Vous ne beneficiez pas ENCORE de notre programme de fidelisation.
+FIN
+	end
+end
+#end
+
+DATADIR=File.dirname(__FILE__)
+
+# load meta-model from file
+model=Crdf_Model.new
+model.loadMetaModelFromFile("#{DATADIR}/etatCivil.rdfs",true)
+
+# load model from file
+model.loadModelFromFile("#{DATADIR}/etatCivil.rdf",true)
+
+# create additional model element from file
+dubois=Ckb_ClientNonFidelise.new(model,"1233")
+dubois.kb_nom="Dubois"
+
+martin=Ckb_ClientFidelise.new(model,"1234")
+#martin.kb_civilite=
+martin.kb_nom="Martin"
+martin.kb_prenom="Jean"
+martin.kb_nombrePointDeFidelite="1000"
+martin.kb_sponsoredBy=martin
+
+begin
+	martin.kb_sponsoredBy=dubois
+rescue Exception => e
+	#dubois does not have correct type
+end
+
+
+puts "+++++++++++++++++++++++++++++++++"
+model.each { |k,c|
+	print c.disp
+}
+puts "++++++++++++++++++++"
+

data/test/test_context.rb

@@ -1,88 +1,88 @@
-require 'test/unit'
-require 'ontomde-core'
-
-
-class TC_context_tc1 < Test::Unit::TestCase
-def setup
-	@@model=Crdf_Model.new
-end
-
-def test_context_sur_resource 
-	res=@@model['rdf_Resource']
-	assert(res.context.get(:build).nil?)
-	res.mtk_context( :build=>"c:/tmp") {
-		#log.debug "build=#{res.context[:build]}"
-		assert(res.context[:build]=='c:/tmp')
-	}
-	assert(res.context.get(:build).nil?)
-	assert(res.context.get(:anything).nil?)
-end
-
-def test_ajout_retrait_context_vide
-	assert(@@model.context.get(:build).nil?)
-	@@model.mtk_context( :build=>"c:/tmp") {
-		#log.debug "build=#{@@model.context[:build]}"
-		assert(@@model.context[:build]=='c:/tmp')
-	}
-	assert(@@model.context.get(:build).nil?)
-	assert(@@model.context.get(:anything).nil?)
-end
-
-def test_redefinition
-	assert(@@model.context.get(:build).nil?)
-	test_done=false
-	@@model.mtk_context( :build=>"c:/tmp") {
-		#log.debug "build=#{@@model.context[:build]}"
-		assert(!@@model.context.get(:build).nil?)
-		assert(@@model.context[:build]=='c:/tmp')
-		@@model.mtk_context( :build=>"h:/Z") {
-			assert(@@model.context[:build]=='h:/Z')
-			test_done=true
-		}
-		assert(@@model.context[:build]=='c:/tmp')
-	}
-	assert(@@model.context.get(:build).nil?)
-	assert(test_done,"Test non execute")
-end
-
-def test_multiple_context
-	assert(@@model.context.get(:build).nil?)
-	assert(@@model.context.get(:lang).nil?)
-	test_done=false
-	@@model.mtk_context(:build=>"d:/tmp",:lang=>"fr",:opt=>1) {
-		assert(!@@model.context.get(:build).nil?)
-		assert(@@model.context.get(:build)==="d:/tmp")
-		assert(@@model.context.get(:lang)=="fr")
-		assert(@@model.context.get(:opt)==1)
-		@@model.mtk_context(:lang=>"en") {
-			assert(@@model.context[:build]=="d:/tmp")
-			assert(@@model.context[:lang]=="en")
-			assert(@@model.context[:opt]==1)
-			@@model.mtk_context(:lang=>"us",:ww2=>1939) {
-				assert(@@model.context[:build]=="d:/tmp")
-				assert(@@model.context[:lang]=="us")
-				assert(@@model.context[:opt]==1)
-				assert(@@model.context[:ww2]==1939)
-				test_done=true
-			}
-			assert(@@model.context[:build]=="d:/tmp")
-			assert(@@model.context[:lang]=="en")
-			assert(@@model.context[:opt]==1)
-		}
-	}
-
-	assert(@@model.context.get(:build).nil?)
-	assert(@@model.context.get(:lang).nil?)
-	assert(test_done,"Test non execute")
-end
-
-
-
-def test_load_simple
-end
-
-
-end
-
-require 'test/unit/ui/console/testrunner'
-Test::Unit::UI::Console::TestRunner.run(TC_context_tc1)
+require 'test/unit'
+require 'ontomde-core'
+
+
+class TC_context_tc1 < Test::Unit::TestCase
+def setup
+	@@model=Crdf_Model.new
+end
+
+def test_context_sur_resource
+	res=@@model['rdf_Resource']
+	assert(res.context.get(:build).nil?)
+	res.mtk_context( :build=>"c:/tmp") {
+		#log.debug "build=#{res.context[:build]}"
+		assert(res.context[:build]=='c:/tmp')
+	}
+	assert(res.context.get(:build).nil?)
+	assert(res.context.get(:anything).nil?)
+end
+
+def test_ajout_retrait_context_vide
+	assert(@@model.context.get(:build).nil?)
+	@@model.mtk_context( :build=>"c:/tmp") {
+		#log.debug "build=#{@@model.context[:build]}"
+		assert(@@model.context[:build]=='c:/tmp')
+	}
+	assert(@@model.context.get(:build).nil?)
+	assert(@@model.context.get(:anything).nil?)
+end
+
+def test_redefinition
+	assert(@@model.context.get(:build).nil?)
+	test_done=false
+	@@model.mtk_context( :build=>"c:/tmp") {
+		#log.debug "build=#{@@model.context[:build]}"
+		assert(!@@model.context.get(:build).nil?)
+		assert(@@model.context[:build]=='c:/tmp')
+		@@model.mtk_context( :build=>"h:/Z") {
+			assert(@@model.context[:build]=='h:/Z')
+			test_done=true
+		}
+		assert(@@model.context[:build]=='c:/tmp')
+	}
+	assert(@@model.context.get(:build).nil?)
+	assert(test_done,"Test non execute")
+end
+
+def test_multiple_context
+	assert(@@model.context.get(:build).nil?)
+	assert(@@model.context.get(:lang).nil?)
+	test_done=false
+	@@model.mtk_context(:build=>"d:/tmp",:lang=>"fr",:opt=>1) {
+		assert(!@@model.context.get(:build).nil?)
+		assert(@@model.context.get(:build)==="d:/tmp")
+		assert(@@model.context.get(:lang)=="fr")
+		assert(@@model.context.get(:opt)==1)
+		@@model.mtk_context(:lang=>"en") {
+			assert(@@model.context[:build]=="d:/tmp")
+			assert(@@model.context[:lang]=="en")
+			assert(@@model.context[:opt]==1)
+			@@model.mtk_context(:lang=>"us",:ww2=>1939) {
+				assert(@@model.context[:build]=="d:/tmp")
+				assert(@@model.context[:lang]=="us")
+				assert(@@model.context[:opt]==1)
+				assert(@@model.context[:ww2]==1939)
+				test_done=true
+			}
+			assert(@@model.context[:build]=="d:/tmp")
+			assert(@@model.context[:lang]=="en")
+			assert(@@model.context[:opt]==1)
+		}
+	}
+
+	assert(@@model.context.get(:build).nil?)
+	assert(@@model.context.get(:lang).nil?)
+	assert(test_done,"Test non execute")
+end
+
+
+
+def test_load_simple
+end
+
+
+end
+
+require 'test/unit/ui/console/testrunner'
+Test::Unit::UI::Console::TestRunner.run(TC_context_tc1)

data/test/test_ontomde-core.rb

@@ -1,9 +1,9 @@
-
-require 'ontomde-core'
-
-puts "begin test logs"
-log.error("test log error")
-log.warn("test log warn")
-log.info("test log info")
-log.debug("test log debug")
-puts "end   test logs"
+
+require 'ontomde-core'
+
+puts "begin test logs"
+log.error("test log error")
+log.warn("test log warn")
+log.info("test log info")
+log.debug("test log debug")
+puts "end   test logs"