rtm 0.1.6 → 0.2

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

@@ -0,0 +1,217 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Sugar::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
+
+
+      describe "#used_as_type?" do
+        it "should give back true if this topic is used as type in a scope" do
+          @default_name_type.used_as_type?.should be_true
+          @dummy_type.used_as_type?.should be_true
+          @contained.used_as_type?.should be_true
+          @tm.get("inhabitants").used_as_type?.should be_true
+          @tm.get("states").used_as_type?.should be_true
+          @tm.get("state").used_as_type?.should be_true
+          @containee.used_as_type?.should be_true
+          @container.used_as_type?.should be_true
+        end
+        it "should give back false if this topic is not used as type in a scope" do
+          @type0.used_as_type?.should be_false
+        end
+      end
+
+      describe "#used_as_association_type?" do
+        it "should give back true if this topic is used as type in a scope of an association" do
+          @dummy_type.used_as_association_type?.should be_true
+          @contained.used_as_association_type?.should be_true
+        end
+        it "should give back false if this topic is not used as type in a scope of an association" do
+          @default_name_type.used_as_association_type?.should be_false
+          @type0.used_as_association_type?.should be_false
+        end
+      end
+
+      describe "#used_as_name_type?" do
+        it "should give back true if this topic is used as type in a scope of a name" do
+          @default_name_type.used_as_name_type?.should be_true
+          @dummy_type.used_as_name_type?.should be_true
+
+        end
+        it "should give back false if this topic is not used as type in a scope of a name" do
+          @type0.used_as_name_type?.should be_false
+        end
+      end
+
+      describe "#used_as_occurrence_type?" do
+        it "should give back true if this topic is used as type in a scope of an occurrence" do
+          @dummy_type.used_as_occurrence_type?.should be_true
+          @tm.get("inhabitants").used_as_occurrence_type?.should be_true
+          @tm.get("states").used_as_occurrence_type?.should be_true
+          @tm.get("state").used_as_occurrence_type?.should be_true
+        end
+        it "should give back false if this topic is not used as type in a scope of an occurrence" do
+          @default_name_type.used_as_occurrence_type?.should be_false
+          @type0.used_as_occurrence_type?.should be_false
+        end
+      end
+
+      describe "#used_as_role_type?" do
+        it "should give back true if this topic is used as type in a scope of a role" do
+          @dummy_type.used_as_role_type?.should be_true
+          @containee.used_as_role_type?.should be_true
+          @container.used_as_role_type?.should be_true
+        end
+        it "should give back false if this topic is not used as type in a scope of a role" do
+          @default_name_type.used_as_role_type?.should be_false
+          @type0.used_as_role_type?.should be_false
+        end
+      end
+
+    end #of describe self
+      
+  end
+end

data/spec/rtm/sugar/topic_map/themes_spec.rb

@@ -0,0 +1,67 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Sugar::TopicMap
+  module Themes
+    describe self do
+      before(:each) do
+        @tm = get_used_tm_sys_tm
+        @theme0 = @tm.get!("negative")
+        @theme1 = @tm.get!("german")
+        @theme2 = @tm.get!("english")
+        @theme3 = @tm.get!("2009")
+        @theme4 = @tm.get!("sorbian")
+        @test_theme = @tm.get!("dummy")
+        @leipzig = @tm.get!("leipzig")
+        @germany = @tm.get!("germany")
+        @name1 = @leipzig.create_name("Leipzig",[@theme1,@theme2])
+        @name2 = @germany.create_name("Germany",[@theme2,@test_theme])
+        @name3 = @germany.create_name("Deutschland",[@theme1])
+        @name4 = @leipzig.create_name("Leipzisch")
+        @name5 = @leipzig.create_name("Lipsk",[@theme4])
+        @occ1 = @leipzig.create_occurrence("inhabitants","500000", :scope => [@theme3])
+        @occ2 = @germany.create_occurrence("states","16", :scope => [@test_theme])
+        @occ3 = @leipzig.create_occurrence("state","Sachsen")
+        @tm.create_association("assoc_dummy")
+        @assoc = @tm.create_association("contained", [@test_theme])
+        @role1 = @assoc.create_role("containee",@leipzig)
+        @role2 = @assoc.create_role("container",@germany)
+        @variant = @name1.create_variant("LE",[@test_theme])
+      end
+      after(:each) do
+        @tm.close
+      end
+    
+      describe "#association_themes" do  
+        it "return all topics that are used in the scope of Associations" do
+          @tm.should have(1).association_themes
+          @tm.association_themes.should include(@test_theme)
+        end
+      end 
+
+      describe "#name_themes" do
+        it "return all topics that are used in the scope of Names" do
+          @tm.should have(4).name_themes
+          @tm.name_themes.should include(@theme1, @theme2, @test_theme, @theme4)
+        end
+      end
+
+      describe "#occurrence_themes" do
+        it "return all topics that are used in the scope of Occurrences" do
+          @tm.should have(2).occurrence_themes
+          @tm.occurrence_themes.should include(@theme3, @test_theme)
+        end
+      end
+
+      describe "#variant_themes" do
+        it "return all topics that are used in the scope of Variants" do
+          @tm.should have(3).variant_themes
+          @tm.variant_themes.should include(@theme1, @theme2, @test_theme)
+        end
+      end
+    
+    end # of describe self
+  end # of module
+end # of module

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 RTM::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.references_as_locators.first).size.should == 1
+        other_asso.roles(t_type3.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