rtm 0.1.6 → 0.2

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

@@ -0,0 +1,53 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Occurrence
+
+  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 the Topic the Occurrence belongs to" do
+        topic = @tm.create_topic_by("House")
+        topic.should be_a_kind_of RTM::Topic
+        @tm.get("House").should be_a_kind_of RTM::Topic
+        testocc = topic.create_occurrence("street number", "1")
+        testocc.should be_a_kind_of RTM::Occurrence
+        testocc.parent.should == topic
+      end
+    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")
+        @occ = @topic1.create_occurrence("birthyear","2000")
+        @topic2.create_occurrence("birthyear","1980")
+        @topic1.should have(1).occurrences
+        @topic1.occurrences.should include @occ
+      end
+      after(:each) do
+        @tm.close
+      end
+      it "should remove this name from the container (topic)" do
+        @tm.literal_index.getOccurrences("2000").size.should == 1
+        @occ.remove
+        @tm.literal_index.getOccurrences("2000").size.should == 0
+        @tm.literal_index.getOccurrences("1980").size.should == 1
+        @topic1.should have(0).occurrences
+      end
+    end
+  end # of describe self
+
+end # of module

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

@@ -0,0 +1,168 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Reifiable
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+    
+    describe "#reifier=" do
+      before(:each) do
+        @topic = @tm.get!("test_topic")
+        @a_reifier = @tm.get!("test_reifier")
+        @a_reifier.should be_a_kind_of RTM::Topic
+        @a_reifier["-"] = "since"
+        @a_reifier["date"] = "2009"
+        @locator = @tm.create_locator("test_reifier")
+        @locator.should be_a_kind_of RTM::Locator
+        @name = @topic.create_name("Hans")
+        @name.should be_a_kind_of RTM::Name
+        @name.reifier.should be_nil
+        @variant = @name.create_variant("Hansi",["endearment"])
+        @variant.should be_a_kind_of RTM::Variant
+        @variant.reifier.should be_nil
+        @occ = @topic.create_occurrence("favourite_colour","red")
+        @occ.should be_a_kind_of RTM::Occurrence
+        @assoc = @tm.create_association("mother_child")
+        @assoc.should be_a_kind_of RTM::Association
+        @assoc.reifier.should be_nil
+        @role = @assoc.create_role("child",@topic)
+        @role.should be_a_kind_of RTM::Role
+        @role.reifier.should be_nil
+      end
+      it "should set the reifier if the Construct is a Name and identifier a String" do
+        @name.reifier = "test_reifier"
+        @name.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Name and identifier a Locator" do
+        @name.reifier = @locator
+        @name.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Name and identifier a Topic" do
+        @name.reifier = @a_reifier
+        @name.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Variant and identifier a String" do
+        @variant.reifier = "test_reifier"
+        @variant.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Variant and identifier a Locator" do
+        @variant.reifier = @locator
+        @variant.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Variant and identifier a Topic" do
+        @variant.reifier = @a_reifier
+        @variant.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Occurrence and identifier a String" do
+        @occ.reifier = "test_reifier"
+        @occ.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Occurrence and identifier a Locator" do
+        @occ.reifier = @locator
+        @occ.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Occurrence and identifier a Topic" do
+        @occ.reifier = @a_reifier
+        @occ.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Association and identifier a String" do
+        @assoc.reifier = "test_reifier"
+        @assoc.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Association and identifier a Locator" do
+        @assoc.reifier = @locator
+        @assoc.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is an Association and identifier a Topic" do
+        @assoc.reifier = @a_reifier
+        @assoc.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Role and identifier a String" do
+        @role.reifier = "test_reifier"
+        @role.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Role and identifier a Locator" do
+        @role.reifier = @locator
+        @role.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a Role and identifier a Topic" do
+        @role.reifier = @a_reifier
+        @role.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a TopicMap and identifier a String" do
+        @tm.reifier = "test_reifier"
+        @tm.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a TopicMap and identifier a Locator" do
+        @tm.reifier = @locator
+        @tm.reifier.should == @a_reifier
+      end
+      it "should set the reifier if the Construct is a TopicMap and identifier a Topic" do
+        @tm.reifier = @a_reifier
+        @tm.reifier.should == @a_reifier
+      end
+      it "should remove a reifier if the identifier is nil or not given" do
+        @name.reifier = "test_reifier"
+        @name.reifier.should == @a_reifier
+        @name.reifier = nil
+        @name.reifier.should be_nil
+        @a_reifier.should have(1).names
+        @occ.reifier = "test_reifier"
+        @occ.reifier.should == @a_reifier
+        @occ.reifier = ()
+        @occ.reifier.should be_nil
+        @variant.reifier = "test_reifier"
+        @variant.reifier.should == @a_reifier
+        @variant.reifier = nil
+        @variant.reifier.should be_nil
+        @assoc.reifier = "test_reifier"
+        @assoc.reifier.should == @a_reifier
+        @assoc.reifier = ()
+        @assoc.reifier.should be_nil
+        @role.reifier = "test_reifier"
+        @role.reifier.should == @a_reifier
+        @role.reifier = nil
+        @role.reifier.should be_nil
+        @tm.reifier = "test_reifier"
+        @tm.reifier.should == @a_reifier
+        @tm.reifier = ()
+        @tm.reifier.should be_nil
+      end
+      it "should raise an error if the identifier referes to a Topic which already reifies another information item" do
+        @name.reifier = "test_reifier"
+        lambda{@occ.reifier = "test_reifier"}.should raise_error
+      end
+    end
+
+    describe "merging of two reifier" do
+      it "should merge two reifier if their reified constructs are merged" do
+        topic = @tm.get!("Hans_Peter")
+        name1 = topic.create_name("Hans")
+        name2 = topic.create_name("Peter")
+        name1.reifier = "ii:reifier1"
+        name2.reifier = "ii:reifier2"
+        name1.reifier.should == @tm.get("ii:reifier1")
+        name2.reifier.should == @tm.get("ii:reifier2")
+        @tm.get("ii:reifier1").should_not == @tm.get!("ii:reifier2")
+        topic.should have(2).names
+        name1.value = "Peter"
+        if implementation_for_spec == :sesametm
+          topic.should have(1).names
+        else
+          pending "cannot automerge unless engine is SesameTM" do
+            topic.should have(1).names
+          end
+        end
+        #puts @basis.tmsf.getFeature("http://tmapi.org/features/automerge")
+      end
+    end
+    
+  end # of describe self
+end # of module

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

