rtm 0.1.6 → 0.2

data/spec/rtm/axes/string_spec.rb

@@ -0,0 +1,145 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::Axes
+  class String < ItemProxy
+    describe self do
+      before(:all) do
+        @tm = get_used_tm_sys_tm
+        @proxy = "string".axes(@tm)
+        
+      end
+      after(:all) do
+        @tm.close
+      end
+      it "should be allowed to call #tmapi and #result on a RTM::TQML::String" do
+        @proxy.methods.should include("tmapi")
+        @proxy.methods.should include("result")
+      end
+      it "should be allowed to call #reverse_atomify on a RTM::TQML::String" do
+        @proxy.methods.should include("reverse_atomify")
+      end
+      it "should be allowed to call #reverse_indicators on a RTM::TQML::String" do
+        @proxy.methods.should include("reverse_indicators")
+      end
+      it "should be allowed to call #reverse_item on a RTM::TQML::String" do
+        @proxy.methods.should include("reverse_item")
+      end
+      it "should be allowed to call #reverse_locators on a RTM::TQML::String" do
+        @proxy.methods.should include("reverse_locators")
+      end    
+      
+      describe "#new" do
+        it "should raise an error if the underlying construct is not a String" do
+          lambda{RTM::Axes::String.new(1,@tm)}.should raise_error 
+        end
+        it "should not raise an error if the underlying construct is a String" do
+          lambda{RTM::Axes::String.new("string",@tm)}.should_not raise_error 
+        end
+      end
+      
+      describe "#reverse_atomify" do
+        before(:all) do
+          @topic1 = @tm.get!("Hans")
+          @topic2 = @tm.get!("Peter")
+          @topic3 = @tm.get!("Hans2")
+          @name1 = @topic1.create_name("Hans")
+          @name2 = @topic2.create_name("Peter")
+          @name3 = @topic3.create_name("Hans")
+          @occ1 = @topic1.create_occurrence("Number","18")
+          @occ2 = @topic2.create_occurrence("Age", "18")
+          @occ3 = @topic3.create_occurrence("Friend", "Hans")
+          @variant1 = @name2.create_variant("Hans",[@tm.get!("Alias")])
+        end
+        it "should give back an Array" do
+          "Hans".axes(@tm).reverse_atomify.should be_a_kind_of Array
+          "nothing".axes(@tm).reverse_atomify.should be_a_kind_of Array
+        end
+        it "should give back an Array consisting of RTM::Axes::Characteristic" do
+         "Hans".axes(@tm).reverse_atomify.first.should be_a_kind_of RTM::Axes::Characteristic
+        end
+        it "should give back a RTM::Axes::Characteristics" do
+          "Hans".axes(@tm).reverse_atomify.should be_a_kind_of RTM::Axes::Characteristics
+        end
+        it "should give back all Names and Occurrences which have this String as value (including Variant values)" do
+          value1 = "Hans"
+          value2 = "18"
+          value1.axes(@tm).reverse_atomify.size.should == 4
+          value2.axes(@tm).reverse_atomify.size.should == 2
+          value1.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@name1)
+          value1.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@name3)
+          value1.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@occ3)
+          value1.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@name2)
+          value2.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@occ1)
+          value2.axes(@tm).reverse_atomify.map{|res| res.construct}.should include(@occ2)
+        end
+        it "should give back nil if String does not occur in a Name or Occurrence" do
+          "nothing".axes(@tm).reverse_atomify.should be_empty
+        end
+      end
+      
+      describe "reverse identifier methods" do
+        before(:all) do
+          @value = "http://www.example.org/anything"
+          @si_value = "http://www.example.org/test_si"
+          @ii_value = "http://www.example.org/test_ii"
+          @sl_value = "http://www.example.org/test_sl"
+          @si_topic = @tm.get!("si:" + @si_value)
+          @ii_topic = @tm.get!("ii:" + @ii_value)
+          @sl_topic = @tm.get!("=" + @sl_value)
+          @all_topic = @tm.create_topic
+          @all_si_value = "http://www.example.org/all_si"
+          @all_ii_value = "http://www.example.org/all_ii"
+          @all_sl_value = "http://www.example.org/all_sl"
+          @all_topic.add_subject_identifier(@all_si_value)
+          @all_topic.add_item_identifier(@all_ii_value)
+          @all_topic.add_subject_locator(@all_sl_value)
+        end
+        describe "#reverse_indicators" do
+          it "should give back a RTM::Axes::Topic if a Topic is found" do
+            @si_value.axes(@tm).reverse_indicators.should be_a_kind_of(RTM::Axes::Topic)
+            @all_si_value.axes(@tm).reverse_indicators.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back nil if no Topic is found" do
+            @value.axes(@tm).reverse_indicators.should be_nil
+          end         
+          it "should give back the right Topic" do
+            @si_value.axes(@tm).reverse_indicators.construct.should == @si_topic
+            @all_si_value.axes(@tm).reverse_indicators.construct.should == @all_topic
+          end
+        end
+        
+        describe "#reverse_item" do
+          it "should give back a RTM::Axes::Topic if a Topic is found" do
+            @ii_value.axes(@tm).reverse_item.should be_a_kind_of(RTM::Axes::Topic)
+            @all_ii_value.axes(@tm).reverse_item.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back nil if no Topic is found" do
+            @value.axes(@tm).reverse_item.should be_nil
+          end
+          it "should give back the right Topic" do
+            @ii_value.axes(@tm).reverse_item.construct.should == @ii_topic
+            @all_ii_value.axes(@tm).reverse_item.construct.should == @all_topic
+          end
+        end
+        
+        describe "#reverse_locators" do
+          it "should give back a RTM::Axes::Topic if a Topic is found" do
+            @sl_value.axes(@tm).reverse_locators.should be_a_kind_of(RTM::Axes::Topic)
+            @all_sl_value.axes(@tm).reverse_locators.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back nil if no Topic is found" do
+            @value.axes(@tm).reverse_locators.should be_nil
+          end
+          it "should give back the right Topic" do
+            @sl_value.axes(@tm).reverse_locators.construct.should == @sl_topic
+            @all_sl_value.axes(@tm).reverse_locators.construct.should == @all_topic
+          end
+        end
+      end
+      
+    end #of describe self
+  end
+end

