activerdf_net7 1.6.11

data/test/objectmanager/test_resource_writing.rb

@@ -0,0 +1,39 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require 'federation/connection_pool'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestResourceWriting < Test::Unit::TestCase
+  def setup
+		ConnectionPool.clear
+  end
+
+  def test_update_value
+    Namespace.register(:ar, 'http://activerdf.org/test/')
+    adapter = get_write_adapter
+
+    eyal = RDFS::Resource.new 'http://activerdf.org/test/eyal'
+    assert_raises(ActiveRdfError) { eyal.age = 18 }
+
+    eyal.ar::age = 100
+    assert_equal 100, eyal.ar::age
+    assert_equal [100], eyal.all_ar::age
+   
+    # << fails on Fixnums , because Ruby doesn't allow us to change behaviour of 
+    # << on Fixnums 
+    eyal.age << 18
+    assert_equal 100, eyal.age
+
+    # << same for Strings (TODO)
+    eyal.ar::name = "first"
+    eyal.ar::name << "second"
+    assert_equal "first", eyal.ar::name
+
+    eyal.ar::age = [100, 80]
+    assert_equal [100, 80], eyal.ar::age
+  end
+end

data/test/objectmanager/test_talia_syntax.rb

@@ -0,0 +1,68 @@
+# Author: Michele Nucci
+# License: LGPL
+#
+# Test for new syntax in ActiveRDF for Talia
+
+require 'test/unit'
+require 'active_rdf'
+require 'federation/connection_pool'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestTaliaSyntax < Test::Unit::TestCase
+  def setup
+   ConnectionPool.clear
+ end
+  
+ def test_syntax
+   adapter = get_write_adapter
+   adapter.load "#{File.dirname(__FILE__)}/../test_person_data.nt"
+   
+   Namespace.register(:test, 'http://activerdf.org/test/')
+   
+   eyal    = RDFS::Resource.new 'http://activerdf.org/test/eyal'
+   michele = RDFS::Resource.new 'http://activerdf.org/test/michele'
+    
+   # Adding some triples 
+   adapter.add(michele, RDFS::subClassOf, RDF::Resource)
+   adapter.add(michele, RDF::type, Namespace.lookup(:rdfs, 'Class') )
+   adapter.add(michele, RDF::type, Namespace.lookup(:test, 'Person') )
+   adapter.add(eyal, Namespace.lookup(:test, 'friendOf'), michele)
+   
+   assert_nothing_raised(ActiveRdfError) { 
+     michele.car = 'car1'
+     michele.car = 'car2'
+   }
+  
+  # new syntax (shortcut) to get all properties values about TEST::car
+  x = michele[TEST::car]
+  assert_not_equal [], x
+  
+  # Adding new property (new triple) with the new syntax
+  x << 'car3'
+  assert_equal ['car2', 'car3'], x
+  
+  # test inverse ===========================================================
+  y = michele.inverse
+  assert_equal '<http://activerdf.org/test/eyal>', y[Namespace.lookup(:test, 'friendOf')].to_s
+  # ========================================================================
+  
+  # test deletion triple with new syntax ===================================
+  
+  # remove a triple whose value is specified relater to TEST::car
+  x.remove('car3')
+  assert_equal ['car2'], x
+  
+  # remove every triples related to TEST::car
+  x.remove
+  assert_equal [], x
+  
+  # remove EVERY triples related to a specified resource
+  FederationManager.delete_all(michele)
+  result = Query.new.select(:p, :o).where(michele, :p, :o).execute
+  assert_equal [], result
+  # ======================================================================== 
+ 
+ 
+ end
+  
+end

data/test/queryengine/my_external_resource.rb

@@ -0,0 +1,24 @@
+module RDFS
+  # External resource class
+  class MyExternalResource
+    
+    include ResourceLike
+    
+    # uri of the resource
+    attr_reader :uri
+    # adding accessor to the class uri:
+    # the uri of the rdf resource being represented by this class
+    class << self
+      attr_accessor :class_uri
+    end
+    
+    # creates new resource representing an RDF resource
+    def initialize uri
+      @uri = uri
+    end
+    
+    def to_s
+      "<#{uri}>"
+    end
+  end
+end

data/test/queryengine/test_external_resource_class.rb

