rtm 0.1.6 → 0.2.0

data/spec/rtm/navigation/topic/traverse_spec.rb

@@ -0,0 +1,64 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Navigation::Topic
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#traverse" do
+      before(:each) do
+        @topic = @tm.get!("person")
+        @topic.add_supertype(@tm.get!("mensch"))
+        @topic.add_supertype(@tm.get!("wasanderes"))
+        @topic.add_subtype(@tm.get!("noch_wasanderes"))
+        asso = @tm.create_association("http://psi.topicmaps.org/smeasso")
+        asso["role1"] = @topic
+        asso["role2"] = @tm.get!("player2")
+        @tm.get!("something")
+      end
+      it "should give back an empty set if the Topic plays no Role in an Association" do
+        @tm.get!("something").traverse.should be_empty
+      end
+      it "should give back all the players of all Associations in which this Topic plays a Role" do
+        @topic.traverse.size.should == 4 #self deducted once for each association
+        @topic.traverse.should include(@tm.get("mensch"))
+        @topic.traverse.should include(@tm.get("wasanderes"))
+        @topic.traverse.should include(@tm.get("noch_wasanderes"))
+        @topic.traverse.should include(@tm.get("player2"))
+      end
+      it "should be constrainable with the optional item" do
+        @topic.traverse(RTM::PSI[:supertype_subtype]).size.should == 3
+        @topic.traverse(RTM::PSI[:supertype_subtype]).should include(@tm.get("mensch"))
+        @topic.traverse(RTM::PSI[:supertype_subtype]).should include(@tm.get("wasanderes"))
+        @topic.traverse(RTM::PSI[:supertype_subtype]).should include(@tm.get("noch_wasanderes"))
+        @topic.traverse("http://psi.topicmaps.org/wrong_type").should be_empty
+        @topic.traverse("http://psi.topicmaps.org/smeasso").size.should == 1
+        @topic.traverse("http://psi.topicmaps.org/smeasso").should include(@tm.get("player2"))
+      end
+      it "should give back an empty Array if the optional item is not included as Topic in the TopicMap" do
+        @tm.get("nothing").should be_nil
+        @topic.traverse("nothing").should be_empty
+      end
+      it "should give back an empty Array if the optional item exists as Topic in the TopicMap but is not an Association type" do
+        @tm.get("something").should be_a_kind_of RTM::Topic
+        @topic.traverse("something").should be_empty
+      end
+      describe "#reverse_traverse" do
+        it "should always give back an empty set" do
+          @tm.get!("nikolaus").add_supertype(@tm.get!("mensch"))
+          @tm.get!("nikolaus").add_supertype(@tm.get!("wasanderes"))
+          @tm.get!("nikolaus").add_subtype(@tm.get!("noch_wasanderes"))
+          @tm.get("nikolaus").reverse_traverse.should be_empty
+        end
+      end
+    end
+  end
+
+end
+

data/spec/rtm/navigation/topic/types_spec.rb

