rtm 0.3.0 → 0.3.1

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

@@ -8,8 +8,14 @@ module RTM::Navigation::Topic
     before(:each) do
       @tms = get_used_tm_sys
       @tm_empty = @tms.create("http://rtm.topicmapslab.de/spec/rtm/axes/navigation/supertypes/empty")
+      if implementation_for_spec == :majortom_db
+        @tm_empty.clear
+      end
       @topic1 = @tm_empty.get!("topic1") #lonely Topic
       @tm = @tms.create("http://rtm.topicmapslab.de/spec/rtm/axes/navigation/supertypes/tm")
+      if implementation_for_spec == :majortom_db
+        @tm.clear
+      end
       @t_lebewesen = @tm.get!("Lebewesen")
       @t_tier = @tm.get!("Tier")
       @t_affe = @tm.get!("Affe")
@@ -27,8 +33,6 @@ module RTM::Navigation::Topic
       @assoc4 = @tm.create_association(@t_super_sub)
       @assoc5 = @tm.create_association(@t_super_sub)
       @assoc6 = @tm.create_association(@t_super_sub)
-      @assoc7 = @tm.create_association(@t_super_sub)
-      @assoc8 = @tm.create_association(@t_super_sub)
       @assoc1.create_role(@t_sub,@t_mensch)
       @assoc1.create_role(@t_super,@t_saeuger)
       @assoc2.create_role(@t_sub,@t_saeuger)
@@ -39,12 +43,6 @@ module RTM::Navigation::Topic
       @assoc4.create_role(@t_super,@t_tier)
       @assoc5.create_role(@t_sub,@t_tier)
       @assoc5.create_role(@t_super,@t_lebewesen)
-      @assoc6.create_role(@t_sub,@t_lebewesen)
-      @assoc6.create_role(@t_sub,@t_noch_anders)
-      @assoc6.create_role(@t_super,@t_etwas)
-      @assoc6.create_role(@t_super,@t_etwas_anderes)
-      @assoc7.create_role(@t_sub,@t_tier)
-      @assoc8.create_role(@t_super,@t_mensch)
     end
     after(:each) do
       @tm_empty.close
@@ -63,19 +61,13 @@ module RTM::Navigation::Topic
         @tm_empty.get(RTM::PSI[:supertype_subtype]).should be_nil
       end
       it "should give back the direct supertypes" do
+        @t_mensch.should have(1).direct_supertypes
+        @t_mensch.direct_supertypes.should include @t_saeuger
         @t_saeuger.should have(1).direct_supertypes
         @t_saeuger.direct_supertypes.should include @t_tier
         @t_affe.should have(2).direct_supertypes
         @t_affe.direct_supertypes.should include @t_saeuger, @t_tier
       end
-      it "should not give back direct supertypes that are not part of a binary association" do
-        @t_lebewesen.direct_supertypes.should be_empty
-      end
-      it "should handle unary associations" do
-        @t_tier.should have(1).direct_supertypes
-        @t_mensch.should have(1).direct_supertypes
-      end
-
     end
 
     describe "#direct_subtypes" do
@@ -96,13 +88,6 @@ module RTM::Navigation::Topic
         @t_lebewesen.should have(1).direct_subtypes
         @t_lebewesen.direct_subtypes.should include @t_tier
       end
-      it "should not give back direct supertypes that are not part of a binary association" do
-        @t_etwas.direct_subtypes.should be_empty
-      end
-      it "should handle unary associations" do
-        @t_tier.should have(2).direct_subtypes
-        @t_mensch.direct_subtypes.should be_empty
-      end
     end
 
     describe "#transitive_supertypes" do
@@ -129,9 +114,6 @@ module RTM::Navigation::Topic
         @t_tier.transitive_supertypes.should include @t_lebewesen
         @t_lebewesen.transitive_supertypes.should be_empty
       end
-      it "should not give back transitive supertypes that are not part of a binary association" do
-        @t_noch_anders.transitive_supertypes.should be_empty
-      end
     end
 
     describe "#transitive_subtypes" do
@@ -157,9 +139,6 @@ module RTM::Navigation::Topic
         @t_lebewesen.should have(4).transitive_subtypes
         @t_lebewesen.transitive_subtypes.should include @t_tier, @t_saeuger, @t_affe, @t_mensch
       end
