rtm 0.1.6 → 0.2.0

data/spec/rtm/sugar/topic/topic_ref_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 Sugar
+  module Topic
+    module TopicRef
+      describe self do
+        before(:each) do
+          @tm = get_used_tm_sys_tm
+          @topic = @tm.get!("ii:uni_leipzig")
+        end
+        after(:each) do
+          @tm.close
+        end
+        describe "#topic_references" do
+          it "should not give back an empty Array" do
+            @topic.topic_references.should_not be_empty
+          end
+          it "should give back an item identifier that starts with a ^" do
+            pending if implementation_for_spec == :ontopia
+            @topic.topic_references.first[0].should == ?^
+            @topic.topic_references.should include("^http://www.topicmapslab.de/uni_leipzig")
+          end
+          it "should give back subject locators also" do
+            pending if implementation_for_spec == :ontopia
+            @topic.addSubjectLocator(@tm.create_locator("uni_leipzig")) 
+            @topic.topic_references.size.should == 2
+            @topic.topic_references.should include("^http://www.topicmapslab.de/uni_leipzig")
+            @topic.topic_references.should include("=http://www.topicmapslab.de/uni_leipzig")
+          end
+          it "should give back subject identifiers also" do
+            pending if implementation_for_spec == :ontopia
+            @topic.add_subject_identifier(@tm.create_locator("uni_leipzig"))
+            @topic.topic_references.size.should == 2
+            @topic.topic_references.should include("^http://www.topicmapslab.de/uni_leipzig")
+            @topic.topic_references.should include("http://www.topicmapslab.de/uni_leipzig")
+          end
+        end #of describe "#identifiers"
+      end #of describe self
+    end
+  end
+end

data/spec/rtm/sugar/topic/typed_spec.rb