@@ -0,0 +1,195 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Navigation::Topic
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @t1,@t2,@t3,@t4,@t5 = @tm.get!(["t1","t2","t3","t4","t5"])
+      @t1.add_type(@t3)
+      @t2.add_type(@t3)
+      @t2.add_type(@t4)     
+    end
+    after(:each) do
+      @tm.close
+    end
+    
+    describe "#types" do
+      it "should give back the types this Topic is an instance of" do
+        @t1.types.size.should == 1
+        @t1.types.should include(@t3)
+        @t2.types.size.should == 2
+        @t2.types.should include(@t3)
+        @t2.types.should include(@t4)
+      end
+      it "should give back an empty Set if Topic has no type" do
+        @t5.types.should be_empty
+      end
+      it "should never raise the error because type calls the TMAPI function" do
+        lambda{@t1.types}.should_not raise_error
+      end
+    end
+
+    describe "#type" do
+      it "should raise an error if this Topic has more than one type" do
+        @t2.types.size.should > 1
+        lambda{@t2.type}.should raise_error
+      end
+      it "should give back the type if this Topic is instance of exactly one type" do
+        @t1.type.should == @t3
+      end
+      it "should give back nil if this Topic has no type, aka is no instance" do
+        @t5.type.should be_nil
+      end
+    end
+
+    describe "#instances" do
+      it "schould give back the Instances of this Topic" do
+        @t3.instances.size.should == 2
+        @t3.instances.should include(@t1)
+        @t3.instances.should include(@t2)
+        @t4.instances.size.should == 1
+        @t4.instances.should include(@t2)
+      end
+      it "should give back an empty Set if this Topic has no instances" do
+        @t1.instances.should be_empty
+      end
+    end
+
+    describe "#instance" do
+      it "should raise an error if this Topic has more than one instance" do
+        @t3.instances.size.should > 1
+        lambda{@t3.instance}.should raise_error
+      end
+      it "should give back the instance if this Topic is type of exactly one instance" do
+        @t4.instance.should == @t2
+      end
+      it "should give back nil if this Topic has no instance, aka is no type" do
+        @t5.instance.should be_nil
+      end
+    end
+
+    describe "#reverse_instances" do
+      it "reverse_instances should call types" do
+        # proof through example, not nice
+        @t1.reverse_instances.should == @t1.types
+      end
+    end
+
+    describe "#reverse_types" do
+      it "reverse_types should call instances" do
+        @t2.method(:reverse_types).should == @t2.method(:instances)
+      end
+    end
+
+    describe "#transitive_types" do
+      before(:each) do
+        @st1, @st2, @st3, @st4, @st5 = @tm.get!(["st1","st2","st3", "st4", "st5"])
+      end
+      it "should give back the types only if the topic has no supertypes" do
+        @t1.types.should respond_to(:each)
+        @t1.types.size.should == 1
+        @t1.transitive_types.size.should == 1
+        ###
+        @t2.types.should respond_to(:each)
+        @t2.types.size.should == 2
+        @t2.transitive_types.size.should == 2
+      end
+      it "should give back the types and supertypes of the topic if supertypes exist" do
+        @t3.add_supertype(@st1)
+        @t3.add_supertype(@st2)
+        @t4.add_supertype(@st3)
+        ###
+        @t1.transitive_types.size.should == 3
+        @t1.transitive_types.should include(@t3, @st1, @st2)
+        ###
+        @t2.transitive_types.size.should == 5
+        @t2.transitive_types.should include(@t3, @st1, @st2, @t4, @st3)
+      end
+      it "should give back the supertypes of the supertypes also" do
+        @t3.add_supertype(@st1)
+        @t3.add_supertype(@st2)
+        @t4.add_supertype(@st3)
+        @st1.add_supertype(@st4)
+        @st3.add_supertype(@st5)
+        ###
+        @t1.transitive_types.size.should == 4
+        @t1.transitive_types.should include(@t3, @st1, @st2, @st4)
+        ###
+        @t2.transitive_types.size.should == 7
+        @t2.transitive_types.should include(@t3, @st1, @st2, @st4, @t4, @st3, @st5)
+      end
+      it "should not give back supertypes" do
+        @t3.add_supertype(@st1)
+        @t3.transitive_types.should be_empty
+      end
+      it "should give back supertypes of types without duplicates" do
+        @t3.add_supertype(@st1)
+        @t3.add_supertype(@st2)
+        @t4.add_supertype(@st3)
+        @t4.add_supertype(@st2)
+        @st1.add_supertype(@st4)
+        @st2.add_supertype(@st4)
+        @st3.add_supertype(@st5)
+        ###
+        @t1.transitive_types.size.should == 4
+        @t1.transitive_types.should include(@t3, @st1, @st2, @st4)
+        ###
+        @t2.transitive_types.size.should == 7
+        @t2.transitive_types.should include(@t3, @st1, @st2, @st4, @t4, @st3, @st5)
+      end
+      it "should give back an empty Array if no types exist" do
+        @t3.transitive_types.should be_empty
+      end
+    end
+
+    describe "#transitive_instances" do
+      before(:each) do
+        @st1, @st2, @st3, @st4, @st5 = @tm.get!(["st1","st2","st3", "st4", "st5"])
+      end
+      it "should give back the instances if existing (and no subtypes exist)" do
+        @t3.transitive_instances.size.should == 2
+        @t3.transitive_instances.should include(@t1, @t2)
+      end
+      it "should give back the instances and instances of subtypes" do
+        @t3.add_subtype(@st1)
+        @t3.add_subtype(@st2)
+        @t3.add_subtype(@st3)
+        @st1.add_instance(@t4)
+        @st2.add_instance(@t5)
+        ###
+        @t3.transitive_instances.size.should == 4
+        @t3.transitive_instances.should include(@t1, @t2, @t4, @t5)
+      end
+      it "should give back the instances and but no subtypes" do
+        @t3.add_subtype(@st1)
+        @t3.add_subtype(@st2)
+        @t3.add_subtype(@st3)
+        @t3.transitive_instances.size.should == 2
+        @t3.transitive_instances.should include(@t1, @t2)
+      end
+      it "should give back the instances and instances of transitive subtypes" do
+        @t3.add_subtype(@st1)
+        @t3.add_subtype(@st2)
+        @t3.add_subtype(@st3)
+        @st3.add_subtype(@st4)
+        @st1.add_instance(@t4)
+        @st2.add_instance(@t5)
+        @st4.add_instance(@t3) #bad user
+        ###
+        @t3.transitive_instances.size.should == 5
+        @t3.transitive_instances.should include(@t1, @t2, @t3, @t4, @t5)
+      end
+      it "should give back no duplicates" do
+        @t3.add_subtype(@st1)
+        @t3.add_subtype(@t3) #bad user
+        @st1.add_instance(@t2) #duplicate also
+        ###
+        @t3.transitive_instances.size.should == 2
+        @t3.transitive_instances.should include(@t1, @t2)
+      end
+    end
+  end
+end