-      it "should not give back transitive subtypes that are not part of a binary association" do
-        @t_etwas_anderes.transitive_subtypes.should be_empty
-      end
     end
 
     describe "#add_supertype" do
@@ -169,7 +148,7 @@ module RTM::Navigation::Topic
         @tm_empty.get(RTM::PSI[:subtype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype_subtype]).should be_nil
-        @assoc = @topic1.add_supertype("topic2")
+        @topic1.add_supertype("topic2")
       end
       it "should create the typing topics if not present" do
         @tm_empty.get(RTM::PSI[:subtype]).should_not be_nil
@@ -190,21 +169,10 @@ module RTM::Navigation::Topic
       end
       it "should create a supertype_subtype association" do
         @topic1.roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).first.parent.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @assoc.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
       end
       it "should create a supertype_subtype association with exactly two roles" do
         @topic1.roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).first.parent.roles.size.should == 2
       end
-      it "should return the created supertype_subtype association" do
-        @assoc.should be_a_kind_of RTM::Association
-      end
-      it "should create a second association even if a supertype is set which already _is_ a supertype of this Topic, but direct_supertypes should return unique Array" do
-        @assoc2 = @topic1.add_supertype("topic2")
-        @assoc2.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @topic1.roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).size.should == 2
-        @tm_empty.get("topic2").roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).size.should == 2
-        @topic1.should have(1).direct_supertypes
-      end
     end
 
     describe "#add_subtype" do
@@ -214,7 +182,7 @@ module RTM::Navigation::Topic
         @tm_empty.get(RTM::PSI[:subtype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype_subtype]).should be_nil
-        @assoc = @topic1.add_subtype("topic0")
+        @topic1.add_subtype("topic0")
       end
       it "should create the typing topics if not present" do
         @tm_empty.get(RTM::PSI[:subtype]).should_not be_nil
@@ -235,21 +203,10 @@ module RTM::Navigation::Topic
       end
       it "should create a supertype_subtype association" do
         @topic1.roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).first.parent.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @assoc.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
       end
       it "should create a supertype_subtype association with exactly two roles" do
         @topic1.roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).first.parent.roles.size.should == 2
       end
-      it "should return the created supertype_subtype association" do
-        @assoc.should be_a_kind_of RTM::Association
-      end
-      it "should create a second association even if a subtype is set which already _is_ a subtype of this Topic, but direct_subtypes should return unique Array" do
-        @assoc2 = @topic1.add_subtype("topic0")
-        @assoc2.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @topic1.roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).size.should == 2
-        @tm_empty.get("topic0").roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).size.should == 2
-        @topic1.should have(1).direct_subtypes
-      end
     end
 
     describe "#add_subtypes" do
@@ -259,7 +216,7 @@ module RTM::Navigation::Topic
         @tm_empty.get(RTM::PSI[:subtype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype_subtype]).should be_nil
-        @resulting_assocs = @topic1.add_subtypes("topic2", "topic3")
+        @topic1.add_subtypes("topic2", "topic3")
       end
       it "should create the typing topics if not present" do
         @tm_empty.get(RTM::PSI[:subtype]).should_not be_nil
@@ -284,19 +241,10 @@ module RTM::Navigation::Topic
       end
       it "should create supertype_subtype associations" do
         @topic1.roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).first.parent.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @resulting_assocs.each do |assoc|
-          assoc.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        end
       end
       it "should create a supertype_subtype association with exactly two roles" do
         @topic1.roles(RTM::PSI[:supertype],RTM::PSI[:supertype_subtype]).first.parent.roles.size.should == 2
       end
-      it "should return the created supertype_subtype association" do
-        @resulting_assocs.should respond_to(:each)
-        @resulting_assocs.each do |result|
-          result.should be_a_kind_of(RTM::Association)
-        end
-      end
       it "should be tested further"
     end
 
@@ -308,8 +256,8 @@ module RTM::Navigation::Topic
         @tm_empty.get(RTM::PSI[:subtype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype]).should be_nil
         @tm_empty.get(RTM::PSI[:supertype_subtype]).should be_nil
-        @resulting_assocs = @topic1.add_supertypes("topic2", "topic3")
-      end     
+        @topic1.add_supertypes("topic2", "topic3")
+      end
       it "should create the typing topics if not present" do
         @tm_empty.get(RTM::PSI[:subtype]).should_not be_nil
         @tm_empty.get(RTM::PSI[:supertype]).should_not be_nil