@@ -0,0 +1,49 @@
+require File.join("test","unit")
+require 'active_rdf'
+require File.join("queryengine","query")
+require File.join(File.dirname(__FILE__),"..","common")
+require File.join(File.dirname(__FILE__),"my_external_resource")
+
+
+class TestExternalResourceClass < Test::Unit::TestCase
+  def setup
+    ConnectionPool.clear
+  end
+
+  def teardown
+    ConnectionPool.clear
+  end
+  
+  @@eyal = RDFS::MyExternalResource.new("http://activerdf.org/test/eyal")
+  @@age = RDFS::MyExternalResource.new("http://activerdf.org/test/age")
+  
+  def test_query_external_resource
+    adapters = get_talia_adapters
+    adapters.each do |adapter|
+      
+      # load test data
+      adapter.load(File.join(File.dirname(__FILE__),"..","test_person_data.nt"))
+      
+      # execute query and check the result classes
+      #require "ruby-debug/debugger"
+      result = Query.new(RDFS::MyExternalResource).select(:p,:o).where(@@eyal, :p, :o).execute
+      assert result.size > 0, "No Results for #{adapter.class}"
+      assert_kind_of RDFS::MyExternalResource, result[0][0]
+      
+      # add data
+      pl = PropertyList.new(@@age, Query.new(RDFS::MyExternalResource).select(:o).where(@@eyal, @@age, :o).execute, @@eyal)
+      assert(pl.size > 0, "PropertyList empty")
+      assert_nothing_raised {pl << "18"}
+      result = Query.new.select(:o).where(@@eyal, @@age, :o).execute
+      assert result.include?("18")
+    end
+  end
+  
+  def test_namespace_external_resource
+    # namespace
+    Namespace.register(:test, 'http://activerdf.org/test/')
+    assert_kind_of(RDFS::MyExternalResource, Namespace.lookup(:test, "eyal", RDFS::MyExternalResource))
+    assert_equal(:test, Namespace.prefix(@@eyal))
+    assert_equal("eyal",Namespace.localname(@@eyal))
+  end
+end

data/test/queryengine/test_ntriples_parser.rb

@@ -0,0 +1,71 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require 'queryengine/ntriples_parser'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestNTriplesParser < Test::Unit::TestCase
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_simple_triples
+    str = <<EOF
+<http://www.johnbreslin.com/blog/author/cloud/#foaf> <http://xmlns.com/foaf/0.1/surname> "Breslin" .
+<http://www.johnbreslin.com/blog/author/cloud/#foaf> <http://xmlns.com/foaf/0.1/firstName> "John" .
+<http://www.johnbreslin.com/blog/author/cloud/> <http://purl.org/dc/terms/created> "1999-11-30T00:00:00" .  				
+EOF
+    
+    triples = NTriplesParser.parse(str)
+    assert_equal 9, triples.flatten.size
+    assert_equal 3, triples[0].size
+
+    assert_equal RDFS::Resource.new('http://www.johnbreslin.com/blog/author/cloud/#foaf'), triples[0][0]
+    assert_equal RDFS::Resource.new('http://xmlns.com/foaf/0.1/surname'), triples[0][1]
+    assert_equal 'Breslin', triples[0][2]
+  end
+
+  def test_encoded_content
+    str = <<'EOF'
+  <http://b4mad.net/datenbrei/archives/2004/07/15/brainstream-his-own-foafing-in-wordpress/#comment-10> <http://purl.org/rss/1.0/modules/content/encoded> "<p>Heh - excellent. Are we leaving Morten in the dust? :) I know he had some bu gs to fix in his version.</p>\n<p>Also, I think we should really add the foaf: in front of the foaf properties to ma ke it easier to read. </p>\n<p>Other hack ideas:</p>\n<p>* Birthdate in month/date/year (seperate fields) to add bio :Event/ bio:Birth and then say who can see the birth year, birth day/mo and full birth date.<br />\n* Add trust leve ls to friends<br />\n* Storing ones PGP key/key fingerprint in Wordpress and referencing it as user_pubkey/user_pubk eyprint respectively<br />\n* Add gender, depiction picture for profile, myers-brigs, astrological sign fields to Pr ofile.<br />\n* Add the option to create Projects/Groups user is involved with re: their Profile.<br />\n* Maybe add phone numbers/address/geo location? Essentially make it a VCard that can be foafified.\n</p>\n" .
+EOF
+    literal = '<p>Heh - excellent. Are we leaving Morten in the dust? :) I know he had some bu gs to fix in his version.</p>\n<p>Also, I think we should really add the foaf: in front of the foaf properties to ma ke it easier to read. </p>\n<p>Other hack ideas:</p>\n<p>* Birthdate in month/date/year (seperate fields) to add bio :Event/ bio:Birth and then say who can see the birth year, birth day/mo and full birth date.<br />\n* Add trust leve ls to friends<br />\n* Storing ones PGP key/key fingerprint in Wordpress and referencing it as user_pubkey/user_pubk eyprint respectively<br />\n* Add gender, depiction picture for profile, myers-brigs, astrological sign fields to Pr ofile.<br />\n* Add the option to create Projects/Groups user is involved with re: their Profile.<br />\n* Maybe add phone numbers/address/geo location? Essentially make it a VCard that can be foafified.\n</p>\n'
+
+    triples = NTriplesParser.parse(str)
+    assert_equal 1, triples.size
+
+    encoded_content = triples.first[2]
+    assert_equal literal, encoded_content
+    assert_equal String, encoded_content.class
+    assert encoded_content.include?('PGP')
+  end
+
+  def test_escaped_quotes
+    string = '<subject> <predicate> "test string with \n breaks and \" escaped quotes" .'
+    literal = 'test string with \n breaks and \" escaped quotes'
+    triples = NTriplesParser.parse(string)
+
+    assert_equal 1, triples.size
+    assert_equal literal, triples.first[2]
+  end
+
+  def test_datatypes
+    string =<<EOF
+<s> <p> "blue" .
+<s> <p> "29"^^<http://www.w3.org/2001/XMLSchema#integer> .
+<s> <p> "false"^^<http://www.w3.org/2001/XMLSchema#boolean> .
+<s> <p> "2002-10-10T00:00:00+13"^^<http://www.w3.org/2001/XMLSchema#date> .
+EOF
+    triples = NTriplesParser.parse(string)
+    assert_equal 4, triples.size
+    assert_equal 'blue', triples[0][2]
+    assert_equal 29, triples[1][2]
+    assert_equal triples[2][2], false
+    assert_equal triples[3][2], DateTime.parse('2002-10-10T00:00:00+13')
+  end
+end

