rtm 0.1.6 → 0.2.0

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

@@ -0,0 +1,184 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module Sugar::Topic::Counterparts
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @t1,@t2,@t3,@t4,@t5 = @tm.get!(["t1","t2","t3","t4","t5"])
+      @t_a1,@t_a2,@t_a3 = @tm.get!(["t_a1","t_a2","t_a3"])
+      @t_r1,@t_r2,@t_r3,@t_r4,@t_r5 = @tm.get!(["t_r1","t_r2","t_r3","t_r4","t_r5"])
+      @a1 = @tm.create_association(@t_a1)
+      @a2 = @tm.create_association(@t_a2)
+      @a3 = @tm.create_association(@t_a1)
+      @a4 = @tm.create_association(@t_a3)
+      @a5 = @tm.create_association(@t_a1)
+      @r1 = @a1.create_role(@t_r1, @t1)
+      @r2 = @a1.create_role(@t_r2, @t2)
+      @r3 = @a1.create_role(@t_r1, @t4)
+      @r4 = @a2.create_role(@t_r1, @t1)
+      @r5 = @a2.create_role(@t_r3, @t3)
+      @r6 = @a3.create_role(@t_r4, @t1)
+      @r7 = @a3.create_role(@t_r5, @t5)
+      @r8 = @a4.create_role(@t_r4, @t4)
+      @r9 = @a4.create_role(@t_r5, @t4)
+      @r10= @a5.create_role(@t_r2, @t5)
+      @lonely_topic = @tm.get!("lonely")
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#counterparts" do
+      it "should return an empty Array if this Topic playes no Roles" do
+        @lonely_topic.counterparts.should be_empty
+      end
+      it "should return all counterparts if no filter is given" do
+        @t1.counterparts.size.should == 4
+        @t1.counterparts.should include @r2, @r3, @r5, @r7
+        @t3.counterparts.first.should == @r4
+      end
+      it "should return some counterparts if the roletype is filtered" do
+        @t1.counterparts({:rtype => @t_r1}).size.should == 3
+        @t1.counterparts({:rtype => @t_r1}).should include @r2, @r3, @r5
+        @t3.counterparts({:rtype => @t_r1}).should be_empty
+        @t3.counterparts({:rtype => "test"}).should be_empty
+      end
+      it "should return some counterparts if the associationtype is filtered" do
+        @t1.counterparts({:atype => @t_a1}).size.should == 3
+        @t1.counterparts({:atype => @t_a1}).should include @r2, @r3, @r7
+        @t1.counterparts({:atype => @t_a3}).should be_empty
+      end
+      it "should return some counterparts if the other-roletype is filtered" do
+        @t1.counterparts({:otype => @t_r5}).size.should == 1
+        @t1.counterparts({:otype => @t_r5}).should include @r7
+      end
+      it "should return some counterparts if roletype, associationstype and other-roletype is filtered" do
+        @t1.counterparts({:rtype => @t_r1, :atype => @t_a1, :otype => @t_r2}).size.should == 1
+        @t1.counterparts({:rtype => @t_r1, :atype => @t_a1, :otype => @t_r1}).should include @r3
+      end
+      it "should handle circular associations" do
+        @t4.counterparts(:atype => @t_a3).size.should == 2
+        @t4.counterparts(:atype => @t_a3).should include @r8
+      end
+    end
+    describe "#counterplayers" do
+      it "should return an empty Array if this Topic playes no Roles" do
+        @lonely_topic.counterplayers.should be_empty
+      end
+      it "should return all counterplayers if no filter is given" do
+        @t1.counterplayers.size.should == 4
+        @t1.counterplayers.should include @t2, @t3, @t4, @t5
+        @t3.counterplayers.first.should == @t1
+      end
+      it "should return some counterplayers if the roletype is filtered" do
+        @t1.counterplayers({:rtype => @t_r1}).size.should == 3
+        @t1.counterplayers({:rtype => @t_r1}).should include @t2, @t3, @t4
+        @t3.counterplayers({:rtype => @t_r1}).should be_empty
+        @t3.counterplayers({:rtype => "test"}).should be_empty
+      end
+      it "should return some counterplayers if the associationtype is filtered" do
+        @t1.counterplayers(:atype => @t_a1).size.should == 3
+        @t1.counterplayers(:atype => @t_a1).should include @t2, @t4, @t5
+        @t1.counterplayers(:atype => @t_a3).should be_empty
+      end
+      it "should return some counterplayers if the other-roletype is filtered" do
+        @t1.counterplayers(:otype => @t_r5).size.should == 1
+        @t1.counterplayers(:otype => @t_r5).should include @t5
+      end
+      it "should return some counterplayers if roletype, associationstype and other-roletype is filtered" do
+        @t1.counterplayers(:rtype => @t_r1, :atype => @t_a1, :otype => @t_r2).size.should == 1
+        @t1.counterplayers(:rtype => @t_r1, :atype => @t_a1, :otype => @t_r1).should include @t4
+      end
+      it "should handle circular associations" do
+        @t4.counterplayers(:atype => @t_a3).size.should == 1
+        @t4.counterplayers(:atype => @t_a3).should include @t4
+      end
+      it "should return a unique Array" do
+        result = @t4.counterplayers
+        result.size.should == 3
+        result.should include @t1,@t2,@t4 
+      end
+    end   
+  end #of describe self
+  
+  describe self do
+    before(:all) do
+      @tm = get_used_tm_sys_tm
+      @t1,@t2,@t3,@t4,@t5,@t6,@t7,@t8 = @tm.get!(["t1","t2","t3","t4","t5","t6","t7","t8"])
+      @t_a1,@t_a2 = @tm.get!(["t_a1","t_a2"])
+      t_r1,t_r2,t_r3,t_r4,t_r5,t_r6 = @tm.get!(["t_r1","t_r2","t_r3","t_r4","t_r5","t_r6"])
+      a1 = @tm.create_association(@t_a1)
+      a2 = @tm.create_association(@t_a1)
+      a3 = @tm.create_association(@t_a1)
+      a4 = @tm.create_association(@t_a1)
+      a5 = @tm.create_association(@t_a1)
+      a6 = @tm.create_association(@t_a2)
+      r1 = a1.create_role(t_r1, @t1)
+      r2 = a1.create_role(t_r3, @t2)
+      r4 = a2.create_role(t_r1, @t1)
+      r5 = a2.create_role(t_r3, @t3)
+      r6 = a3.create_role(t_r1, @t1)
+      r7 = a3.create_role(t_r5, @t5)
+      r3 = a4.create_role(t_r1, @t1)
+      r8 = a4.create_role(t_r3, @t4)
+      r9 = a4.create_role(t_r6, @t6)
+      r10 = a5.create_role(t_r4, @t1)
+      r11 = a5.create_role(t_r3, @t7)
+      r12 = a6.create_role(t_r4, @t1)
+      r13 = a6.create_role(t_r2, @t8)
+    end
+    after(:all) do
+      @tm.close
+    end
+    describe "#peers" do
+      it "should give back all peers if argument = :any" do
+        @t3.peers(:any).should == @t3.peers
+      end
+      it "should give back an empty Array if argument is not a Topic or Topic-Reference" do
+        @t3.peers("noTopic").should respond_to(:each)
+        @t3.peers("noTopic").should be_empty
+      end
+      it "should give back all peers" do
+        @t3.peers.size.should == 6 #loose
+        @t3.should have(6).peers
+        @t3.peers.should include @t2,@t4,@t5,@t6,@t7,@t8
+      end
+      it "should give back some peers if rtype is given" do
+        @t3.peers("t_r3").size.should == 3
+        @t3.peers("t_r3").should include @t2,@t4,@t7       
+      end
+      it "should give back no peers if rtype is given but does not match" do
+        @t3.peers("t_r6").should respond_to(:each)
+        @t3.peers("t_r6").should be_empty
+      end
+      it "should give back some peers if atype is given" do
+        @t3.peers(@t_a1).size.should == 3
+        @t3.peers(@t_a1).should include @t2, @t4, @t7
+      end
+      it "should give back no peers if atype is given  but does not match" do
+        @t3.peers(@t_a2).should respond_to(:each)
+        @t3.peers(@t_a2).should be_empty
+      end
+    end
+  end #of describe self
+
+  describe self do
+    describe "#associations_played" do
+      before(:each) do
+        @tm = get_used_tm_sys_tm
+        @topic = @tm.get!("topic")
+      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
+      end
+      it "should be tested"
+    end
+  end
+
+end
+

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