@@ -333,42 +281,37 @@ module RTM::Navigation::Topic
       end
       it "should create supertype_subtype associations" do
         @topic1.roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).first.parent.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        @resulting_assocs.each do |assoc|
-          assoc.type.should == @tm_empty.get(RTM::PSI[:supertype_subtype])
-        end
       end
       it "should create a supertype_subtype association with exactly two roles" do
         @topic1.roles(RTM::PSI[:subtype],RTM::PSI[:supertype_subtype]).first.parent.roles.size.should == 2
       end
-      it "should return the created supertype_subtype association" do
-        @resulting_assocs.should respond_to(:each)
-        @resulting_assocs.each do |result|
-          result.should be_a_kind_of(RTM::Association)
-        end
-      end
       it "should be tested further"
     end
 
-    describe "#supertypes" do
-      it "should call transitive_supertypes" do
-        @topic1.method(:supertypes).should == @topic1.method(:transitive_supertypes)
+    unless implementation_for_spec == :majortom
+      describe "#supertypes" do
+        it "should call transitive_supertypes" do
+          @topic1.method(:supertypes).should == @topic1.method(:transitive_supertypes)
+        end
       end
-    end
-    describe "#subtypes" do
-      it "should call transitive_subtypes" do
-        @topic1.method(:subtypes).should == @topic1.method(:transitive_subtypes)
+      describe "#subtypes" do
+        it "should call transitive_subtypes" do
+          @topic1.method(:subtypes).should == @topic1.method(:transitive_subtypes)
+        end
       end
-    end
-    describe "#reverse_supertypes" do
-      it "should call subtypes" do
-        @topic1.method(:reverse_supertypes).should == @topic1.method(:subtypes)
+    else
+      describe "#transitive_supertypes" do
+        it "should call supertypes" do
+          @topic1.method(:transitive_supertypes).should == @topic1.method(:supertypes)
+        end
       end
-    end
-    describe "#reverse_subtypes" do
-      it "should call supertypes" do
-        @topic1.method(:reverse_subtypes).should == @topic1.method(:supertypes)
+      describe "#transitive_subtypes" do
+        it "should call transitive_subtypes" do
+          @topic1.method(:transitive_subtypes).should == @topic1.method(:subtypes)
+        end
       end
     end
+
   end
 end
 

data/spec/rtm/navigation/topic_spec.rb

@@ -84,8 +84,8 @@ module RTM::Navigation::Topic
     end
     
     describe "#reverse_subtypes" do
-      it "should be allowed to call" do
-        @methods_array.should include("reverse_subtypes")
+      it "should not be allowed to call" do
+        @methods_array.should_not include("reverse_subtypes")
       end
     end
     
@@ -96,8 +96,8 @@ module RTM::Navigation::Topic
     end
     
     describe "#reverse_supertypes" do
-      it "should be allowed to call" do
-        @methods_array.should include("reverse_supertypes")   
+      it "should not be allowed to call" do
+        @methods_array.should_not include("reverse_supertypes")
       end
     end
   

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

@@ -3,7 +3,7 @@
 
 require File.dirname(__FILE__) + '/../../../spec_helper'
 
-module Sugar
+module RTM::Sugar
   module Association
     module HashAccess
 

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

@@ -168,13 +168,29 @@ module RTM::Sugar::Topic::Counterparts
     describe "#associations_played" do
       before(:each) do
         @tm = get_used_tm_sys_tm
-        @topic = @tm.get!("topic")
+        @user1 = @tm.get!("user1")
+        @user2 = @tm.get!("user2")
       end
       after(:each) do
         @tm.close
       end
       it "should give back an empty Array if the topic plays in no association" do
-        @topic.associations_played.should be_empty
+        @user1.associations_played.should be_empty
+      end
+      describe "it give back all associations of a special kind" do
+        before(:each) do
+          @tm.add_prefix("psi", "http://example.org/psi/")
+          @tm.create_association("psi:Following", "psi:Follower" => "user1", "psi:Followed" => "user2")
+        end
+        it "if atype and rtype are given" do
+          @user1.associations_played(:rtype => "psi:Follower", :atype => "psi:Following").size.should == 1
+          @user2.associations_played(:rtype => "psi:Followed", :atype => "psi:Following").size.should == 1
+          @user1.associations_played(:rtype => "psi:Follower", :atype => "psi:Following").first.type.should == @tm.get("psi:Following")
+        end
+        it "if atype, rtype and oplayer are given" do
+          @user1.associations_played(:rtype => "psi:Follower", :atype => "psi:Following", :oplayer => "user2").size.should == 1
+
+        end
       end
       it "should be tested"
     end

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

