rtm 0.1.6 → 0.2.0

data/spec/rtm/tmapi/core/typed_spec.rb

@@ -0,0 +1,112 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Typed
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm    
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#type" do
+      before(:each) do
+         @topic = @tm.create_topic_by("Uni_Leipzig")
+      @testname = @topic.create_name("test_type","Universität Leipzig")
+      end
+      it "for all instances of Typed this should give back the type" do
+        @testname.type.should == @tm.get("test_type")
+      end
+      it "should following the TMDM give back all instances of supertypes"
+    end
+
+    describe "#type=" do
+      before(:each) do
+        topic = @tm.get!("child")
+        @name = topic.create_name("Child")
+        @name.should be_a_kind_of RTM::Name
+        @occ = topic.create_occurrence("height","small")
+        @occ.should be_a_kind_of RTM::Occurrence
+        @assoc = @tm.create_association("mother_child")
+        @assoc.should be_a_kind_of RTM::Association
+        @role = @assoc.create_role("child","Hans")
+        @role.should be_a_kind_of RTM::Role
+      end
+      it "should set the type if the Construct is a Role and identifier a String" do
+        previous_type = @role.type
+        @role.type = "infant"
+        @role.type.should_not == previous_type
+        @role.type.should == @tm.get("infant")
+      end
+      it "should set the type if the Construct is a Role and identifier a Locator" do
+        previous_type = @role.type
+        @role.type = @tm.create_locator("infant")
+        @role.type.should_not == previous_type
+        @role.type.should == @tm.get("infant")
+      end
+      it "should set the type if the Construct is a Role and identifier a Topic" do
+        previous_type = @role.type
+        @role.type = @tm.get!("infant")
+        @role.type.should_not == previous_type
+        @role.type.should == @tm.get("infant")
+      end
+      it "should set the type if the Construct is an Association and identifier a String" do
+        previous_type = @assoc.type
+        @assoc.type = "mother-infant"
+        @assoc.type.should_not == previous_type
+        @assoc.type.should == @tm.get("mother-infant")
+      end
+      it "should set the type if the Construct is an Association and identifier a Locator" do
+        previous_type = @assoc.type
+        @assoc.type = @tm.create_locator("mother-infant")
+        @assoc.type.should_not == previous_type
+        @assoc.type.should == @tm.get("mother-infant")
+      end
+      it "should set the type if the Construct is an Association and identifier a Topic" do
+        previous_type = @assoc.type
+        @assoc.type = @tm.get!("mother-infant")
+        @assoc.type.should_not == previous_type
+        @assoc.type.should == @tm.get("mother-infant")
+      end    
+      it "should set the type if the Construct is a Name and identifier a String" do
+        previous_type = @name.type
+        @name.type = "infant"
+        @name.type.should_not == previous_type
+        @name.type.should == @tm.get("infant")
+      end
+      it "should set the type if the Construct is a Name and identifier a Locator" do
+        previous_type = @name.type
+        @name.type = @tm.create_locator("infant")
+        @name.type.should_not == previous_type
+        @name.type.should == @tm.get("infant")
+      end
+      it "should set the type if the Construct is a Name and identifier a Topic" do
+        previous_type = @name.type
+        @name.type = @tm.get!("infant")
+        @name.type.should_not == previous_type
+        @name.type.should == @tm.get("infant")
+      end  
+      it "should set the type if the Construct is an Occurrence and identifier a String" do
+        previous_type = @occ.type
+        @occ.type = "size"
+        @occ.type.should_not == previous_type
+        @occ.type.should == @tm.get("size")
+      end
+      it "should set the type if the Construct is an Occurrence and identifier a Locator" do
+        previous_type = @occ.type
+        @occ.type = @tm.create_locator("size")
+        @occ.type.should_not == previous_type
+        @occ.type.should == @tm.get("size")
+      end
+      it "should set the type if the Construct is an Occurrence and identifier a Topic" do
+        previous_type = @occ.type
+        @occ.type = @tm.get!("size")
+        @occ.type.should_not == previous_type
+        @occ.type.should == @tm.get("size")
+      end
+    end
+
+  end
+end

data/spec/rtm/tmapi/core/variant_spec.rb