data/test/queryengine/test_query.rb

@@ -0,0 +1,55 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require 'queryengine/query'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestQuery < Test::Unit::TestCase
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_sparql_generation
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('predicate'), '30')
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <predicate> \"30\" . }"
+    assert_equal expected, generated
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    query.where(:a, RDFS::Resource.new('rdf:type'), RDFS::Resource.new('xsd:int'))
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <foaf:age> ?a. ?a <rdf:type> <xsd:int> . }"
+    assert_equal expected, generated
+	end
+
+	def test_sparql_distinct
+    query = Query.new
+    query.distinct(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT DISTINCT ?s WHERE { ?s <foaf:age> ?a . }"
+    assert_equal expected, generated
+  end
+
+  def test_query_omnipotent
+    # can define multiple select clauses at once or separately
+    q1 = Query.new.select(:s,:a)
+    q2 = Query.new.select(:s).select(:a)
+    assert_equal Query2SPARQL.translate(q1),Query2SPARQL.translate(q2)
+  end
+
+	def test_query_refuses_string_in_where_clause_subject_or_predicate
+    assert_raises(ActiveRdfError)do
+      Query.new.select(:s).where("http://test.org/uri",:p, :o).execute
+    end
+  end
+end

data/test/queryengine/test_query2jars2.rb

@@ -0,0 +1,51 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require 'queryengine/query2jars2'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestQuery2Jars2 < Test::Unit::TestCase
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_sparql_generation
+
+    # TODO: write tests for distinct, ask
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('predicate'), '30')
+
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <predicate> \"30\" . }"
+    assert_equal expected, generated
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    query.where(:a, RDFS::Resource.new('rdf:type'), RDFS::Resource.new('xsd:int'))
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <foaf:age> ?a. ?a <rdf:type> <xsd:int> . }"
+    assert_equal expected, generated
+
+    #		query = Query.new
+    #		query.select(:s).select(:a)
+    #		query.where(:s, 'foaf:age', :a)
+    #		generated = Query2SPARQL.translate(query)
+    #		expected = "SELECT DISTINCT ?s ?a WHERE { ?s foaf:age ?a .}"
+    #		assert_equal expected, generated
+  end
+
+  def test_query_omnipotent
+    # can define multiple select clauses at once or separately
+    q1 = Query.new.select(:s,:a)
+    q2 = Query.new.select(:s).select(:a)
+    assert_equal Query2SPARQL.translate(q1),Query2SPARQL.translate(q2)
+  end
+end

data/test/queryengine/test_query2sparql.rb