@@ -0,0 +1,46 @@
+# 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::Remove
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @tm.from_jtm(File.dirname(__FILE__) + "/../../../resources/toyTM.jtm")
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#force_remove" do
+      it "should remove the topic if it playes in an association" do
+        topic = @tm.get("http://en.wikipedia.org/wiki/Germany")
+        topic.should_not be_nil
+        topic.force_remove
+      end
+      it "should remove the topic if it is an association type" do
+        pending "not implemented yet" do
+          topic = @tm.get("http://en.wikipedia.org/wiki/Neighbouring_Countries")
+          topic.should_not be_nil
+          topic.force_remove
+        end
+      end
+      it "should remove a topic that has a name with a reifier" do
+        topic = @tm.get("http://en.wikipedia.org/wiki/Vienna")
+        topic.should_not be_nil
+        topic.force_remove
+      end
+      it "should remove a topic that has a variant with a reifier" do
+        topic = @tm.get("http://dbpedia.org/resource/Switzerland")
+        topic.should_not be_nil
+        topic.force_remove
+      end
+      it "should remove a topic that has an occurrence with a reifier" do
+        topic = @tm.get("http://dbpedia.org/resource/Belgium")
+        topic.should_not be_nil
+        topic.force_remove
+      end
+    end
+
+  end
+end #of describe self

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

@@ -30,38 +30,111 @@ module RTM::Sugar::Topic::TopicRef
         @topic_with_si.references.first[0].should == ?h
         @topic_with_si.references.should include("http://www.topicmapslab.de/uni-berlin")
       end
+    end
+
+    describe ":resolve_qnames => :true" do
+      it "should resolve the qnames" do
+        @tm.add_prefix("tml", "http://www.topicmapslab.de/")
+        @topic_with_ii.references(:resolve_qnames => :true).first[0].should == ?^
+        @topic_with_ii.references(:resolve_qnames => :true).should include("^tml:uni-leipzig")
+        @topic_with_sl.references(:resolve_qnames => :true).first[0].should == ?=
+        @topic_with_sl.references(:resolve_qnames => :true).should include("=tml:uni-munich")
+        @topic_with_si.references(:resolve_qnames => :true).first[0].should == ?t
+        @topic_with_si.references(:resolve_qnames => :true).should include("tml:uni-berlin")
+      end
+      it "should resolve the qnames for a topic with many identifiers" do
+        topic = @tm.get!("http://www.example.org/si")
+        topic.add_subject_identifier("http://www.example.net/si")
+        topic.add_item_identifier("http://www.example.org/i i")
+        topic.add_item_identifier("http://www.example.net/i i")
+        topic.add_subject_locator("http://www.example.org/there#sl")
+        topic.add_subject_locator("http://www.example.net/sl")
+        @tm.add_prefix("example", "http://www.example.org/")
+        topic.references(:outputstyle => :yaml, :resolve_qnames => :true).size.should == 6
+        topic.references(:outputstyle => :yaml, :resolve_qnames => :true).should include("si:example:si", "si:http://www.example.net/si", "ii:example:i i", "ii:http://www.example.net/i i", "sl:example:there#sl", "sl:http://www.example.net/sl")
+      end
+    end
 