@@ -0,0 +1,73 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Role
+  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 the Association to which this Role belongs" do
+        topic = @tm.create_topic_by("Haus")
+        topic.should be_a_kind_of(RTM::Topic)
+        @tm.get("Haus").should be_a_kind_of(RTM::Topic)
+        topic_instance = @tm.create_topic_by("Weisses_Haus")
+        topic_instance.should be_a_kind_of RTM::Topic
+        @tm.get("Weisses_Haus").should be_a_kind_of(RTM::Topic)
+        testassoc = @tm.create_association("Haus-Nummer-Beziehung")
+        testrole = testassoc.create_role(topic, topic_instance) #TMAPI function
+        testassoc.should be_a_kind_of(RTM::Association)
+        testrole.should be_a_kind_of(RTM::Role)
+        testrole.parent.should == testassoc
+      end
+    end
+    
+    describe "#player=" do
+      before(:each) do
+        assoc = @tm.create_association("mother_child")
+        @role = assoc.create_role("child","Hans")
+        @role.should be_a_kind_of RTM::Role
+      end
+      it "should set the player of the Role if identifier is a String" do
+        previous_player = @role.player
+        @role.player = "Tim"
+        @role.player.should_not == previous_player
+        @role.player.should == @tm.get("Tim")
+      end
+      it "should set the player of the Role if identifier is a Locator" do
+        previous_player = @role.player
+        @role.player = @tm.create_locator("Tim")
+        @role.player.should_not == previous_player
+        @role.player.should == @tm.get("Tim")
+      end
+      it "should set the player of the Role if identifier is a Topic" do
+        previous_player = @role.player
+        @role.player = @tm.get!("Tim")
+        @role.player.should_not == previous_player
+        @role.player.should == @tm.get("Tim")
+      end
+    end
+    
+    describe "#remove" do
+      before(:each) do
+        @assoc = @tm.create_association("assoc")
+        @role1 = @assoc.create_role("r1","t1")
+        @role2 = @assoc.create_role("r2","t2")
+      end
+      it "should remove this Role from the container (Association)" do
+        @assoc.should have(2).children
+        @role1.remove
+        @assoc.should have(1).children
+        @role2.remove
+        @assoc.should have(0).children
+      end
+    end
+    
+  end # of describe self
+end #of module

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