data/spec/rtm/axes/strings_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::Axes
+  module Strings
+    describe self do
+      before(:all) do
+        @tm = get_used_tm_sys_tm
+        @proxy = ["string1".axes(@tm),"string2".axes(@tm)].extend(Strings)       
+      end
+      after(:all) do
+        @tm.close
+      end
+      it "should be allowed to call #tmapi and #result on a Strings-Array" do
+        @proxy.methods.should include("tmapi")
+        @proxy.methods.should include("result")
+      end
+      it "should be allowed to call #reverse_atomify on a Strings-Array" do
+        @proxy.methods.should include("reverse_atomify")
+      end
+      it "should not be allowed to call #reverse_indicators on a Strings-Array" do
+        @proxy.methods.should include("reverse_indicators")
+      end
+      it "should not be allowed to call #reverse_item on a Strings-Array" do
+        @proxy.methods.should include("reverse_item")
+      end
+      it "should not be allowed to call #reverse_locators on a Strings-Array" do
+        @proxy.methods.should include("reverse_locators")
+      end    
+      describe "#reverse_atomify" do
+        before(:all) do
+          @topic1 = @tm.get!("Hans")
+          @topic2 = @tm.get!("Peter")
+          @topic3 = @tm.get!("Hans2")
+          @name1 = @topic1.create_name("Hans")
+          @name2 = @topic2.create_name("Peter")
+          @name3 = @topic3.create_name("Hans")
+          @occ1 = @topic1.create_occurrence("Number","18")
+          @occ2 = @topic2.create_occurrence("Age", "18")
+          @occ3 = @topic3.create_occurrence("Frien", "Hans")
+          @variant1 = @name2.create_variant("Hans",[@tm.get!("Alias")])
+          @proxies = ["Hans".axes(@tm),"18".axes(@tm)].extend(Strings)
+        end
+        it "should give back an Array" do
+          @proxies.reverse_atomify.should be_a_kind_of Array
+        end
+        it "should give back an Array consisting of RTM::Axes::Characteristic" do
+          @proxies.reverse_atomify.first.should be_a_kind_of RTM::Axes::Characteristic
+        end
+        it "should give back a Characteristics" do
+          @proxies.reverse_atomify.should be_a_kind_of RTM::Axes::Characteristics
+        end
+        it "should give back all Names and Occurrences which have these Strings as value (including Variant values)" do
+          @proxies.reverse_atomify.size.should == 6
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@name1)
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@name3)
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@occ3)
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@name2)
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@occ1)
+          @proxies.reverse_atomify.map{|res| res.construct}.should include(@occ2)
+        end
+        it "should give back nothing if String in Array does not occur in a Name or Occurrence" do
+          ["nothing".axes(@tm)].extend(Strings).reverse_atomify.should be_empty
+        end
+      end
+      
+      describe "reverse identifier methods" do
+        before(:all) do
+          @value = "http://www.example.org/anything"
+          @si_value1 = "http://www.example.org/test_si_1"
+          @ii_value1 = "http://www.example.org/test_ii_1"
+          @sl_value1 = "http://www.example.org/test_sl_1"
+          @si_value2 = "http://www.example.org/test_si_2"
+          @ii_value2 = "http://www.example.org/test_ii_2"
+          @sl_value2 = "http://www.example.org/test_sl_2"
+          @si_topic1 = @tm.get!("si:" + @si_value1)
+          @ii_topic1 = @tm.get!("ii:" + @ii_value1)
+          @sl_topic1 = @tm.get!("=" + @sl_value1)
+          @si_topic2 = @tm.get!("si:" + @si_value2)
+          @ii_topic2 = @tm.get!("ii:" + @ii_value2)
+          @sl_topic2 = @tm.get!("=" + @sl_value2)
+          @all_topic = @tm.create_topic
+          @all_si_value = "http://www.example.org/all_si"
+          @all_ii_value = "http://www.example.org/all_ii"
+          @all_sl_value = "http://www.example.org/all_sl"
+          @all_topic.add_subject_identifier(@all_si_value)
+          @all_topic.add_item_identifier(@all_ii_value)
+          @all_topic.add_subject_locator(@all_sl_value)
+          @proxies = [@si_value1.axes(@tm),@ii_value1.axes(@tm),@sl_value1.axes(@tm),@si_value2.axes(@tm),@ii_value2.axes(@tm),@sl_value2.axes(@tm),@all_si_value.axes(@tm),@all_ii_value.axes(@tm),@all_sl_value.axes(@tm)].extend(Strings)
+        end
+        describe "#reverse_indicators" do
+          it "should give back an Array" do
+            @proxies.reverse_indicators.should be_a_kind_of Array
+          end
+          it "should give back an Array consisting of RTM::Axes::Topic" do
+            @proxies.reverse_indicators.first.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back a Topics" do
+            @proxies.reverse_indicators.should be_a_kind_of RTM::Axes::Topics
+          end
+          it "should give back all Topics which have these Strings as indicators" do
+            @proxies.reverse_indicators.size.should == 3
+            @proxies.reverse_indicators.map{|res| res.construct}.should include(@si_topic1)
+            @proxies.reverse_indicators.map{|res| res.construct}.should include(@si_topic2)
+            @proxies.reverse_indicators.map{|res| res.construct}.should include(@all_topic)
+          end
+          it "should give back nothing if no Topic has one of these Strings as indicator" do
+            [@value.axes(@tm)].extend(Strings).reverse_indicators.should be_empty
+          end
+          it "should give back the same Topics several times" do
+            [@si_value1.axes(@tm),@si_value1.axes(@tm)].extend(Strings).reverse_indicators.size.should == 2
+          end
+        end
+        
+        describe "#reverse_item" do
+          it "should give back an Array" do
+            @proxies.reverse_item.should be_a_kind_of Array
+          end
+          it "should give back an Array consisting of RTM::Axes::Topic" do
+            @proxies.reverse_item.first.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back a Topics" do
+             @proxies.reverse_item.should be_a_kind_of RTM::Axes::Topics
+          end
+          it "should give back all Topics which have these Strings as item identifier" do
+            @proxies.reverse_item.size.should == 3
+            @proxies.reverse_item.map{|res| res.construct}.should include(@ii_topic1)
+            @proxies.reverse_item.map{|res| res.construct}.should include(@ii_topic2)
+            @proxies.reverse_item.map{|res| res.construct}.should include(@all_topic)
+          end
+          it "should give back nothing if no Topic has one of these Strings as item identifier" do
+            [@value.axes(@tm)].extend(Strings).reverse_item.should be_empty
+          end
+          it "should give back the same Topics several times" do
+            [@ii_value1.axes(@tm),@ii_value1.axes(@tm)].extend(Strings).reverse_item.size.should == 2
+          end
+        end
+        
+        describe "#reverse_locators" do
+          it "should give back an Array" do
+            @proxies.reverse_locators.should be_a_kind_of Array
+          end
+          it "should give back an Array consisting of RTM::Axes::Topic" do
+            @proxies.reverse_locators.first.should be_a_kind_of(RTM::Axes::Topic)
+          end
+          it "should give back a Topics" do
+             @proxies.reverse_locators.should be_a_kind_of RTM::Axes::Topics
+          end
+          it "should give back all Topics which have these Strings as subject locator" do
+            @proxies.reverse_locators.size.should == 3
+            @proxies.reverse_locators.map{|res| res.construct}.should include(@sl_topic1)
+            @proxies.reverse_locators.map{|res| res.construct}.should include(@sl_topic2)
+            @proxies.reverse_locators.map{|res| res.construct}.should include(@all_topic)
+          end
+          it "should give back nothing if no Topic has one of these Strings as subject locator" do
+            [@value.axes(@tm)].extend(Strings).reverse_locators.should be_empty
+          end
+          it "should give back the same Topics several times" do
+            [@sl_value1.axes(@tm),@sl_value1.axes(@tm)].extend(Strings).reverse_locators.size.should == 2
+          end
+        end
+      end
+    
+    end
+  end
+end