@@ -0,0 +1,234 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module Sugar::Topic::HashAccess
+  
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+    describe "#[]" do
+      before(:each) do
+        @topic1 = @tm.get!("Hans")
+        @name1 = @topic1.create_name("Hans")
+        @name2 = @topic1.create_name("first","George",["en","always"])
+        @name3 = @topic1.create_name("last","Meyer",["underground"])
+        @occ1  = @topic1.create_occurrence("Heimat","Sachsen",:scope => ["de"])
+        @occ2  = @topic1.create_occurrence("Heimat","Germany",:scope => ["de","always"])
+        @occ3  = @topic1.create_occurrence("Birthyear","1969",:scope => ["always"])
+        @occ4  = @topic1.create_occurrence("parents","none")
+      end
+      it "should give back an Occurrence of the specified type, in an Array, if the argument is a Topic" do
+        @topic1[@tm.get("Something")].size.should == 0
+        @topic1[@tm.get("Heimat")].size.should == 2
+        @topic1[@tm.get("Heimat")].should include(@occ1)
+        @topic1[@tm.get("Heimat")].should include(@occ2)
+      end
+      it "should give back an empty Array if the argument is nil" do
+        @topic1[nil].should be_empty
+        @topic1.[](nil).should be_empty
+      end
+      it "should give back all occurrences of this Topic if no argument is given" do
+        @topic1[].size.should == 4
+        @topic1[].should include(@occ1)
+        @topic1[].should include(@occ2)
+        @topic1[].should include(@occ3)
+        @topic1[].should include(@occ4)
+      end
+      it "should return an array of names with default nametype if the argument equals '-'" do
+        @topic1["-"].size.should == 1
+        @topic1["-"].should include(@name1)
+      end
+      it "should give back all names that have the given name type if argument equals '-type'" do
+        @topic1["-first"].size.should == 1
+        @topic1["-first"].should include(@name2)
+      end
+      it "should give back all names that have the given name type and scope if argument equals '-type @scope" do
+        @topic1["-last @underground"].size.should == 1
+        @topic1["-last @underground"].should include(@name3)
+      end
+      it "should give back an empty Array if argument equals '-type' or '-type @scope' or '-type @scope1 scope2' but type or scope/1/2 does not exist" do
+        @topic1["-nothing"].should be_empty
+        @topic1["-first @nothing"].should be_empty
+        @topic1["-nothing @nothing"].should be_empty
+        @topic1["-first @en nothing"].should be_empty
+        @topic1["-first @nothing en"].should be_empty
+        @topic1["-nothing @nothing nothing"].should be_empty
+      end
+      it "should give back all names that have the given name type and scope if argument equals '-type @scope1 scope2" do
+        @topic1["-first @en always"].size.should == 1
+        @topic1["-first @en always"].should include(@name2)
+        @topic1["-first @en, always"].should == @topic1["-first @en always"]
+      end
+      it "should give back all occurrences that have the given occurrence type if argument equals 'type'" do
+        @topic1["Heimat"].size.should == 2
+        @topic1["Heimat"].should include(@occ1)
+        @topic1["Heimat"].should include(@occ2)
+      end
+      it "should give back all occurrences that have the given occurrence type and scope if argument equals 'type @scope'" do
+        @topic1["Heimat @de"].size.should == 2
+        @topic1["Heimat @de"].should include(@occ1)
+        @topic1["Heimat @de"].should include(@occ2)
+      end
+      it "should give back all occurrences that have the given occurrence type and scope if argument equals 'type @scope1 scope2'" do
+        @topic1["Heimat @de always"].size.should == 1
+        @topic1["Heimat @de always"].should include(@occ2)
+        @topic1["Heimat @de, always"].should == @topic1["Heimat @de always"]
+      end
+      it "should give back an empty Array if argument equals 'type' or 'type @scope' or 'type @scope1 scope2' but type or scope/1/2 does not exist" do
+        @topic1["nothing"].should be_empty
+        @topic1["first @nothing"].should be_empty
+        @topic1["nothing @nothing"].should be_empty
+        @topic1["parents @en nothing"].should be_empty
+        @topic1["parents @nothing en"].should be_empty
+        @topic1["nothing @nothing nothing"].should be_empty
+      end
+      it "should give back all name and occurrences of this Topic if argument equals '*'" do
+        @topic1["*"].size.should == 7
+      end
+      it "should give back all name and occurrences that have the given type if argument equals '*type'" do
+        name = @topic1.create_name("dummy_type","dummy_name")
+        occ = @topic1.create_occurrence("dummy_type","dummy_occ")
+        @topic1["*dummy_type"].size.should == 2
+        @topic1["*dummy_type"].should include(name)
+        @topic1["*dummy_type"].should include(occ)
+        @topic1["*first"].size.should == 1
+        @topic1["*first"].should include(@name2)
+        @topic1["*parents"].size.should == 1
+        @topic1["*parents"].should include(@occ4)
+      end
+      it "should give back all name and occurrences that have the given type and scope if argument equals '*type @scope'" do
+        name1 = @topic1.create_name("dummy_type","dummy_name1",["theme0"])
+        name2 = @topic1.create_name("dummy_type","dummy_name2",["theme1"])
+        occ1 = @topic1.create_occurrence("dummy_type","dummy_occ1", :scope => ["theme0","theme1"])
+        occ2 = @topic1.create_occurrence("dummy_type","dummy_occ2",:scope => ["theme1"])
+        @topic1["*dummy_type @theme0"].size.should == 2
+        @topic1["*dummy_type @theme0"].should include(occ1)
+        @topic1["*dummy_type @theme0"].should include(name1)
+        @topic1["*dummy_type @theme1"].size.should == 3
+        @topic1["*dummy_type @theme1"].should include(name2)
+        @topic1["*dummy_type @theme1"].should include(occ1)
+        @topic1["*dummy_type @theme1"].should include(occ2)
+      end
+      it "should give back all name and occurrences that have the given type and scope if argument equals '*type @scope1 scope2'" do
+        name1 = @topic1.create_name("dummy_type","dummy_name1",["theme0","theme1"])
+        name2 = @topic1.create_name("dummy_type","dummy_name2",["theme1"])
+        occ1 = @topic1.create_occurrence("dummy_type","dummy_occ1",:scope => ["theme0"])
+        occ2 = @topic1.create_occurrence("dummy_type","dummy_occ2",:scope => ["theme0","theme1"])
+        @topic1["*dummy_type @theme0 theme1"].size.should == 2
+        @topic1["*dummy_type @theme0 theme1"].should include(name1)
+        @topic1["*dummy_type @theme0 theme1"].should include(occ2)
+      end
+      it "should handle spaces if argument is a String" do
+        @topic1["  -   "].should == @topic1["-"]
+        @topic1["  -    first   "].should == @topic1["-first"]
+        @topic1["  -   last   @   underground"].should == @topic1["-last @underground"]
+        @topic1["  -   first   @   en   always"].should == @topic1["-first @en always"]
+        @topic1[" -   first   @   en,    always"].should == @topic1["-first @en, always"]
+        @topic1["   Heimat   "].should == @topic1["Heimat"]
+        @topic1["     Heimat @   de    "].should == @topic1["Heimat @de"]
+        @topic1["  Heimat   @  de    always     "].should == @topic1["Heimat @de always"]
+        @topic1["  *  "].should == @topic1["*"]
+      end
+      it "should give back occurrences and names whose type have item identifier" do
+        topic = @tm.get!("name_ii_test")
+        name = topic.create_name("ii:firstname_ii_test","Hans")
+        @tm.get("^firstname_ii_test").should_not be_nil
+        occ = topic.create_occurrence("ii:age_ii_test","12")
+        @tm.get("^age_ii_test").should_not be_nil
+        topic["-ii:firstname_ii_test"].size.should == 1
+        topic["-ii:firstname_ii_test"].should include name
+        topic["ii:age_ii_test"].size.should == 1
+        topic["ii:age_ii_test"].should include occ
+        topic["-firstname_ii_test"].should be_empty
+        topic["age_ii_test"].should be_empty
+        topic["*"].size.should == 2
+      end
+      it "should give back occurrences and names whose type have subject locator"
+    end
+    
+    describe "#[]=" do
+      before(:each) do
+        @topic2 = @tm.get!("Peter")
+      end
+      it "should set a name with standard name type given '-'" do
+        @topic2["-"] = "Peter"
+        @topic2["Hausnummer"] = "1"
+        @topic2.names.size.should == 1
+        @topic2.names.first.type.should == @tm.get(RTM::PSI[:name_type])
+        @topic2.names.first.value.should == "Peter"
+      end
+      it "should set a name with standard name type and scope given '- @scope'" do
+        scope = RTM::PREFIX[:language] + "german"
+        @topic2["- @" + scope] = "Peter"
+        @topic2["Hausnummer"] = "1"
+        @topic2.names.size.should == 1
+        @topic2.names.first.type.should == @tm.get(RTM::PSI[:name_type])
+        @topic2.names.first.value.should == "Peter"
+        @topic2.names.first.scope.first.should == @tm.get(scope)
+      end
+      it "should set a name with standard name type and scope (which is a qname) given '-@qname'" do
+        @tm.add_prefix("lang",RTM::PREFIX[:language])
+        @topic2["- @lang:german"] = "Peter"
+        @topic2["Hausnummer"] = "1"
+        @topic2.names.size.should == 1
+        @topic2.names.first.type.should == @tm.get(RTM::PSI[:name_type])
+        @topic2.names.first.value.should == "Peter"
+        scope = RTM::PREFIX[:language] + "german"
+        @topic2.names.first.scope.first.should == @tm.get(scope)
+      end
+      it "should set a name and nametype type given '-nametype'" do
+        @topic2["-first"] = "Peter"
+        @topic2["Hausnummer"] = "1"
+        @topic2.names.size.should == 1
+        @topic2.names.first.type.should == @tm.get("first")
+        @topic2.names.first.value.should == "Peter"
+      end
+      it "should set an Occurrence and Occurrence type given 'occurrencetype'" do
+        @topic2["-first"] = "Peter"
+        @topic2["Hausnummer"] = "1"
+        @topic2.occurrences.size.should == 1
+        @topic2.occurrences.first.type.should == @tm.get("Hausnummer")
+        @topic2.occurrences.first.value.should == "1"
+      end
+      it "should set the Scope given [...@ scope] or [...@ scope1, scope2 scope3 ...]" do
+        @topic2["-first @deutsch"] = "Peter"
+        @topic2["Hausnummer @scope1, scope2 scope3"] = "1"
+        @topic2.names.first.type.should == @tm.get("first")
+        @topic2.names.first.value.should == "Peter"
+        @topic2.names.first.scope.first.should == @tm.get("deutsch")
+        @topic2.occurrences.first.type.should == @tm.get("Hausnummer")
+        @topic2.occurrences.first.value.should == "1"
+        @topic2.occurrences.first.scope.size.should == 3
+        @topic2.occurrences.first.scope.should include(@tm.get("scope1"))
+        @topic2.occurrences.first.scope.should include(@tm.get("scope2"))
+        @topic2.occurrences.first.scope.should include(@tm.get("scope3"))
+      end
+      it "should allow spaces before and after and between - and Nametype and @" do
+        @topic2[" -  first   @  scope1 scope2 scope3"] = "Peter"
+        @topic2.names.size.should == 1
+        @topic2.names.first.type.should == @tm.get("first")
+        @topic2.names.first.scope.size.should == 3
+        @topic2.names.first.scope.should include(@tm.get("scope1"))
+        @topic2.names.first.scope.should include(@tm.get("scope2"))
+        @topic2.names.first.scope.should include(@tm.get("scope3"))
+      end 
+      it "should create names whose types have item identifier" do
+        @topic2["-ii:a_name"] = "Billy"
+        @tm.get("^a_name").should_not be_nil
+        @topic2.names.first.type.should == @tm.get("^a_name")
+      end
+      it "should create occurrences whose types have item identifier" do
+        @topic2["ii:an_occ"] = "42"
+        @tm.get("^an_occ").should_not be_nil
+        @topic2.occurrences.first.type.should == @tm.get("^an_occ")
+      end
+    end
+  end
+  
+end

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