@@ -0,0 +1,76 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestQuery2Sparql < Test::Unit::TestCase
+
+  def test_sparql_generation
+    # TODO: write tests for distinct, ask
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('predicate'), 30)
+
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <predicate> \"30\"^^<http://www.w3.org/2001/XMLSchema#integer> . } "
+    assert_equal expected, generated
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    query.where(:a, RDFS::Resource.new('rdf:type'), RDFS::Resource.new('xsd:int'))
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <foaf:age> ?a . ?a <rdf:type> <xsd:int> . } "
+    assert_equal expected, generated
+  end
+
+	def test_sparql_distinct
+    query = Query.new
+    query.distinct(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT DISTINCT ?s WHERE { ?s <foaf:age> ?a . } "
+    assert_equal expected, generated
+  end
+
+  def test_query_omnipotent
+    # can define multiple select clauses at once or separately
+    q1 = Query.new.select(:s,:a)
+    q2 = Query.new.select(:s).select(:a)
+    assert_equal Query2SPARQL.translate(q1),Query2SPARQL.translate(q2)
+  end
+  
+  def test_sort
+    q1 = Query.new.select(:s).sort(:s)
+    q2 = Query.new.select(:s).sort(:s, :p, :o)
+    q3 = Query.new.select(:s).reverse_sort(:s)
+    q4 = Query.new.select(:s).reverse_sort(:s, :p, :o)
+    q5 = Query.new.select(:s).sort(:s).reverse_sort(:p)
+    assert_equal "SELECT ?s WHERE {  . } ORDER BY ASC(?s) ", Query2SPARQL.translate(q1)
+    assert_equal "SELECT ?s WHERE {  . } ORDER BY ASC(?s) ASC(?p) ASC(?o) ", Query2SPARQL.translate(q2)
+    assert_equal "SELECT ?s WHERE {  . } ORDER BY DESC(?s) ", Query2SPARQL.translate(q3)
+    assert_equal "SELECT ?s WHERE {  . } ORDER BY DESC(?s) DESC(?p) DESC(?o) ", Query2SPARQL.translate(q4)
+    assert_equal "SELECT ?s WHERE {  . } ORDER BY ASC(?s) DESC(?p) ", Query2SPARQL.translate(q5)
+  end
+  
+  def test_execute_sort_query
+    ConnectionPool.clear
+    file_one = "#{File.dirname(__FILE__)}/../small-one.nt"
+    adapter = get_adapter
+    
+    if (adapter.class.to_s != "SesameAdapter")
+      adapter.load file_one
+    else
+      adapter.load(file_one, 'ntriples')
+    end
+    @eyal = RDFS::Resource.new 'http://activerdf.org/test/eyal'
+    @eye = RDFS::Resource.new 'http://activerdf.org/test/eye'
+    @eyal[@eye] << 'green'
+    assert_equal ["blue", "green"], Query.new.select(:o).where(@eyal, @eye, :o).limit(100).sort(:o).execute
+    assert_equal ["green", "blue"], Query.new.select(:o).where(@eyal, @eye, :o).limit(100).reverse_sort(:o).execute
+  end
+end

data/test/queryengine/test_query_engine.rb

@@ -0,0 +1,52 @@
+# Author:: Eyal Oren
+# Copyright:: (c) 2005-2006
+# License:: LGPL
+
+require 'test/unit'
+require 'active_rdf'
+require 'queryengine/query'
+require 'queryengine/query2sparql'
+require "#{File.dirname(__FILE__)}/../common"
+
+class TestQueryEngine < Test::Unit::TestCase
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_sparql_generation
+
+    # TODO: write tests for distinct, ask
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('predicate'), 30)
+
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <predicate> \"30\"^^<http://www.w3.org/2001/XMLSchema#integer> . } "
+    assert_equal expected, generated
+
+    query = Query.new
+    query.select(:s)
+    query.where(:s, RDFS::Resource.new('foaf:age'), :a)
+    query.where(:a, RDFS::Resource.new('rdf:type'), RDFS::Resource.new('xsd:int'))
+    generated = Query2SPARQL.translate(query)
+    expected = "SELECT ?s WHERE { ?s <foaf:age> ?a . ?a <rdf:type> <xsd:int> . } "
+    assert_equal expected, generated
+
+    #		query = Query.new
+    #		query.select(:s).select(:a)
+    #		query.where(:s, 'foaf:age', :a)
+    #		generated = Query2SPARQL.translate(query)
+    #		expected = "SELECT DISTINCT ?s ?a WHERE { ?s foaf:age ?a .}"
+    #		assert_equal expected, generated
+  end
+
+  def test_query_omnipotent
+    # can define multiple select clauses at once or separately
+    q1 = Query.new.select(:s,:a)
+    q2 = Query.new.select(:s).select(:a)
+    assert_equal Query2SPARQL.translate(q1),Query2SPARQL.translate(q2)
+  end
+end