@@ -0,0 +1,52 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Variant
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+    
+    describe "#parent" do
+      it "should give back Name to which the Variant belongs" do
+        topic = @tm.create_topic_by("sub:ident")
+        topic.should be_a_kind_of RTM::Topic
+        @tm.get("sub:ident").should be_a_kind_of RTM::Topic
+
+        scope = @tm.create_topic_by("englisch")
+        scope.should be_a_kind_of RTM::Topic
+        @tm.get("englisch").should be_a_kind_of RTM::Topic
+
+        testname = topic.create_name("Deutschland")
+        testname.should be_a_kind_of RTM::Name
+        testvariant = testname.create_variant("Germany", [scope])
+        testvariant.should be_a_kind_of RTM::Variant
+        testvariant.parent.should == testname
+      end
+    end
+
+    describe "#remove" do
+      before(:each) do
+        @topic1 = @tm.get!("topic1")
+        @name1 = @topic1.create_name("firstname","Hans")
+        @name2 = @topic1.create_name("lastname","Meier")
+        @variant1 = @name1.create_variant("Hansi",["alias"])
+        @variant2 = @name1.create_variant("Bubi",["endearment"])
+      end
+      it "should remove this Variant from the container (Name)" do
+        @name1.should have(2).children
+        @variant1.remove
+        @name1.should have(1).children
+        @variant2.remove
+        @name1.should have(0).children
+      end
+    end
+    
+  end # of describe self
+end # of module

data/spec/rtm/tmapi/ext/java_util_set_spec.rb

@@ -0,0 +1,34 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+if RUBY_PLATFORM =~ /java/
+  module Java::JavaLang::Iterable
+    describe self do
+      before(:each) do
+        @tm = get_used_tm_sys_tm
+      end
+      it "should respond to :first" do
+        java.util.HashSet.new.should respond_to(:first)
+      end
+      describe "#first" do
+        it "should give back one containee of the Iterable" do
+          topic = @tm.get!("Person")
+          names = [topic.create_name("Name1"), topic.create_name("Name2"), topic.create_name("Name3")]
+          topic.names.should be_a_kind_of Enumerable
+          lambda{topic.names.first}.should_not raise_error
+          names.should include topic.names.first
+        end
+        it "should give back nil if the Set is empty" do
+          topic = @tm.get!("Person")
+          set = topic.occurrences
+          set.should be_empty
+          set.should be_a_kind_of(Enumerable)
+          set.first.should be_nil
+        end
+        
+      end
+    end # of describe self
+  end
+end

data/spec/rtm/tmapi_spec.rb

@@ -0,0 +1,44 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../spec_helper'
+
+module RTM
+  class TMAPI
+    describe self do
+      
+      describe "#create" do
+        before(:all) do
+          @connection = RTM.connect(:implementation => implementation_for_spec)
+        end
+        it "should create a topic map given a base locator (String)" do
+          tm = @connection.create("a:b")
+          tm.should be_a_kind_of RTM::TopicMap
+        end
+        it "should create a topic map given a base locator (Locator)" do
+          loc = @connection.create_locator("a:b")
+          tm = @connection.create(loc)
+          tm.should be_a_kind_of RTM::TopicMap
+        end
+        it "should be allowed to call create_topic_map also" do
+          @connection.method(:create).should == @connection.method(:create_topic_map)
+        end
+        it "should be allowed to call createTopicMap also" do
+          @connection.method(:create).should == @connection.method(:createTopicMap)
+        end
+      end
+
+      describe "#create_locator" do
+        before(:all) do
+          @connection = RTM.connect(:implementation => implementation_for_spec)
+        end
+        it "should create a locator given a String reference" do
+          locator = @connection.create_locator("a:b")
+          locator.should be_a_kind_of RTM::Locator
+          locator.reference.should == "a:b"
+        end
+      end
+
+    end
+  end
+end

data/spec/rtm/utils/sparql_spec.rb

@@ -0,0 +1,26 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+# 
+# if implementation_for_spec == :sesametm
+# 
+#   module RTM::TopicMap
+#     describe self do
+#       before(:each) do
+#          @tm = get_used_tm_sys_tm
+#       end
+#       after(:each) do
+#         @tm.close
+#       end
+#       describe "#input" do
+#         it "should be called" do
+#           @tm.should respond_to(:input)
+#           @tm.input("")
+#         end
+#       end
+#       
+#     end
+#   end
+#   
+# end

data/spec/rtm_spec.rb