-      describe ":resolve_qnames => :true" do
-        it "should resolve the qnames" do
-          @tm.add_prefix("tml", "http://www.topicmapslab.de/")
-          @topic_with_ii.references(:resolve_qnames => :true).first[0].should == ?^
-          @topic_with_ii.references(:resolve_qnames => :true).should include("^tml:uni-leipzig")
-          @topic_with_sl.references(:resolve_qnames => :true).first[0].should == ?=
-          @topic_with_sl.references(:resolve_qnames => :true).should include("=tml:uni-munich")
-          @topic_with_si.references(:resolve_qnames => :true).first[0].should == ?t
-          @topic_with_si.references(:resolve_qnames => :true).should include("tml:uni-berlin")
+    describe "#unresolve" do
+      it "should unresolve an iri that starts with the base iri of the parent topic map" do
+        topic = @tm.get!("Leipzig")
+        identifier = "http://www.topicmapslab.de/Leipzig"
+        topic.reference.should == identifier
+        topic.unresolve(identifier).should == "Leipzig"
+      end
+      it "should not raise an error"
+    end
+
+    describe "questioning identifiers with" do
+      before(:each) do
+        @tm.add_prefix("test","http://example.com/test/")
+        @topic = @tm.get!("relativ_si")
+        @topic.add_si("http://example.org/absolute_si")
+        @topic.add_si("test:test_prefix_si")
+        @topic.add_sl("relativs_sl")
+        @topic.add_sl("http://example.org/absolute_sl")
+        @topic.add_sl("test:test_prefix_sl")
+        @topic.add_ii("relativs_ii")
+        @topic.add_ii("http://example.org/absolute_ii")
+        @topic.add_ii("test:test_prefix_il")
+      end
+      describe "#has_si?" do
+        it "shoud give back true if the topic has the given subject identifier" do
+          @topic_with_si.has_si?("http://www.topicmapslab.de/uni-berlin").should be_true
+
+        end
+        describe "if the topic does not have the given identifier" do
+          it "should give back false" do
+            @topic_with_ii.has_si?("http://www.topicmapslab.de/uni-berlin").should be_false
+            @topic_with_sl.has_si?("http://www.topicmapslab.de/uni-berlin").should be_false
+          end
+          describe "and also if this identifier is an item identifier" do
+            it "should give back false" do
+              @topic_with_ii.has_si?("http://www.topicmapslab.de/uni-leipzig").should be_false
+            end
+          end
+          describe "and also if this identifier is a suject locator" do
+            it "should give back false" do
+              @topic_with_sl.has_si?("http://www.topicmapslab.de/uni-munich").should be_false
+            end
+          end
         end
-        it "should resolve the qnames for a topic with many identifiers" do
-          topic = @tm.get!("http://www.example.org/si")
-          topic.add_subject_identifier("http://www.example.net/si")
-          topic.add_item_identifier("http://www.example.org/i i")
-          topic.add_item_identifier("http://www.example.net/i i")
-          topic.add_subject_locator("http://www.example.org/there#sl")
-          topic.add_subject_locator("http://www.example.net/sl")
-          @tm.add_prefix("example", "http://www.example.org/")
-          topic.references(:outputstyle => :yaml, :resolve_qnames => :true).size.should == 6
-          topic.references(:outputstyle => :yaml, :resolve_qnames => :true).should include("si:example:si", "si:http://www.example.net/si", "ii:example:i i", "ii:http://www.example.net/i i", "sl:example:there#sl", "sl:http://www.example.net/sl")
+        it "should resolve prefixes" do
+          @topic.has_si?("http://example.com/test/test_prefix_si").should be_true
+          @topic.has_si?("test:test_prefix_si").should be_true
         end
+
+        it "should be tested"
+      end
+
+      describe "#has_ii?" do
+        it "should be tested"
       end
 
-      describe "#unresolve" do
-        it "should unresolve an iri that starts with the base iri of the parent topic map" do
-          topic = @tm.get!("Leipzig")
-          identifier = "http://www.topicmapslab.de/Leipzig"
-          topic.reference.should == identifier
-          topic.unresolve(identifier).should == "Leipzig"
+      describe "#has_sl?" do
+        it "should be tested"
+      end
+
+      describe "#has_type_with_si?" do
+        it "should give back true if the si belongs to a type of the topic and false otherwise" do
+          instance = @tm.get!("Instance")
+          instance.add_type(@topic)
+          instance.add_type("something")
+          instance.has_type_with_si?("http://example.org/absolute_si").should be_true
+          instance.has_type_with_si?("test:test_prefix_si").should be_true
+          instance.has_type_with_si?("http://example.org/absolute_sl").should be_false
+          instance.has_type_with_si?("http://example.org/absolute_ii").should be_false
         end
-        it "should not raise an error"
+      end
+
+      describe "#has_type_with_ii?" do
+        it "should be tested"
+
+      end
+
+      describe "#has_type_with_sl?" do
+        it "should be tested"
+
       end
     end
   end #of describe self