1 files changed, 78 insertions, 0 deletions
diff --git a/test/rest/model.rb b/test/rest/model.rb
new file mode 100644
index 0000000..027c9df
--- /dev/null
+++ b/test/rest/model.rb
@@ -0,0 +1,78 @@
+require_relative "setup.rb"
+
+begin
+  puts "Service URI is: #{$model[:uri]}"
+rescue
+  puts "Configuration Error: $model[:uri] is not defined in: " + File.join(ENV["HOME"],".opentox","config","test.rb")
+  exit
+end
+
+class ModelTest < MiniTest::Test
+
+  def test_01_create_and_set_parameters
+    a = OpenTox::Model::Generic.new 
+    a.title = "test model"
+    a.parameters = [
+      {RDF::DC.title => "test", RDF::OT.paramScope => "mandatory"},
+      {RDF::DC.title => "test2", RDF::OT.paramScope => "optional"}
+    ]
+    assert_equal 2, a.parameters.size
+    p = a.parameters.collect{|p| p if p[RDF::DC.title] == "test"}.compact.first
+    assert_equal "mandatory", p[RDF::OT.paramScope] 
+    a[RDF::OT.featureCalculationAlgorithm] = "http://webservices.in-silico.ch/algorithm/substucture/match_hits"
+    a[RDF::OT.predictionAlgorithm] = "http://webservices.in-silico.ch/algorithm/regression/local_svm"
+    a[RDF::OT.similarityAlgorithm] = "http://webservices.in-silico.ch/algorithm/similarity/tanimoto"
+    a[RDF::OT.trainingDataset] = "http://webservices.in-silico.ch/dataset/4944"
+    a[RDF::OT.dependentVariables] = "http://webservices.in-silico.ch/feature/LC50_mmol"
+    a[RDF::OT.featureDataset] = "http://webservices.in-silico.ch/dataset/4964"
+    a.put
+    a = OpenTox::Model::Generic.new a.uri
+    assert_equal "test model", a.title
+    assert_equal 2, a.parameters.size
+    p = a.parameters.collect{|p| p if p[RDF::DC.title] == "test"}.compact.first
+    assert_equal "mandatory", p[RDF::OT.paramScope].to_s
+    #a.run :compound_uri => OpenTox::Compound.from_smiles("c1ccccc1NN").uri
+    a.delete
+  end
+  
+  def test_02_create_and_edit_metadata
+    a = OpenTox::Model::Generic.new 
+    a.title = "test model"
+    a.parameters = [
+      {RDF::DC.title => "test", RDF::OT.paramScope => "mandatory"},
+      {RDF::DC.title => "test2", RDF::OT.paramScope => "optional"}
+    ]
+    assert_equal 2, a.parameters.size
+    p = a.parameters.collect{|p| p if p[RDF::DC.title] == "test"}.compact.first
+    assert_equal "mandatory", p[RDF::OT.paramScope] 
+    a[RDF::OT.featureCalculationAlgorithm] = "http://webservices.in-silico.ch/algorithm/substucture/match_hits"
+    a[RDF::OT.predictionAlgorithm] = "http://webservices.in-silico.ch/algorithm/regression/local_svm"
+    a[RDF::OT.similarityAlgorithm] = "http://webservices.in-silico.ch/algorithm/similarity/tanimoto"
+    a[RDF::OT.trainingDataset] = "http://webservices.in-silico.ch/dataset/4944"
+    a[RDF::OT.dependentVariables] = "http://webservices.in-silico.ch/feature/LC50_mmol"
+    a[RDF::OT.featureDataset] = "http://webservices.in-silico.ch/dataset/4964"
+    a.put
+    a = OpenTox::Model::Generic.new a.uri
+    assert_equal "test model", a.title
+    assert_equal 2, a.parameters.size
+    p = a.parameters.collect{|p| p if p[RDF::DC.title] == "test"}.compact.first
+    assert_equal "mandatory", p[RDF::OT.paramScope].to_s
+    #a.run :compound_uri => OpenTox::Compound.from_smiles("c1ccccc1NN").uri
+    
+    b = OpenTox::Model::Generic.new a.uri
+    b.metadata
+    b.parameters
+    b.metadata[RDF.type] << "http://www.opentox.org/echaEndpoints.owl#Endpoint"
+    b.put
+    c = OpenTox::Model::Generic.new b.uri
+    c.metadata
+    assert c.type.to_s =~ /Endpoint/
+    puts c.uri
+    # necessary since model.all method is abolished
+    urilist = `curl -k GET -H accept:text/plain -H 'subjectid:#{OpenTox::RestClientWrapper.subjectid}' #{$model[:uri]}`.chomp
+    assert_match c.uri, urilist
+    a.delete
+    urilist = `curl -k GET -H accept:text/plain  -H 'subjectid:#{OpenTox::RestClientWrapper.subjectid}' #{$model[:uri]}`.chomp
+    refute_match c.uri, urilist 
+  end
+end