@@ -0,0 +1,94 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe RTM do
+  # describe "#[]" do
+  #   it "should be empty if no TopicMapSystems are created" do
+  #     RTM[].should be_empty
+  #   end   Fails since already reated tms are found
+  # end
+  describe "#connect" do
+    it "should have a TMAPI engine as default backend" do
+      tms_tmapi = RTM.connect(:implementation => implementation_for_spec)
+      tms_tmapi.should be_a_kind_of RTM::TopicMapSystem
+      tms_tmapi.should be_a_kind_of RTM::JavaTMAPI
+      tms_tmapi.should be_a_kind_of org.tmapi.core.TopicMapSystem
+    end
+    it "should allow multiple backends of the same kind in case of TMAPI" do
+      if RTM[implementation_for_spec]
+        number_of_already_existing_connections = RTM[implementation_for_spec].length
+      else
+        number_of_already_existing_connections = 0
+      end
+      tms1 = RTM.connect(:implementation => implementation_for_spec)
+      tms2 = RTM.connect(:implementation => implementation_for_spec)
+      tms1.should_not == tms2
+      number_of_already_existing_connections.should == RTM[implementation_for_spec].length - 2
+    end
+    # if ar_available?
+    #   it "should allow only one classic RTM Active Record connection" do
+    #     pending "extract active record specs to be run only by activerecord"
+    #     false.should be true # early exit
+    #     tmsar1 = RTM.connect :implementation => :activerecord
+    #     RTM[:activerecord].size.should == 1
+    #     tmsar2 = RTM.connect :implementation => :activerecord
+    #     pending
+    #     RTM[:activerecord].size.should == 1
+    #     tmsar2.should == tmsar1
+    #     tmsar1.should be_a_kind_of RTM::TopicMapSystem
+    #     tmsar1.should_not be_a_kind_of RTM::JavaTMAPI
+    #     tmsar1.should_not be_a_kind_of org.tmapi.core.TopicMapSystem
+    #   end
+    # end
+  end
+
+  describe "#connections" do
+    it "should give back a Hash containing all connections if some exist" do
+      connections = RTM.connections
+      connections.should be_a_kind_of Hash
+      #TODO how to test this?
+    end
+  end
+
+  describe "#[]" do
+    # TODO
+  end
+
+end
+
+# if ar_available?
+#   describe RTM::AR do
+#     require File.dirname(__FILE__) + '/../test/base_unit_test.rb'
+#     require 'test/unit/ui/console/testrunner'
+#     
+#     it "should run the UNIT base_test without errors" do
+#       test_connect = BaseTest.new "test_connect"
+#       res1 = Test::Unit::UI::Console::TestRunner.run test_connect
+#       res1.error_count.should == 0
+#       res1.failure_count.should == 0
+#       test_sugar_hash_access = BaseTest.new "test_sugar_hash_access"
+#       res2 = Test::Unit::UI::Console::TestRunner.run test_sugar_hash_access
+#       res2.error_count.should == 0
+#       res2.failure_count.should == 0
+#     end
+#   end
+# end
+
+# describe "TMAPI with old base_test" do
+#   require "spec/old_base_unit_test_tmapi.rb"
+#   require 'test/unit/ui/console/testrunner'
+#   it "should run the UNIT base_test without errors for the TMAPI, too" do
+#     pending "first is not supported for Java::GnuTrove::THashSet" do
+#       test_connect = BaseTest.new "test_connect"
+#       res1 = Test::Unit::UI::Console::TestRunner.run test_connect
+#       res1.error_count.should == 0
+#       res1.failure_count.should == 0
+#       test_sugar_hash_access = BaseTest.new "test_sugar_hash_access"
+#       res2 = Test::Unit::UI::Console::TestRunner.run test_sugar_hash_access
+#       res2.error_count.should == 0
+#       res2.failure_count.should == 0
+#     end
+#   end
+# end

data/spec/spec_helper.rb

@@ -0,0 +1,23 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+$: << File.join(File.dirname(__FILE__), "/../lib")
+
+require 'spec'
+require 'rtm'
+
+def implementation_for_spec
+  engine = ENV['RTM_IMPLEMENTATION'] && ENV['RTM_IMPLEMENTATION'].to_sym || :ontopia # if env is nil, the "normal progress will go on" # TODO: remove ontopia, as it should be chosen by connect by default
+end
+def get_used_tm_sys
+  RTM.connect(:implementation => implementation_for_spec)
+end
+
+def get_used_tm_sys_tm
+  @basis = get_used_tm_sys
+  @basis.create("http://www.topicmapslab.de/")
+end
+
+def ar_available?
+  !Gem.source_index.find_name('activerecord').empty?
+end

data/test/base_unit_test.rb

