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