@@ -0,0 +1,441 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Scoped
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#scope" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+        @name1 = @topic.create_name("Hans")
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @occ1 = @topic.create_occurrence("birthyear","1982")
+        @occ2 = @topic.create_occurrence("birthplace","Berlin",:scope => ["german"])
+        @variant1 = @name1.create_variant("Bubi",["endearment"])
+        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        @assoc1 = @tm.create_association("birth")
+        @assoc2 = @tm.create_association("home",["german"])
+      end
+      it "should give back a empty set if no scope is set" do
+        @name1.should have(0).scope
+        @name1.should have(0).themes
+        @occ1.should have(0).scope
+        @occ1.should have(0).themes
+        @assoc1.should have(0).scope
+        @assoc1.should have(0).themes
+      end
+      it "should give back a container" do
+        @name1.scope.should respond_to(:each)
+        @name1.scope.should_not be_a_kind_of String
+        @name2.scope.should respond_to(:each)
+        @name2.scope.should_not be_a_kind_of String
+        @occ1.scope.should respond_to(:each)
+        @occ1.scope.should_not be_a_kind_of String
+        @occ2.scope.should respond_to(:each)
+        @occ2.scope.should_not be_a_kind_of String
+        @variant1.scope.should respond_to(:each)
+        @variant1.scope.should_not be_a_kind_of String
+        @variant2.scope.should respond_to(:each)
+        @variant2.scope.should_not be_a_kind_of String
+        @assoc1.scope.should respond_to(:each)
+        @assoc1.scope.should_not be_a_kind_of String
+        @assoc2.scope.should respond_to(:each)
+        @assoc2.scope.should_not be_a_kind_of String
+      end
+      it "should give back the topics in the scope" do
+        @name2.should have(1).scope
+        @occ2.should have(1).scope
+        @variant2.should have(2).scope
+        @assoc2.should have(1).scope
+        @name2.should have(1).themes
+        @occ2.should have(1).themes
+        @variant2.should have(2).themes
+        @assoc2.should have(1).themes
+      end
+      it "should give back RTM::Topics" do
+        @name2.scope.each{|t| t.should be_a_kind_of RTM::Topic}
+        @occ2.scope.each{|t| t.should be_a_kind_of RTM::Topic}
+        @variant2.scope.each{|t| t.should be_a_kind_of RTM::Topic}
+        @assoc2.scope.each{|t| t.should be_a_kind_of RTM::Topic}
+      end
+      it "should be told, if a theme is in the returned scope or not" do
+        @name2.scope.include?(@tm.get("something"))
+        @occ2.scope.include?(@tm.get("something"))
+        @variant2.scope.include?(@tm.get("something"))
+        @assoc2.scope.include?(@tm.get("something"))
+        ###
+        existing_topic = @tm.get!("existing")
+        @name2.scope.should_not include(existing_topic)
+        @occ2.scope.should_not include(existing_topic)
+        @variant2.scope.should_not include(existing_topic)
+        @assoc2.scope.should_not include(existing_topic)
+        ###
+        #p @name2.scope.inspect
+        @name2.scope.should include(@tm.get("home"))
+        @occ2.scope.should include(@tm.get("german"))
+        @variant2.scope.should include(@tm.get("endearment"))
+        @assoc2.scope.should include(@tm.get("german"))
+      end
+    end
+    
+    describe "#add_theme" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+        @name1 = @topic.create_name("Hans")
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @occ1 = @topic.create_occurrence("birthyear","1982")
+        @occ2 = @topic.create_occurrence("birthplace","Berlin",:scope => ["german"])
+        @variant1 = @name1.create_variant("Bubi",["endearment"])
+        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        @assoc1 = @tm.create_association("birth")
+        @assoc2 = @tm.create_association("home",["german"])
+      end
+      it "should add one Topic to the scope of a Name" do
+        @name1.should be_a_kind_of RTM::Name
+        @name2.should be_a_kind_of RTM::Name
+        ###
+        @name1.scope.should be_empty
+        @name1.add_theme("test_scope_1")
+        @name1.should have(1).themes
+        @name1.add_theme(@tm.create_locator("test_scope_2"))
+        @name1.should have(2).themes
+        @name1.add_theme(@tm.get!("test_scope_3"))
+        @name1.should have(3).themes
+        @name1.scope.should include @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+        ###
+        @name2.should have(1).themes
+        @name2.scope.should include @tm.get("home")
+        @name2.add_theme("test_scope_1")
+        @name2.should have(2).themes
+        @name2.add_theme(@tm.create_locator("test_scope_2"))
+        @name2.should have(3).themes
+        @name2.add_theme(@tm.get!("test_scope_3"))
+        @name2.should have(4).themes
+        @name2.scope.should include @tm.get("home"), @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+      end
+      it "should add one Topic to the scope of an Occurrence" do
+        @occ1.should be_a_kind_of RTM::Occurrence
+        @occ2.should be_a_kind_of RTM::Occurrence
+        ###
+        @occ1.scope.should be_empty
+        @occ1.add_theme("test_scope_1")
+        @occ1.should have(1).themes
+        @occ1.add_theme(@tm.create_locator("test_scope_2"))
+        @occ1.should have(2).themes
+        @occ1.add_theme(@tm.get!("test_scope_3"))
+        @occ1.should have(3).themes
+        @occ1.scope.should include @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+        ###
+        @occ2.should have(1).themes
+        @occ2.scope.should include @tm.get("german")
+        @occ2.add_theme("test_scope_1")
+        @occ2.should have(2).themes
+        @occ2.add_theme(@tm.create_locator("test_scope_2"))
+        @occ2.should have(3).themes
+        @occ2.add_theme(@tm.get!("test_scope_3"))
+        @occ2.should have(4).themes
+        @occ2.scope.should include @tm.get("german"), @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")     
+      end
+      it "should add one Topic to the scope of a Variant" do
+        @variant1.should be_a_kind_of RTM::Variant
+        @variant2.should be_a_kind_of RTM::Variant
+        ###
+        @variant1.should have(1).themes
+        @variant1.scope.should include @tm.get("endearment")
+        @variant1.add_theme("test_scope_1")
+        @variant1.should have(2).themes
+        @variant1.add_theme(@tm.create_locator("test_scope_2"))
+        @variant1.should have(3).themes
+        @variant1.add_theme(@tm.get!("test_scope_3"))
+        @variant1.should have(4).themes
+        @variant1.scope.should include @tm.get("endearment"), @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+        ###
+        @variant2.should have(2).themes
+        @variant2.scope.should include @tm.get("home"), @tm.get("endearment")
+        @variant2.add_theme("test_scope_1")
+        @variant2.should have(3).themes
+        @variant2.add_theme(@tm.create_locator("test_scope_2"))
+        @variant2.should have(4).themes
+        @variant2.add_theme(@tm.get!("test_scope_3"))
+        @variant2.should have(5).themes
+        @variant2.scope.should include @tm.get("home"), @tm.get("endearment"), @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+      end
+      it "should add one Topic to the scope of an Association" do
+        @assoc1.should be_a_kind_of RTM::Association
+        @assoc2.should be_a_kind_of RTM::Association
+        ###
+        @assoc1.scope.should be_empty
+        @assoc1.add_theme("test_scope_1")
+        @assoc1.should have(1).themes
+        @assoc1.add_theme(@tm.create_locator("test_scope_2"))
+        @assoc1.should have(2).themes
+        @assoc1.add_theme(@tm.get!("test_scope_3"))
+        @assoc1.should have(3).themes
+        @assoc1.scope.should include @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")
+        ###
+        @assoc2.should have(1).themes
+        @assoc2.scope.should include @tm.get("german")
+        @assoc2.add_theme("test_scope_1")
+        @assoc2.should have(2).themes
+        @assoc2.add_theme(@tm.create_locator("test_scope_2"))
+        @assoc2.should have(3).themes
+        @assoc2.add_theme(@tm.get!("test_scope_3"))
+        @assoc2.should have(4).themes
+        @assoc2.scope.should include @tm.get("german"), @tm.get("test_scope_1"), @tm.get("test_scope_2"), @tm.get("test_scope_3")     
+      end
+      it "should raise an error if identifier is not a Topic or Topic-Reference" do
+        lambda{@name1.add_theme(["test_scope"])}.should raise_error
+        lambda{@occ1.add_theme(["test_scope"])}.should raise_error
+        lambda{@variant1.add_theme(["test_scope"])}.should raise_error
+        lambda{@association1.add_theme(["test_scope"])}.should raise_error
+      end
+      it "should raise an error if argument consists of several identifiers" do
+        lambda{@name1.add_theme("testscope1", "testscope2")}.should raise_error
+      end
+    end
+
+    describe "#add_themes" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+      end
+      it "should not add a theme if no argument is given" do
+        @name1 = @topic.create_name("Hans")
+        @name1.should have(0).themes
+        @name1.add_themes()
+        @name1.should have(0).themes
+        ###
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @name2.should have(1).themes
+        @name2.add_themes()
+        @name2.should have(1).themes
+      end
+      it "should add one theme if one argument is given" do
+        # adding one
+        @name1 = @topic.create_name("Hans")
+        @name1.should have(0).themes
+        @name1.add_themes("home")
+        @name1.should have(1).themes
+        # adding another
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @name2.should have(1).themes
+        @name2.add_themes("mom")
+        @name2.should have(2).themes
+        # adding t2 again -> should still have 2 themes
+        @name2.add_themes("home")
+        @name2.should have(2).themes
+      end
+      it "should add several themes if several arguments are given" do
+        @name1 = @topic.create_name("Hans")
+        @name1.should have(0).themes
+        @name1.add_themes("home", "mom")
+        @name1.should have(2).themes
+      end
+      it "should add several themes if several arrays with arguments are given" do
+        @name1 = @topic.create_name("Hans")
+        @name1.should have(0).themes
+        @name1.add_themes(["home", "mom"], "testscope")
+        @name1.should have(3).themes
+      end
+      it "should raise an error if a hash is given" do
+        @name1 = @topic.create_name("Hans")
+        @name1.should have(0).themes
+        lambda{@name1.add_themes("x" => "y")}.should raise_error
+      end
+    end
+
+    describe "#remove_theme" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+        @name = @topic.create_name("first", "Hansi", ["home","mom"])
+        @occ = @topic.create_occurrence("birthplace","Berlin",:scope => ["german","english"])
+        @variant = @name.create_variant("Bubi",["endearment"])
+        @assoc = @tm.create_association("home",["german","english"])
+        @existing_dummy = @tm.get!("existing_dummy")
+      end
+      it "should remove a Topic from the scope of a Name" do
+        @name.should be_a_kind_of RTM::Name
+        ###
+        @name.should have(2).themes
+        @name.scope.should include @tm.get("home"), @tm.get("mom")
+        @name.remove_theme("home")
+        @name.should have(1).themes
+        @name.scope.should include @tm.get("mom")
+        @name.remove_theme("mom")
+        @name.scope.should be_empty
+        @name.remove_theme("mom")
+        @name.scope.should be_empty
+      end
+      it "should remove a Topic from the scope of an Occurrence" do
+        @occ.should be_a_kind_of RTM::Occurrence
+        ###
+        @occ.should have(2).themes
+        @occ.scope.should include @tm.get("german"), @tm.get("english")
+        @occ.remove_theme("german")
+        @occ.should have(1).themes
+        @occ.scope.should include @tm.get("english")
+        @occ.remove_theme("english")
+        @occ.scope.should be_empty
+        @occ.remove_theme("english")
+        @occ.scope.should be_empty
+      end
+      it "should remove a Topic from the scope of a Variant" do
+        @variant.should be_a_kind_of RTM::Variant
+        ###
+        @variant.should have(3).themes
+        @variant.scope.should include(@tm.get("home"), @tm.get("mom"), @tm.get("endearment"))
+        @variant.remove_theme("endearment")
+        @variant.should have(2).themes
+        @variant.scope.should include @tm.get("home"), @tm.get("mom")
+        @variant.should be_a_kind_of RTM::Variant
+      end
+      it "should not remove a theme from the scope of an Variant is removed that occurrs in the scope of its parent Name also" do
+        @variant.should be_a_kind_of RTM::Variant
+        ###
+        @variant.should have(3).themes
+        @variant.scope.should include(@tm.get("home"), @tm.get("mom"), @tm.get("endearment"))
+        @variant.remove_theme("home")
+        @variant.should have(3).themes
+        @variant.scope.should include(@tm.get("home"), @tm.get("mom"), @tm.get("endearment"))
+        @variant.should be_a_kind_of RTM::Variant
+      end
+      it "should remove a Topic from the scope of an Association" do
+        @assoc.should be_a_kind_of RTM::Association
+        ###
+        @assoc.should have(2).themes
+        @assoc.scope.should include @tm.get("german"), @tm.get("english")
+        @assoc.remove_theme("german")
+        @assoc.should have(1).themes
+        @assoc.scope.should include @tm.get("english")
+        @assoc.remove_theme("english")
+        @assoc.scope.should be_empty
+        @assoc.remove_theme("english")
+        @assoc.scope.should be_empty
+      end
+      it "should not fail if the Topic_to_be_removed is not in the scope" do
+        @name.should have(2).themes
+        @name.remove_theme("dummy")
+        @name.remove_theme("existing_dummy")
+        @name.should have(2).themes 
+      end
+      it "should raise an error if argument consists of several identifiers" do
+        lambda{@name.remove_theme("testscope1", "testscope2")}.should raise_error
+      end
+    end
+
+    describe "#remove_themes" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+        #        @name1 = @topic.create_name("Hans")
+        #        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        #        @occ1 = @topic.create_occurrence("birthyear","1982")
+        #        @occ2 = @topic.create_occurrence("birthplace","Berlin",:scope => ["german"])
+        #        @variant1 = @name1.create_variant("Bubi",["endearment"])
+        #        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        #        @assoc1 = @tm.create_association("birth")
+        #        @assoc2 = @tm.create_association("home",["german"])
+      end
+      it "should not remove a theme if no argument is given" do
+        @name1 = @topic.create_name("Hans")
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @name1.should have(0).themes
+        @name1.remove_themes()
+        @name1.should have(0).themes
+        @name2.should have(1).themes
+        @name2.remove_themes()
+        @name2.should have(1).themes
+      end
+      it "should remove one theme if one argument is given" do
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        # removing one
+        @variant2.should have(2).themes
+        @variant2.remove_themes("endearment")
+        @variant2.should have(1).themes
+        # removing a non existing
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @name2.should have(1).themes
+        @name2.remove_theme("non_existing")
+      end
+      it "should remove a theme that occurs in a variant also (given a Topic)" do
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        @name2.should have(1).themes
+        @name2.themes.should include(@tm.get("home"))
+        @variant2.should have(2).themes
+        @variant2.themes.should include(@tm.get("home"), @tm.get("endearment"))
+        @name2.remove_theme(@tm.get("home"))
+        @name2.should have(0).themes
+        if implementation_for_spec == :tinytim
+          @variant2.should have(2).themes
+        elsif implementation_for_spec == :ontopia
+          @variant2.should have(1).themes
+        else
+          ### ???
+          @variant2.should have(2).themes
+        end
+      end
+      it "should remove a theme that occurs in a variant also" do
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        @variant2 = @name2.create_variant("Bubi",["home","endearment"])
+        @name2.should have(1).themes
+        @name2.themes.should include(@tm.get("home"))
+        @variant2.should have(2).themes
+        @variant2.themes.should include(@tm.get("home"), @tm.get("endearment"))
+        @name2.remove_theme("home")
+        @name2.should have(0).themes
+        if implementation_for_spec == :tinytim
+          @variant2.should have(2).themes
+        elsif implementation_for_spec == :ontopia
+          @variant2.should have(1).themes
+        else
+          ### ???
+          @variant2.should have(2).themes
+        end
+      end
+      it "should remove several themes if several arguments are given" do
+        @name2 = @topic.create_name("first", "Hansi", ["home","endearment","mom"])
+        @name2.should have(3).themes
+        @name2.remove_themes("home", "mom", "not_existing")
+        @name2.should have(1).themes
+      end
+      it "should remove several themes if several arrays with arguments are given" do
+        @name2 = @topic.create_name("first", "Hansi", ["home","endearment","mom"])
+        @name2.should have(3).themes
+        @name2.remove_themes("home", ["mom", "not_existing"])
+        @name2.should have(1).themes
+      end
+      it "should raise an error if a hash is given" do
+        @name2 = @topic.create_name("first", "Hansi", ["home"])
+        lambda{@name1.remove_themes("x" => "y")}.should raise_error
+      end
+    end
+
+    describe "#scope=" do
+      before(:each) do
+        @topic = @tm.get!("Hans")
+        @name = @topic.create_name("first", "Hansi", ["home","mom"])
+        @occ = @topic.create_occurrence("birthplace","Berlin",:scope => ["german","english"])
+        @variant = @name.create_variant("Bubi",["endearment"])
+        @assoc = @tm.create_association("home",["german","english"])
+        @existing_dummy = @tm.get!("existing_dummy")
+      end
+      it "should set the scope to empty upon request" do
+        @name.should be_a_kind_of RTM::Name
+        @name.should have(2).themes
+        pending
+        @name.scope = []
+        @name.should have(0).themes
+      end
+    end   
+  end
+end
+
+
+