@@ -0,0 +1,161 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+# 
+# Some basic tests for the Active Reckord Backend, more to be added into the RSpecs:)
+
+$: << File.join(File.dirname(__FILE__), "/../lib")
+
+require 'rubygems'
+require 'test/unit'
+require 'rtm'
+
+class BaseTest < Test::Unit::TestCase
+  # There are a bunch of global assertions in here so it cannot be parallelized
+  # with other tests, that's why it is all in one. What can we do about that?
+  def test_connect
+    base = RTM.connect(:implementation => :activerecord)
+    assert base, "Connection to memory backend failed"
+    assert_equal 0, base[].size, "There should be no topic maps in a newly created environment."
+    base_locator = "http://rtm.rubyforge.org/tests/base_test"
+    m = base.create base_locator
+    assert_equal 1, base[].size, "After creation of a topic map, there should be one."
+    assert_kind_of RTM::TopicMap, m, "RTM.create should create something which includes RTM::TopicMap"
+    assert_equal base_locator, m.base_locator, "The base_locator should be initialized properly."
+    assert m.respond_to?(:topics), "The topic map should respond to :topics"
+    assert m.respond_to?(:associations), "The topic map should respond to :topics"
+    assert_equal 0, m.topics.size, "A new topic map should have no topics."
+    assert_equal 0, m.associations.size, "A new topic map should have no associations."
+    assert m.reifier.nil?, "A new topic map should not be reified yet."
+    assert_equal 0, m.item_identifiers.size, "A new topic map should "
+    # assigning a reifier
+    m.reifier = "a_topic_which_reifies_the_topic_map"
+    assert_equal 1, m.topics.size, "A topic should have been created to reify the topic map."
+    assert_kind_of RTM::Topic, m.reifier, "A reifier should be a Topic."
+    assert_equal m, m.topics.first.reified, "The only topic out there should reify the map (not generally, but here)."
+    assert_equal m.base_locator, m.topics.first.reified.base_locator, "The only topic out there should reify the map. Check base locator."
+    assert_equal m.__getobj__, m.topics.first.reified.__getobj__, "The only topic out there should reify the map. Look inside."
+    t = m.create_topic
+    assert_equal 2, m.topics.size, "There should be 2 topics after creating the second one."
+    assert_kind_of RTM::Topic, t, "The created topic should really be one."
+    assert_kind_of RTM::TopicMap, m
+    assert_equal m, t.parent, "The Topic Map should be the parent of our new topic." 
+    # The next tests may look a bit unneeded, but they at least also test the properties be available and initialized somehow.
+    assert_equal 0, t.item_identifiers.size, "New topic has no item_identifiers."
+
+    assert_equal 0, t.subject_identifiers.size, "New topic has no subject_identifiers."
+    assert_equal 0, t.subject_locators.size, "New topic has no subject_locators."
+    assert !t.valid?, "Without item identifiers nor subject identifiers the topic must not be valid." 
+    assert_equal 0, t.names.size, "New topic has no names."
+    assert_equal 0, t.occurrences.size, "New topic has no occurrences."
+    assert_equal 0, t.roles_played.size, "New topic plays no roles."
+    assert_nil t.reified, "New topic does not reify a statement."
+    n = t.create_name "bla"
+    assert_equal 1, t.names.size, "The topic should have one name now."
+    assert_kind_of RTM::Name,  n
+    assert_kind_of RTM::Topic, n.parent, "You won't believe but this should be a Topic and right now it not..."
+    # TODO the following assertion does not work - it crashes pp... but why?
+    # assert_equal t, n.parent, "The parent of the name should be the topic on which it was created."
+    assert_equal 0, n.item_identifiers.size, "I wonder if someone will ever read that."
+    assert_kind_of RTM::Name, n, "The topic name shoud be a TopicName... makes sence, he?" 
+    assert_equal 0, n.variants.size, "According to Lars Heuer and Robert Barta that should always be 0, not only now."
+    #assert_nil n.value, "We haven't set a value yet, where should it come from."
+    assert_equal "bla", n.value
+    #assert_nil n.type, "I am really tired of writing this stuff."
+    assert_equal m.get(RTM::PSI[:name_type]), n.type
+    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
+    assert_nil n.reifier, "No, I guess not... who could ever stand that."
+    v = n.create_variant "v1", ["v1-scope"]
+    assert_equal 1, n.variants.size, "The topic should have one name now."
+    assert_kind_of RTM::Variant, v
+    assert_kind_of RTM::Name, v.parent, "You won't believe but this should be a Topic and right now it not..." 
+    # TODO the following assertion does not work - it crashes pp... but why?
+    # assert_equal t, v.parent, "The parent of the name should be the topic on which it was created."
+    assert_equal 0, v.item_identifiers.size, "I wonder if someone will ever read that."
+    assert_kind_of RTM::Variant, v, "The variant should be a Variant... makes sence, he?"
+    #assert_nil v.value, "We haven't set a value yet, where should it come from."
+    assert_equal "v1", v.value
+    
+    assert_nil v.datatype, "No datatype set, yet."
+
+    assert_equal 1, v.scope.size, "Should I really be more serious with this stuff?"
+    assert_nil v.reifier, "No, I guess not... who could ever stand that."
+    #assert !v.valid?
+    o = t.create_occurrence "otype", "val"
+    assert_equal 1, t.occurrences.size, "The topic should have one name now."
+    assert_kind_of RTM::Occurrence, o
+    assert_kind_of RTM::Topic, o.parent, "You won't believe but this should be a Topic and right now it not..." 
+    # TODO the following assertion does not work - it crashes pp... but why?
+    # assert_equal t, o.parent, "The parent of the name should be the topic on which it was created."
+    assert_equal 0, o.item_identifiers.size, "I wonder if someone will ever read that."
+    assert_kind_of RTM::Occurrence, o, "The occurrence shoud be a Occurrence... makes sence, he?"
+    #assert_nil o.value, "We haven't set a value yet, where should it come from." 
+    #assert_nil o.type, "I am really tired of writing this stuff."
+    assert_nil o.datatype
+    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
+    assert_nil n.reifier, "No, I guess not... who could ever stand that."
+    a = m.create_association "atype"
+    #assert_nil a.type
+    assert_equal 0, a.roles.size
+    assert_kind_of RTM::Association, a
+    assert_kind_of RTM::TopicMap, a.parent 
+    assert_equal m, a.parent
+    assert_equal 0, a.scope.size
+    #assert !a.valid?
+    #r1 = a.create_role
+    #assert_nil r1.type
+    #assert_nil r1.player
+    
+    #assert_kind_of RTM::Role, r1
+    #assert_kind_of RTM::Association, r1.parent
+    #assert_equal 1, a.roles.size
+    t.item_identifiers << "nr1"
+    assert_equal 1, t.item_identifiers.size
+    fii = t.item_identifiers.first
+    assert_equal "http://rtm.rubyforge.org/tests/base_test#nr1", fii.to_s
+    assert_kind_of RTM::Locator, fii
+    assert_kind_of RTM::ItemIdentifier, fii #needed?
+    # TODO: invalidate cache/reload value somehow
+    #assert_equal 1, m.item_identifiers.size, "If you see this, it is probably because TopicMap#item_identifiers.size is cached which is wrong in this case."
+    
+    t.subject_identifiers << "si1"
+    fsi = t.subject_identifiers.first
+    assert_equal "si1", fsi.to_s
+    assert_kind_of RTM::Locator, fsi
+    assert_kind_of RTM::SubjectIdentifier, fsi #needed?
+
+    t.subject_locators << "sl1"
+    fsl = t.subject_locators.first
+    assert_equal "sl1", fsl.to_s
+    assert_kind_of RTM::Locator, fsl
+    assert_kind_of RTM::SubjectLocator, fsl #needed?
+
+    # to be in associations_test later:
+    tm = base.create "urn:/associations_test"
+    a1 = tm.create_association "urn:/assoc_type_with_absolute_uri"
+    assert_not_nil a1.type
+    assert_equal a1.type, tm.get("urn:/assoc_type_with_absolute_uri")
+    a2 = tm.create_association "urn:/assoc_type_with_absolute_uri_using_hash"
+    assert_not_nil a2.type
+    assert_equal a2.type, tm.get("urn:/assoc_type_with_absolute_uri_using_hash")
+    
+    a3 = tm.create_association "relative_type"
+    assert_not_nil a3.type
+    assert_equal a3.type, tm.get("relative_type")
+    
+  end
+  def test_sugar_hash_access
+    base = RTM.connect(:implementation => :activerecord)
+    tm = base.create "a:b"
+    bla = tm.get!("bla")
+    bla["-name"] = "test"
+    n = bla["-name"].first
+    assert_equal "test", n.value
+    blau = tm.get!("blau")
+    blau["hex"] = "#0000ff"
+    assert_equal "#0000ff", blau["hex"].first.value
+    blau["hex @short"] = "#00f"
+    assert_equal "#0000ff", blau["hex"].first.value
+    assert_equal "#00f", blau["hex @short"].first.value
+  end
+
+end