data/spec/rtm/axes/topic_spec.rb

@@ -0,0 +1,124 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::Axes
+  class Topic < ItemProxy
+    describe self do
+      before(:all) do
+        @tm = get_used_tm_sys_tm
+        @topic = @tm.get!("person")
+        @name = @topic.create_name("Hans")
+        @occ = @topic.create_occurrence("Age", "18")
+        @proxy = @topic.axes
+      end
+      after(:all) do
+       @tm.close
+      end
+    it "should be allowed to call #tmapi and #result on a RTM::Axes::Topic" do
+      @proxy.methods.should include("tmapi")
+      @proxy.methods.should include("result")
+    end
+    it "should be allowed to call #characteristics on a RTM::Axes::Topic" do
+      @proxy.methods.should include("characteristics")
+    end
+    it "should be allowed to call #indicators on a RTM::Axes::Topic" do
+      @proxy.methods.should include("indicators")
+    end
+    it "should be allowed to call #item on a RTM::Axes::Topic" do
+      @proxy.methods.should include("item")
+    end
+    it "should be allowed to call #locators on a RTM::Axes::Topic" do
+      @proxy.methods.should include("locators")
+    end
+    it "should be allowed to call #reverse_players on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_players")
+    end
+    it "should be allowed to call #reifier on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reifier")
+    end
+    it "should be allowed to call #reverse_roles on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_roles")
+    end
+    it "should be allowed to call #reverse_scope on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_scope")
+    end
+    it "should be allowed to call #supertypes on a RTM::Axes::Topic" do
+      @proxy.methods.should include("supertypes")
+    end
+    it "should be allowed to call #subtypes on a RTM::Axes::Topic" do
+      @proxy.methods.should include("subtypes")
+    end
+    it "should be allowed to call #reverse_subtypes on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_subtypes")
+    end
+    it "should be allowed to call #reverse_supertypes on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_supertypes")
+    end
+    it "should be allowed to call #traverse on a RTM::Axes::Topic" do
+      @proxy.methods.should include("traverse")
+    end
+    it "should be allowed to call #reverse_traverse on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_traverse")
+    end
+    it "should be allowed to call #types on a RTM::Axes::Topic" do
+      @proxy.methods.should include("types")
+    end
+    it "should be allowed to call #instances on a RTM::Axes::Topic" do
+      @proxy.methods.should include("instances")
+    end
+    it "should be allowed to call #reverse_types on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_types")
+    end
+    it "should be allowed to call #reverse_instances on a RTM::Axes::Topic" do
+      @proxy.methods.should include("reverse_instances")
+    end
+      
+    describe "#new" do
+      it "should raise an error if the underlying construct is not a Topic" do
+        lambda{RTM::Axes::Topic.new(1,@tm)}.should raise_error 
+      end
+      it "should not raise an error if the underlying construct is a Topic" do
+        lambda{RTM::Axes::Topic.new(@topic,@tm)}.should_not raise_error 
+      end
+    end
+      
+    describe "#characteristics" do
+      it "should give back an Array" do
+        @proxy.characteristics.should be_a_kind_of Array
+      end
+      it "should give back an Array consisting of RTM::Axes::Characteristic" do
+        @proxy.characteristics.first.should be_a_kind_of RTM::Axes::Characteristic
+      end
+      it "should give back a RTM::Axes::Characteristics" do
+        @proxy.characteristics.should be_a_kind_of RTM::Axes::Characteristics
+      end
+      it "should give back all Names and Occurrences of this Topic" do
+        @proxy.characteristics.size.should == 2
+        @proxy.characteristics.map{|c| c.construct}.should include(@name)
+        @proxy.characteristics.map{|c| c.construct}.should include(@occ)
+      end     
+    end
+      
+
+    #      it "should give back an empty set it the topic types no role" do
+#        @topic.reverse_roles.should be_empty
+#      end
+#      it "should give back a set of associations where that topic is the role type" do
+#        a_asso = @tm.create_association("asso_type")
+#        a_asso[@topic] = "to_a_noter_topic"
+#        @topic.reverse_roles.length.should == 1
+#        @topic.reverse_roles.include?(a_asso).should be_true
+#      end
+#      it "shuld give back multiple associations if the topic is used multipe times as roll tpye in one association" do
+#        a_asso = @tm.create_association("asso_type")
+#        a_asso[@topic] = "to_a_noter_topic"
+#        a_asso[@topic] = "to_a_noter_topic_2"
+#        @topic.reverse_roles.length.should == 2
+#        @topic.reverse_roles.select {|a| a == a_asso }.size.should == 2
+#      end
+
+    end
+  end
+end