@@ -0,0 +1,155 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module Sugar
+  module Topic
+    module Typed
+      describe self do
+        before(:each) do
+          @tm = get_used_tm_sys_tm
+          @type0 = @tm.get!("negative")
+          @default_name_type = @tm.get!(RTM::PSI[:name_type])
+          @dummy_type = @tm.get!("dummy_type")
+          @container = @tm.get!("container")
+          @containee = @tm.get!("containee")
+          @contained = @tm.get!("contained")
+          @leipzig = @tm.get!("leipzig")
+          @germany = @tm.get!("germany")
+          @dummy = @tm.get!("dummy")
+          @name1 = @leipzig.create_name(@dummy_type, "Leipzig")
+          @name2 = @germany.create_name("Germany")
+          @name3 = @germany.create_name("Deutschland")
+          @name4 = @leipzig.create_name("Leipzisch")
+          @name5 = @leipzig.create_name("Lipsk")
+          @occ1 = @leipzig.create_occurrence("inhabitants","500000")
+          @occ2 = @germany.create_occurrence("states","16")
+          @occ3 = @leipzig.create_occurrence("state","Sachsen")
+          @occ2 = @germany.create_occurrence(@dummy_type,"0")
+          @assoc1 = @tm.create_association(@dummy_type,["assoc_dummy"])
+          @assoc2 = @tm.create_association(@contained)
+          @role1 = @assoc2.create_role(@containee,@leipzig)
+          @role2 = @assoc2.create_role(@container,@germany)
+          @dummy_role = @assoc1.create_role(@dummy_type,@dummy)
+        end
+        after(:each) do
+          @tm.close
+        end
+        
+        describe "#typed" do
+          it "should give back all constructs which have this Topic as type" do        
+            @default_name_type.typed.size.should == 4
+            @default_name_type.typed.should include(@name2)
+            @default_name_type.typed.should include(@name3)
+            @default_name_type.typed.should include(@name4)
+            @default_name_type.typed.should include(@name5)
+            @container.typed.size.should == 1
+            @container.typed.should include(@role2)
+            @containee.typed.size.should == 1
+            @containee.typed.should include(@role1)
+            @contained.typed.size.should == 1
+            @contained.typed.should include(@assoc2)
+            @dummy_type.typed.size.should == 4
+            @dummy_type.typed.should include(@name1)
+            @dummy_type.typed.should include(@occ2)
+            @dummy_type.typed.should include(@assoc1)
+            @dummy_type.typed.should include(@dummy_role)
+          end
+          it "should give back an empty Array if there are no Constructs which have this Topic as type" do
+            @type0.typed.should be_empty
+          end
+        end
+        
+        describe "#typed_associations" do
+          it "should give back all Associations which have this Topic as type" do
+            @default_name_type.typed_associations.should be_empty
+            @container.typed_associations.should be_empty
+            @containee.typed_associations.should be_empty
+            @contained.typed_associations.size.should == 1
+            @contained.typed_associations.should include(@assoc2)
+            @dummy_type.typed_associations.size.should == 1
+            @dummy_type.typed_associations.should include(@assoc1)
+          end
+          it "should give back an empty Array if there are no Associations which have this Topic as type" do
+            @type0.typed_associations.should be_empty
+          end
+        end
+        
+        describe "#typed_names" do
+          it "should give back all Names which have this Topic as type" do
+            @default_name_type.typed_names.size.should == 4
+            @default_name_type.typed_names.should include(@name2)
+            @default_name_type.typed_names.should include(@name3)
+            @default_name_type.typed_names.should include(@name4)
+            @default_name_type.typed_names.should include(@name5)
+            @container.typed_names.should be_empty
+            @containee.typed_names.should be_empty
+            @contained.typed_names.should be_empty
+            @dummy_type.typed_names.size.should == 1
+            @dummy_type.typed_names.should include(@name1)
+          end
+          it "should give back an empty Array if there are no Names which have this Topic as type" do
+            @type0.typed_names.should be_empty
+          end
+        end
+        
+        describe "#typed_occurrences" do
+          it "should give back all Occurrences which have this Topic as type" do
+            @default_name_type.typed_occurrences.should be_empty
+            @container.typed_occurrences.should be_empty
+            @containee.typed_occurrences.should be_empty
+            @contained.typed_occurrences.should be_empty
+            @dummy_type.typed_occurrences.size.should == 1
+            @dummy_type.typed_occurrences.should include(@occ2)
+          end
+          it "should give back an empty Array if there are no Occurrences which have this Topic as type" do
+            @type0.typed_occurrences.should be_empty
+          end
+        end
+        
+        describe "#typed_roles" do
+          it "should give back all Roles which have this Topic as type" do
+            @default_name_type.typed_roles.should be_empty
+            @container.typed_roles.size.should == 1
+            @container.typed_roles.should include(@role2)
+            @containee.typed_roles.size.should == 1
+            @containee.typed_roles.should include(@role1)
+            @contained.typed_roles.should be_empty
+            @dummy_type.typed_roles.size.should == 1
+            @dummy_type.typed_roles.should include(@dummy_role)
+          end
+          it "should give back an empty Array if there are no Roles which have this Topic as type" do
+            @type0.typed_roles.should be_empty
+          end
+        end
+
+        describe "#topic_is_a?" do
+          before(:each) do
+            @t1, @t2, @t3, @t4, @t5 = @tm.get!(["t1", "t2", "t3", "t4", "t5"])
+            @t1.add_types(@t1, @t2)
+            @t1.add_instance(@t3)
+            @t2.add_supertype(@t4)
+            @t4.add_supertype(@t5)
+          end
+          it "give back true, if the argument is a type of this topic" do
+            @t1.topic_is_a?(@t1).should be_true
+            @t1.topic_is_a?("t2").should be_true
+          end
+          it "should give back false, if the argument is no type of this topic" do
+            @t1.topic_is_a?(@t3).should be_false
+          end
+          it "should give back false, if the argument is not a topic in the topic map" do
+            @t1.topic_is_a?("t6").should be_false
+          end
+          it "should give back true, if the argument is a supertype of the type of this topic" do
+            @t1.topic_is_a?(@t4).should be_true
+            @t1.topic_is_a?("t5").should be_true
+          end
+        end
+
+      end #of describe self
+      
+    end
+  end
+end

data/spec/rtm/sugar/typed/types_spec.rb

@@ -0,0 +1,24 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:  Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module Sugar::Typed::Types
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#types" do
+      it "should be tested"
+    end
+
+    describe "#transitive_types" do
+      it "should be tested"
+    end
+
+  end
+end

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