data/spec/rtm/navigation/topic_spec.rb

@@ -0,0 +1,153 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::Navigation::Topic
+  describe self do
+    before(:all) do
+      @tm = get_used_tm_sys_tm
+      @topic = @tm.get!("person")
+      @methods_array = @topic.methods
+    end
+    after(:all) do
+      @tm.close
+    end
+    
+    describe "#axes" do
+      it "should give back a RTM::Axes::Topic" do
+        proxy = @topic.axes
+        proxy.should be_a_kind_of(RTM::Axes::Topic)
+        proxy.construct.should == @topic
+        proxy.tm.should == @tm
+      end    
+    end
+    
+    describe "#characteristics" do
+      it "should be allowed to call" do
+        @methods_array.should include("characteristics")
+      end
+    end
+    
+    describe "#indicators" do
+      it "should be allowed to call" do
+        @methods_array.should include("indicators")
+      end
+    end
+  
+    describe "#indicator" do
+      it "should be allowed to call" do
+        @methods_array.should include("indicator")
+      end
+    end
+
+    describe "#item" do
+      it "should be allowed to call" do
+        @methods_array.should include("item")
+      end  
+    end
+
+    describe "#locators" do
+      it "should be allowed to call" do
+        @methods_array.should include("locators")
+      end
+    end
+
+    describe "#reverse_players" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_players")
+      end
+    end
+    
+    describe "#reifier" do
+      it "should not be allowed to call" do
+        @methods_array.should_not include("reifier")
+      end
+    end
+    
+    describe "#reverse_roles" do
+      it "should not be allowed to call" do
+        @methods_array.should_not include("reverse_roles")
+      end
+    end
+    
+    describe "#reverse_scope" do
+      it "should not be allowed to call" do
+        @methods_array.should_not include("reverse_scope")
+      end   
+    end
+    
+    describe "#supertypes" do
+      it "should be allowed to call" do
+        @methods_array.should include("supertypes") 
+      end  
+    end
+    
+    describe "#reverse_subtypes" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_subtypes")
+      end
+    end
+    
+    describe "#subtypes" do
+      it "should be allowed to call" do
+        @methods_array.should include("subtypes")
+      end
+    end
+    
+    describe "#reverse_supertypes" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_supertypes")   
+      end
+    end
+  
+    describe "#traverse" do   
+      it "should be allowed to call" do
+        @methods_array.should include("traverse")
+      end
+    end
+    
+    describe "#reverse_traverse" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_traverse")  
+      end 
+    end
+    
+    describe "#types" do
+      it "should be allowed to call" do
+        @methods_array.should include("types")   
+      end
+    end
+    
+    describe "#reverse_instances" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_instances")   
+      end
+    end
+    
+    describe "#type" do
+      it "should be allowed to call" do
+        @methods_array.should include("type")   
+      end
+    end
+    
+    describe "#instances" do
+      it "should be allowed to call" do
+        @methods_array.should include("instances")   
+      end
+    end
+    
+    describe "#reverse_types" do
+      it "should be allowed to call" do
+        @methods_array.should include("reverse_types")  
+      end 
+    end
+    
+    describe "#instance" do
+      it "should be allowed to call" do
+        @methods_array.should include("instance")   
+      end
+    end
+    
+  end
+end

data/spec/rtm/sugar/association/hash_access_spec.rb

@@ -0,0 +1,55 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module Sugar
+  module Association
+    module HashAccess
+
+      describe "#[]" do
+        before(:each) do
+          @tm = get_used_tm_sys_tm
+          @assoc = @tm.create_association("assoc_type")
+          @assoc2 = @tm.create_association("assoc_type2")
+          @role1 = @assoc.create_role("role_type1", "player1")
+          @role2 = @assoc.create_role("role_type2","player2")
+          @role3 = @assoc2.create_role("role_type3","player3")
+          @role4 = @assoc.create_role("role_type2","player4")
+        end
+        after(:each) do
+          @tm.close
+        end
+        it "should give back Roles which have the specified Role type" do
+          @assoc["role_type1"].size.should == 1
+          @assoc["role_type1"].should include(@role1)
+          @assoc["role_type2"].size.should == 2
+          @assoc["role_type2"].should include(@role2)
+          @assoc["role_type2"].should include(@role4)
+        end
+        it "should give back an empty Array if the type does not exist" do
+          @assoc["wrong_type"].should == []
+        end
+        it "should give back all roles of the association if no type is given or type==:any" do
+          @assoc[].size.should == 3
+          @assoc[:any].size.should == 3
+          @assoc[].should include(@role1)
+          @assoc[].should include(@role2)
+          @assoc[].should include(@role4)
+          @assoc[:any].should include(@role1)
+          @assoc[:any].should include(@role2)
+          @assoc[:any].should include(@role4)
+        end
+      end
+      describe "#[]=" do
+        before(:each) do
+          @tm = get_used_tm_sys_tm
+        end
+        after(:each) do
+          @tm.close
+        end
+        it "should test []="
+      end
+    end
+  end
+end