data/spec/rtm/axes/topics_spec.rb

@@ -0,0 +1,103 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::Axes
+  module Topics
+    describe self do
+      before(:all) do
+        @tm = get_used_tm_sys_tm
+        @topic1 = @tm.get!("person1")
+        @name1 = @topic1.create_name("Hans")
+        @occ1 = @topic1.create_occurrence("Age", "18")
+        @topic2 = @tm.get!("person2")
+        @name2 = @topic2.create_name("Peter")
+        @occ2 = @topic2.create_occurrence("Age", "17") 
+        @proxy = [@topic1.axes,@topic2.axes].extend(Topics)
+      end
+      after(:all) do
+       @tm.close
+      end
+    it "should be allowed to call #tmapi and #result on a RTM::TQML::Topics" do
+      @proxy.methods.should include("tmapi")
+      @proxy.methods.should include("result")
+    end
+    it "should be allowed to call #characteristics on a RTM::TQML::Topics" do
+      @proxy.methods.should include("characteristics")
+    end
+    it "should be allowed to call #indicators on a RTM::TQML::Topics" do
+      @proxy.methods.should include("indicators")
+    end
+    it "should be allowed to call #item on a RTM::TQML::Topics" do
+      @proxy.methods.should include("item")
+    end
+    it "should be allowed to call #locators on a RTM::TQML::Topics" do
+      @proxy.methods.should include("locators")
+    end
+    it "should be allowed to call #reverse_players on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_players")
+    end
+    it "should be allowed to call #reifier on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reifier")
+    end
+    it "should be allowed to call #reverse_roles on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_roles")
+    end
+    it "should be allowed to call #reverse_scope on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_scope")
+    end
+    it "should be allowed to call #supertypes on a RTM::TQML::Topicsy" do
+      @proxy.methods.should include("supertypes")
+    end
+    it "should be allowed to call #subtypes on a RTM::TQML::Topics" do
+      @proxy.methods.should include("subtypes")
+    end
+    it "should be allowed to call #reverse_subtypes on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_subtypes")
+    end
+    it "should be allowed to call #reverse_supertypes on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_supertypes")
+    end
+    it "should be allowed to call #traverse on a RTM::TQML::Topics" do
+      @proxy.methods.should include("traverse")
+    end
+    it "should be allowed to call #reverse_traverse on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_traverse")
+    end
+    it "should be allowed to call #types on a RTM::TQML::Topics" do
+      @proxy.methods.should include("types")
+    end
+    it "should be allowed to call #instances on a RTM::TQML::Topics" do
+      @proxy.methods.should include("instances")
+    end
+    it "should be allowed to call #reverse_types on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_types")
+    end
+    it "should be allowed to call #reverse_instances on a RTM::TQML::Topics" do
+      @proxy.methods.should include("reverse_instances")
+    end
+      
+    describe "#characteristics" do
+      it "should give back an Array" do
+        @proxy.characteristics.should be_a_kind_of Array
+      end
+      it "should give back an Array consisting of RTM::Axes::Characteristic" do
+        @proxy.characteristics.first.should be_a_kind_of RTM::Axes::Characteristic
+      end
+      it "should give back a RTM::Axes::Characteristics" do
+        @proxy.characteristics.should be_a_kind_of RTM::Axes::Characteristics
+      end
+      it "should give back all Names and Occurrences of this Topic" do
+        @proxy.characteristics.size.should == 4
+        @proxy.characteristics.map{|c| c.construct}.should include(@name1)
+        @proxy.characteristics.map{|c| c.construct}.should include(@occ1)
+        @proxy.characteristics.map{|c| c.construct}.should include(@name2)
+        @proxy.characteristics.map{|c| c.construct}.should include(@occ2)
+      end     
+    end
+      
+      
+    end
+  end
+end