@@ -0,0 +1,169 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Association
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @asso = @tm.create_association("a_type")
+    end
+    after(:each) do
+      @tm.close
+    end
+    
+    describe "#role_types" do
+      it "should give back all types of the roles on a association" do
+        @asso.create_role("a_type_1","a_player")
+        @asso.role_types.include?(@tm.get("a_type_1")).should be_true
+      end    
+    end
+    
+    describe "#create_role" do
+      it "should allow to create a role using a String-reference" do
+        asso = @tm.create_association("a_type")
+        role1 = asso.create_role("type1", "player1")
+        type2 = @tm.get!("type2")
+        player2 = @tm.get!("player2")
+        role2 = asso.create_role("type2", "player2")
+        role1.should be_a_kind_of RTM::Role
+        role2.should be_a_kind_of RTM::Role
+        @tm.get("type1").should be_a_kind_of RTM::Topic
+        @tm.get("player1").should be_a_kind_of RTM::Topic
+        @tm.get("player1").roles(@tm.get("type1")).size.should == 1
+        player2.roles(type2).size.should == 1
+        asso.roles.size.should == 2
+        asso.roles(@tm.get("type1")).size.should == 1
+        asso.roles(type2).size.should == 1
+      end
+      it "should allow to create a role using Topics" do
+        asso = @tm.create_association("a_type")
+        type = @tm.get!("type")
+        player = @tm.get!("player")
+        type.should be_a_kind_of RTM::Topic
+        player.should be_a_kind_of RTM::Topic
+        role = asso.create_role(type, player)
+        role.should be_a_kind_of RTM::Role
+        player.roles(type).size.should == 1
+        asso.roles.size.should == 1
+        asso.roles(type).size.should == 1
+        asso.roles(type).should include(role)
+        player.roles(type).size.should == 1
+      end
+      it "should allow to create a role using Locators" do
+        asso = @tm.create_association("a_type")
+        loc1 = @tm.create_locator("type")
+        loc2 = @tm.create_locator("player")
+        loc1.should be_a_kind_of RTM::Locator
+        loc2.should be_a_kind_of RTM::Locator
+        role = asso.create_role(loc1,loc2)
+        role.should be_a_kind_of RTM::Role
+        asso.roles.size.should == 1
+        asso.roles(@tm.get(loc1)).size.should == 1
+        asso.roles(@tm.get(loc1)).should include(role)
+        @tm.get(loc2).roles(@tm.get(loc1)).size.should == 1
+        @tm.get(loc2).roles(@tm.get(loc1)).should include(role)
+      end
+    end
+
+    describe "#parent" do
+      it "should give back the TopicMap the Association belongs to" do
+        testassoc = @tm.create_association("Haus-Nummer-Beziehung")
+        testassoc.should be_a_kind_of RTM::Association
+        testassoc.parent.should == @tm
+      end
+    end
+
+    describe "#children" do
+      it "should return all Roles belonging to an Association" do
+        topic = @tm.create_topic_by("Haus")
+        topic_instance = @tm.create_topic_by("Weisses_Haus")
+        topic_instance2 = @tm.create_topic_by("Anderes_Haus")
+        testassoc = @tm.create_association("Haus-Nummer-Beziehung")
+
+        testrole = testassoc.create_role(topic, topic_instance) #TMAPI function
+        testrole2 = testassoc.create_role(topic, topic_instance2) #TMAPI function
+        testassoc.should be_a_kind_of RTM::Association
+        testrole.should be_a_kind_of RTM::Role
+        testrole2.should be_a_kind_of RTM::Role
+
+        testassoc.children.size.should == 2
+        testassoc.children.should include(testrole)
+        testassoc.children.should include(testrole2)
+      end
+    end
+
+    describe "#roles" do
+      it "should return an empty Set if the Association has no Roles" do
+        @asso.roles.should be_empty
+        @asso.roles.should_not be_nil
+      end
+      it "should return an empty Array if type is no Roletype of a Role in this Association" do
+        @asso.create_role("type1","player1")
+        @asso.create_role("type1","player2")
+        @asso.create_role("type2","player3")
+        other_asso = @tm.create_association("a_type")
+        other_asso.create_role("type3","player4")
+        @asso.roles("typex").should be_empty
+        @asso.roles(nil).should be_empty
+        @asso.roles("type3").should be_empty
+      end
+      it "should return the right Roles, also if type is a Topic, String-Reference or Locator" do
+        t_type1,t_type2,t_type3 = @tm.get!(["type1","type2","type3"])
+        t_player1,t_player2,t_player3,t_player4 = @tm.get!(["player1","player2","player3","player4"])
+        role1 = @asso.create_role(t_type1,t_player1)
+        role2 = @asso.create_role(t_type1,t_player2)
+        role3 = @asso.create_role(t_type2,t_player3)
+        
+        other_asso = @tm.create_association("a_type")
+        role4 = other_asso.create_role(t_type3,t_player4)
+
+        @asso.roles.size.should == 3
+        @asso.roles.should include(role1)
+        @asso.roles.should include(role2)
+        @asso.roles.should include(role3)
+        other_asso.roles.size.should == 1
+        other_asso.roles.should include(role4)
+
+        @asso.roles("type1").size.should == 2
+        @asso.roles("type1").should include(role1)
+        @asso.roles("type1").should include(role2)
+        @asso.roles(t_type2).size.should == 1
+        @asso.roles(t_type2).should include(role3)
+
+        other_asso.roles(t_type3.topic_references_as_locators.first).size.should == 1
+        other_asso.roles(t_type3.topic_references_as_locators.first).should include(role4)
+      end
+    end
+  end # of describe self
+  
+  describe self do
+    
+    describe "#remove" do
+      before(:each) do
+        @tm = get_used_tm_sys_tm
+        @assoc1 = @tm.create_association("assoc1")
+        @assoc2 = @tm.create_association("assoc2")
+        @assoc3 = @tm.create_association("assoc1")
+        @assoc1.create_role("r1","topic1")
+        @assoc1.create_role("r2","topic2")
+        @tm.should have(3).associations
+      end
+      after(:each) do
+        @tm.close
+      end
+      it "should remove this assocition from the container (topic map)" do
+        @assoc1.remove
+        @tm.should have(2).associations
+        @tm.associations.should include @assoc2, @assoc3
+        @assoc2.remove
+        @tm.should have(1).associations
+        @tm.associations.should include @assoc3
+        @assoc3.remove
+        @tm.should have(0).associations
+      end
+    end
+
+  end # of describe self
+end #of module

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