@@ -0,0 +1,131 @@
+# 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 Scoped
+      describe self do
+        before(:all) 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(:all) do
+          @tm.close
+        end
+        
+        describe "#scoped" do
+          it "should give back all constructs which have this Topic in their scope" do
+            @theme1.scoped.size.should == 3
+            @theme1.scoped.should include(@name1)
+            @theme1.scoped.should include(@name3)
+            @theme1.scoped.should include(@variant)
+            @theme2.scoped.size.should == 3
+            @theme2.scoped.should include(@name1)
+            @theme2.scoped.should include(@name2)
+            @theme2.scoped.should include(@variant)
+            @theme3.scoped.size.should == 1
+            @theme3.scoped.should include(@occ1)
+            @theme4.scoped.size.should == 1
+            @theme4.scoped.should include(@name5)
+            @test_theme.scoped.size.should == 4
+            @test_theme.scoped.should include(@name2)
+            @test_theme.scoped.should include(@occ2)
+            @test_theme.scoped.should include(@assoc)
+            @test_theme.scoped.should include(@variant)
+          end         
+          it "should give back an empty Array if there are no Constructs which have this Topic in their scope" do
+            @theme0.scoped.should be_empty
+          end
+        end
+        
+        describe "#scoped_associations" do
+          it "should give back all Associations which have this Topic in their scope" do
+            @theme1.scoped_associations.should be_empty
+            @theme2.scoped_associations.should be_empty
+            @theme3.scoped_associations.should be_empty
+            @theme4.scoped_associations.should be_empty
+            @test_theme.scoped_associations.size.should == 1
+            @test_theme.scoped_associations.should include(@assoc)
+          end
+          it "should give back an empty Array if there are no Associations which have this Topic in their scope" do
+            @theme0.scoped_associations.should be_empty
+          end
+        end
+        
+        describe "#scoped_names" do
+          it "should give back all Names which have this Topic in their scope" do
+            @theme1.scoped_names.size.should == 2
+            @theme1.scoped_names.should include(@name1)
+            @theme1.scoped_names.should include(@name3)
+            @theme2.scoped_names.size.should == 2
+            @theme2.scoped_names.should include(@name1)
+            @theme2.scoped_names.should include(@name2)
+            @theme3.scoped_names.should be_empty
+            @theme4.scoped_names.size.should == 1
+            @theme4.scoped_names.should include(@name5)
+            @test_theme.scoped_names.size.should == 1
+            @test_theme.scoped_names.should include(@name2)
+          end
+          it "should give back an empty Array if there are no Names which have this Topic in their scope" do
+            @theme0.scoped_names.should be_empty
+          end
+        end
+        
+        describe "#scoped_occurrences" do
+          it "should give back all Occurrences which have this Topic in their scope" do
+            @theme1.scoped_occurrences.should be_empty
+            @theme2.scoped_occurrences.should be_empty
+            @theme3.scoped_occurrences.size.should == 1
+            @theme3.scoped_occurrences.should include(@occ1)
+            @theme4.scoped_occurrences.should be_empty
+            @test_theme.scoped_occurrences.size.should == 1
+            @test_theme.scoped_occurrences.should include(@occ2)
+          end
+          it "should give back an empty Array if there are no Occurrences which have this Topic in their scope" do
+            @theme0.scoped_occurrences.should be_empty
+          end
+        end
+        
+        describe "#scoped_variants" do
+          it "should give back all Variants which have this Topic in their scope" do
+            @theme1.scoped_variants.size.should == 1
+            @theme1.scoped_variants.should include(@variant)
+            @theme2.scoped_variants.size.should == 1
+            @theme2.scoped_variants.should include(@variant)
+            @theme3.scoped_variants.should be_empty
+            @theme4.scoped_variants.should be_empty
+            @test_theme.scoped_variants.size.should == 1
+            @test_theme.scoped_variants.should include(@variant)
+          end
+          it "should give back an empty Array if there are no Variants which have this Topic in their scope" do
+            @theme0.scoped_variants.should be_empty
+          end
+        end
+        
+      end #of describe self
+      
+    end
+  end
+end