@@ -0,0 +1,25 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Construct
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#id" do
+      it "should return the id of the construct as String" do
+        @tm.id.should be_a_kind_of String
+        topic = @tm.get!("x")
+        topic.id.should be_a_kind_of String
+      end
+      it "should be tested further"
+    end
+
+  end
+end

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

@@ -0,0 +1,85 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Name
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @topic = @tm.create_topic_by("Uni_Leipzig")
+      @testname = @topic.create_name("Universitaet Leipzig")
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#parent" do
+      it "should give back the Topic the Name belongs to" do
+        #puts "ancestors:"
+        #puts @testname.java_class
+        #puts @testname.class.ancestors
+        @testname.should be_a_kind_of RTM::Name
+        @testname.parent.should == @topic
+      end
+    end
+
+    describe "#atomify" do
+      it "should give back the value of the Name" do
+        @testname.should be_a_kind_of RTM::Name
+        @testname.atomify.should == "Universitaet Leipzig"
+      end
+    end
+
+    describe "#children" do
+      it "should return all Variants defined for this Name" do
+        topic = @tm.create_topic_by("Uni_Leipzig")
+        name = topic.create_name("Universitaet Leipzig")
+        scope1 = @tm.create_topic_by("englisch")
+        scope2 = @tm.create_topic_by("umgangssprachlich")
+        variant1 = name.create_variant("University of Leipzig", [scope1])
+        variant2 = name.create_variant("Universiaet Leipzsch", [scope2])
+        #puts "ancestors:"
+        #puts variant1.java_class
+        #puts variant1.class.ancestors.inspect
+        variant1.should be_a_kind_of RTM::Variant
+        variant2.should be_a_kind_of RTM::Variant
+        name.children.size.should == 2
+        name.children.should include(variant1)
+        name.children.should include(variant2)
+      end
+    end
+
+    describe "#create_variant" do
+      it "should be tested"
+    end
+
+  end # of describe self
+  
+  describe self do
+    describe "#remove" do
+      before(:each) do
+        @tm = get_used_tm_sys_tm
+        @topic1 = @tm.get!("topic1")
+        @topic2 = @tm.get!("topic2")
+        @name = @topic1.create_name("firstname","Hans")
+        @name.create_variant("Hansi",["Spitzname"])
+        @topic2.create_name("firstname","Peter")
+        @topic1.should have(1).names
+        @topic1.names.should include @name
+      end
+      after(:each) do
+        @tm.close
+      end
+      it "should remove this name from the container (topic)" do
+        @tm.literal_index.getNames("Hans").size.should == 1
+        @name.remove
+        @tm.literal_index.getNames("Hans").size.should == 0
+        @tm.literal_index.getNames("Peter").size.should == 1
+        @topic1.should have(0).names
+      end
+    end
+  end # of describe self
+  
+end # of module