rtm 0.2.0 → 0.2.1

data/spec/rtm/sugar/topic_map/themes_spec.rb

@@ -0,0 +1,67 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Sugar::TopicMap
+  module Themes
+    describe self do
+      before(:each) 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(:each) do
+        @tm.close
+      end
+    
+      describe "#association_themes" do  
+        it "return all topics that are used in the scope of Associations" do
+          @tm.should have(1).association_themes
+          @tm.association_themes.should include(@test_theme)
+        end
+      end 
+
+      describe "#name_themes" do
+        it "return all topics that are used in the scope of Names" do
+          @tm.should have(4).name_themes
+          @tm.name_themes.should include(@theme1, @theme2, @test_theme, @theme4)
+        end
+      end
+
+      describe "#occurrence_themes" do
+        it "return all topics that are used in the scope of Occurrences" do
+          @tm.should have(2).occurrence_themes
+          @tm.occurrence_themes.should include(@theme3, @test_theme)
+        end
+      end
+
+      describe "#variant_themes" do
+        it "return all topics that are used in the scope of Variants" do
+          @tm.should have(3).variant_themes
+          @tm.variant_themes.should include(@theme1, @theme2, @test_theme)
+        end
+      end
+    
+    end # of describe self
+  end # of module
+end # of module

data/spec/rtm/sugar/typed/types_spec.rb

@@ -3,7 +3,7 @@
 
 require File.dirname(__FILE__) + '/../../../spec_helper'
 
-module Sugar::Typed::Types
+module RTM::Sugar::Typed::Types
   describe self do
     before(:each) do
       @tm = get_used_tm_sys_tm

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

@@ -132,8 +132,8 @@ module RTM::Association
         @asso.roles(t_type2).size.should == 1
         @asso.roles(t_type2).should include(role3)
 
-        other_asso.roles(t_type3.topic_references_as_locators.first).size.should == 1
-        other_asso.roles(t_type3.topic_references_as_locators.first).should include(role4)
+        other_asso.roles(t_type3.references_as_locators.first).size.should == 1
+        other_asso.roles(t_type3.references_as_locators.first).should include(role4)
       end
     end
   end # of describe self

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

@@ -0,0 +1,236 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::DatatypeAware
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#value=" do
+      before(:each) do
+        @topic = @tm.get!("House")
+      end
+      describe "for Occurrence" do
+        it "should set the datatype to xsd:anyURI if argument datatype is xsd:anyURI" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.datatype.to_external_form.should == RTM::PSI[:String]
+          occ.value = "http://www.example.org/House", RTM::PSI[:IRI]
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          occ.value.should == "http://www.example.org/House"
+        end
+        it "should set the datatype to xsd:anyURI if argument datatype is xsd:anyURI and resolve the value using the base iri" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.datatype.to_external_form.should == RTM::PSI[:String]
+          occ.value = "House", RTM::PSI[:IRI]
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          occ.value.should == "http://www.topicmapslab.de/House"
+        end
+        it "should set the datatype to xsd:anyURI also if it was Integer before" do
+          occ = @topic.create_occurrence("street number", "1", :datatype => RTM::PSI[:Integer])
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:Integer]
+          occ.value = 1, RTM::PSI[:IRI]
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          occ.value.should == "http://www.topicmapslab.de/1"
+        end
+        it "should set an IRI value and the datatype to xsd:AnyURI if argument is a Locator" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.datatype.to_external_form.should == RTM::PSI[:String]
+          occ.value = @tm.create_locator("http://www.example.org/House")
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          occ.value.should == "http://www.example.org/House" # since we dont know if not */ as in case of ontopia
+        end
+        it "should set a String value and the datatype to xsd:String if argument is a String" do
+          occ = @topic.create_occurrence("Webseite", @tm.create_locator("http://www.example.org/House"))
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          occ.value=("1")
+          occ.datatype.to_external_form.should == RTM::PSI[:String]
+          occ.value.should == "1"
+        end
+        it "should set a Float value and the datatype to xsd:Float if arguement is a Float" do
+          occ = @topic.create_occurrence("Webseite", @tm.create_locator("http://www.example.org/House"))
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          0.5.class.should == Float
+          occ.value = 0.5
+          occ.datatype.to_external_form.should == RTM::PSI[:Float]
+          occ.value.should == "0.5"
+        end
+        it "should set a Fixnum value and the datatype to xsd:long if arguement is a Fixnum" do
+          occ = @topic.create_occurrence("Webseite", @tm.create_locator("http://www.example.org/House"))
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          1.class.should == Fixnum
+          occ.value = 1
+          occ.datatype.to_external_form.should == RTM::PSI[:Long]
+          occ.value.should == "1"
+        end
+        it "should set a Bignum value and the datatype to xsd:integer if arguement is a Bignum" do
+          occ = @topic.create_occurrence("Webseite", @tm.create_locator("http://www.example.org/House"))
+          occ.datatype.to_external_form.should == RTM::PSI[:IRI]
+          9999999999999999999.class.should == Bignum
+          occ.value = 9999999999999999999
+          occ.datatype.to_external_form.should == RTM::PSI[:Integer]
+          occ.value.should == "9999999999999999999"
+        end
+      end
+      describe "for Variant" do
+        it "should set the datatype to xsd:anyURI if argument datatype is xsd:anyURI" do
+          var = @topic.create_name("White House").create_variant("WH", ["short form"])
+          var.datatype.reference.should == RTM::PSI[:String]
+          var.value = "http://www.example.org/WhiteHouse", RTM::PSI[:IRI]
+          var.datatype.reference.should == RTM::PSI[:IRI]
+          var.value.should == "http://www.example.org/WhiteHouse"
+        end
+        it "should set the datatype to xsd:anyURI if argument datatype is xsd:anyURI and resolve the value using the base iri" do
+          var = @topic.create_name("White House").create_variant("WH", ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:String]
+          var.value = "White-House", RTM::PSI[:IRI]
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          var.value.should == "http://www.topicmapslab.de/White-House"
+        end
+        it "should set the datatype to xsd:anyURI also if it was Integer before" do
+          var = @topic.create_name("White House").create_variant("1", RTM::PSI[:Integer], ["short form"])
+          var.value.should == "1"
+          var.datatype.reference.should == RTM::PSI[:Integer]
+          var.value = 1, RTM::PSI[:IRI]
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          var.value.should == "http://www.topicmapslab.de/1"
+        end
+        it "should set an IRI value and the datatype to xsd:AnyURI if argument is a Locator" do
+          var = @topic.create_name("White House").create_variant("WH", ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:String]
+          var.value = @tm.create_locator("http://www.example.org/House")
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          var.value.should == "http://www.example.org/House" # since we dont know if not */ as in case of ontopia
+        end
+        it "should set a String value and the datatype to xsd:String if argument is a String" do
+          var = @topic.create_name("White House").create_variant(@tm.create_locator("WH"), ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          var.value=("1")
+          var.datatype.to_external_form.should == RTM::PSI[:String]
+          var.value.should == "1"
+        end
+        it "should set a Float value and the datatype to xsd:Float if arguement is a Float" do
+          var = @topic.create_name("White House").create_variant(@tm.create_locator("WH"), ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          0.5.class.should == Float
+          var.value = 0.5
+          var.datatype.to_external_form.should == RTM::PSI[:Float]
+          var.value.should == "0.5"
+        end
+        it "should set a Fixnum value and the datatype to xsd:long if arguement is a Fixnum" do
+          var = @topic.create_name("White House").create_variant(@tm.create_locator("WH"), ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          1.class.should == Fixnum
+          var.value = 1
+          var.datatype.to_external_form.should == RTM::PSI[:Long]
+          var.value.should == "1"
+        end
+        it "should set a Bignum value and the datatype to xsd:integer if arguement is a Bignum" do
+          var = @topic.create_name("White House").create_variant(@tm.create_locator("WH"), ["short form"])
+          var.datatype.to_external_form.should == RTM::PSI[:IRI]
+          9999999999999999999.class.should == Bignum
+          var.value = 9999999999999999999
+          var.datatype.to_external_form.should == RTM::PSI[:Integer]
+          var.value.should == "9999999999999999999"
+        end
+      end
+      
+    end
+
+    describe "#datatype=" do
+      before(:each) do
+        @topic = @tm.get!("House")
+      end
+      describe "for Occurrence" do
+        it "should set the datatype to xsd:anyURI even if value is a String" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.datatype.reference.should == RTM::PSI[:String]
+          occ.datatype = RTM::PSI[:IRI]
+          occ.datatype.reference.should == RTM::PSI[:IRI]
+        end
+        it "should set the datatype to xsd:String even if value is a Locator" do
+          occ = @topic.create_occurrence("wesbite", @tm.create_locator("http://www.example.org/House"))
+          occ.value.should == "http://www.example.org/House"
+          occ.datatype.reference.should == RTM::PSI[:IRI]
+          occ.datatype = RTM::PSI[:String]
+          occ.value.should == "http://www.example.org/House"
+          occ.datatype.reference.should == RTM::PSI[:String]
+        end
+        it "should set the datatype to xsd:anyURI even if value is a number" do
+          occ = @topic.create_occurrence("street number", "1", :datatype => RTM::PSI[:Integer])
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:Integer]
+          occ.datatype = RTM::PSI[:IRI]
+          occ.value.should == "http://www.topicmapslab.de/1"
+          occ.datatype.reference.should == RTM::PSI[:IRI]
+        end
+        it "should set the datatype to xsd:Integer even if value is a String" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:String]
+          occ.datatype = RTM::PSI[:Integer]
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:Integer]
+        end
+        it "should raise an error if datatype is no String or Locator" do
+          occ = @topic.create_occurrence("street number", "1")
+          occ.datatype.reference.should == RTM::PSI[:String]
+          lambda{occ.datatype = 1}.should raise_error
+          # don't test for symbols
+          #lambda{occ.datatype = :test}.should raise_error
+          lambda{occ.datatype = @tm.get!(RTM::PSI[:IRI])}.should raise_error
+        end
+      end
+      describe "for Variant" do
+        it "should set the datatype to xsd:anyURI even if value is a String" do
+          var = @topic.create_name("White House").create_variant("WH", ["short form"])
+          var.value.should == "WH"
+          var.datatype.reference.should == RTM::PSI[:String]
+          var.datatype = RTM::PSI[:IRI]
+          var.datatype.reference.should == RTM::PSI[:IRI]
+        end
+        it "should set the datatype to xsd:String even if value is a Locator" do
+          var = @topic.create_name("White House").create_variant(@tm.create_locator("http://www.example.org/House"), ["short form"])
+          var.value.should == "http://www.example.org/House"
+          var.datatype.reference.should == RTM::PSI[:IRI]
+          var.datatype = RTM::PSI[:String]
+          var.value.should == "http://www.example.org/House"
+          var.datatype.reference.should == RTM::PSI[:String]
+        end
+        it "should set the datatype to xsd:anyURI even if value is a number" do
+          var = @topic.create_name("White House").create_variant("1", RTM::PSI[:Integer], ["short form"])
+          var.value.should == "1"
+          var.datatype.reference.should == RTM::PSI[:Integer]
+          var.datatype = RTM::PSI[:IRI]
+          var.value.should == "http://www.topicmapslab.de/1"
+          var.datatype.reference.should == RTM::PSI[:IRI]
+        end
+        it "should set the datatype to xsd:Integer even if value is a String" do
+          occ = @topic.create_name("White House").create_variant("1", ["short form"])
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:String]
+          occ.datatype = RTM::PSI[:Integer]
+          occ.value.should == "1"
+          occ.datatype.reference.should == RTM::PSI[:Integer]
+        end
+        it "should raise an error if datatype is no String or Locator" do
+          var = @topic.create_name("White House").create_variant("1", ["short form"])
+          var.datatype.reference.should == RTM::PSI[:String]
+          lambda{var.datatype = 1}.should raise_error
+          # don't test for symbols
+          #lambda{var.datatype = :test}.should raise_error
+          lambda{var.datatype = @tm.get!(RTM::PSI[:IRI])}.should raise_error
+        end
+      end    
+    end
+
+
+  end
+end

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

@@ -52,7 +52,192 @@ module RTM::Name
     end
 
     describe "#create_variant" do
-      it "should be tested"
+      describe "in tmapi notation" do
+        describe "(errors)" do
+          it "should raise an error if the value's datatype is not supported" do
+            lambda{@testname.create_variant({:a => :b}, ["scope"])}.should raise_error
+          end
+          it "should not raise an error if a datatype is given, the value's datatype is not supported but the value may be converted to string" do
+            lambda{:a.to_s}.should_not raise_error
+            lambda{@testname.create_variant(:a, RTM::PSI[:String], ["scope"])}.should_not raise_error
+          end
+          it "should raise an error if no scope is given" do
+            lambda{@testname.create_variant("Uni Leipzig")}.should raise_error
+          end
+          it "should raise an error if the scope is an empty array" do
+            if  implementation_for_spec == :ontopia
+              pending "ontopia" do
+                lambda{@testname.create_variant("Uni Leipzig", [])}.should raise_error
+              end
+            else
+              lambda{@testname.create_variant("Uni Leipzig", [])}.should raise_error
+            end
+          end
+        end
+        describe "given value and scope" do
+          after(:each) do
+            @var.should be_a_kind_of RTM::Variant
+            @var.scope.should_not be_empty
+          end
+          it "should create a variant with datatype xsd:string if value is a String" do
+            @var = @testname.create_variant("Uni Leipzig", ["short_form"])
+            @var.value.should == "Uni Leipzig"
+            @var.datatype.reference.should == RTM::PSI[:String]
+            @var.scope.size.should == 1
+            @var.scope.should include(@tm.get("short_form"))
+          end
+          it "should create a variant with datatype xsd:anyURI if value is a Locator" do
+            @var = @testname.create_variant(@tm.create_locator("http://example.org/testvariant"), [@tm.create_locator("short form")])
+            @var.value.should == "http://example.org/testvariant"
+            @var.datatype.reference.should == RTM::PSI[:IRI]
+            @var.scope.size.should == 1
+            @var.scope.should include(@tm.get("short form"))
+          end
+          it "should create a variant with datatype xsd:float if value is a Float" do
+            @var = @testname.create_variant(0.5, [@tm.get!("theme1"), "theme2"])
+            @var.value.should == "0.5"
+            @var.datatype.reference.should == RTM::PSI[:Float]
+            @var.scope.size.should == 2
+            @var.scope.should include(@tm.get("theme1"), @tm.get("theme2"))
+          end
+          it "should create a variant with datatype xsd:long if value is a Fixnum" do
+            @var = @testname.create_variant(5, [@tm.get!("theme1"), @tm.create_locator("theme2")])
+            @var.value.should == "5"
+            @var.datatype.reference.should == RTM::PSI[:Long]
+            @var.scope.size.should == 2
+            @var.scope.should include(@tm.get("theme1"), @tm.get("theme2"))
+          end
+          it "should create a variant with datatype xsd:integer if value is a Bignum" do
+            number = 9999999999999999999
+            number.class.should == Bignum
+            @var = @testname.create_variant(number, [@tm.get!("theme1"), "theme2"])
+            @var.value.should == number.to_s
+            @var.datatype.reference.should == RTM::PSI[:Integer]
+            @var.scope.size.should == 2
+            @var.scope.should include(@tm.get("theme1"), @tm.get("theme2"))
+          end
+          describe "given a parent name with scope" do
+            it "should create a variant" do
+              @name = @topic.create_name("University of Leipzig", ["en", "official"])
+              @name.scope.size.should == 2
+              @name.scope.should include(@tm.get("en"), @tm.get("official"))
+              @var = @name.create_variant("U o L", ["short form"])
+              @var.scope.size.should == 3
+              @var.scope.should include(@tm.get("en"), @tm.get("official"), @tm.get("short form"))
+              @var.datatype.reference.should == RTM::PSI[:String]
+            end
+          end
+        end
+        describe "given value, datatype and scope" do
+          after(:each) do
+            if @var
+              @var.should be_a_kind_of RTM::Variant
+              @var.scope.should_not be_empty
+            end
+          end
+          describe "and value is a String" do
+            after(:each) do
+              if @var
+                @var.scope.size.should == 1
+                @var.scope.should include(@tm.get("short_form"))
+              end
+            end
+            it "should create a variant if datatye is xsd:string" do
+              @var = @testname.create_variant("Uni Leipzig", RTM::PSI[:String], ["short_form"])
+              @var.value.should == "Uni Leipzig"
+              @var.datatype.reference.should == RTM::PSI[:String]       
+            end
+            it "should create a variant if datatye is xsd:anyURI" do
+              @var = @testname.create_variant("Uni Leipzig", RTM::PSI[:IRI], ["short_form"])
+              @var.value.should == "http://www.topicmapslab.de/Uni Leipzig"
+              @var.datatype.reference.should == RTM::PSI[:IRI]
+            end
+            it "should create a variant if datatye is xsd:float" do
+              @var = @testname.create_variant("0.5", RTM::PSI[:Float], ["short_form"])
+              @var.value.should == "0.5"
+              @var.datatype.reference.should == RTM::PSI[:Float]
+            end
+            it "should create a variant if datatye is xsd:long" do
+              @var = @testname.create_variant("5", RTM::PSI[:Long], ["short_form"])
+              @var.value.should == "5"
+              @var.datatype.reference.should == RTM::PSI[:Long]
+            end
+            it "should create a variant if datatye is xsd:integer" do
+              number = 9999999999999999999
+              number.class.should == Bignum
+              @var = @testname.create_variant(number.to_s, RTM::PSI[:Integer], ["short_form"])
+              @var.value.should == number.to_s
+              @var.datatype.reference.should == RTM::PSI[:Integer]
+            end
+            describe "but value is not a number" do
+              it "should create a variant if datatye is xsd:float" do
+                @var = @testname.create_variant("no number", RTM::PSI[:Float], ["short_form"])
+                @var.value.should == "no number"
+                @var.datatype.reference.should == RTM::PSI[:Float]
+              end
+              it "should create a variant if datatye is xsd:long" do
+                @var = @testname.create_variant("no number", RTM::PSI[:Long], ["short_form"])
+                @var.value.should == "no number"
+                @var.datatype.reference.should == RTM::PSI[:Long]
+              end
+              it "should create a variant if datatye is xsd:integer" do
+                if implementation_for_spec == :tinytim
+                  lambda{@testname.create_variant("no number", RTM::PSI[:Integer], ["short_form"])}.should raise_error
+                else
+                  @var = @testname.create_variant("no number", RTM::PSI[:Integer], ["short_form"])
+                  @var.value.should == "no number"
+                  @var.datatype.reference.should == RTM::PSI[:Integer]
+                end
+              end
+            end
+          end
+          describe "and value is a Locator" do
+            it "should create a variant if value is a Number and datatype is xsd:string"
+            it "should create a variant if value is a Number and datatype is xsd:anyURI"
+            it "should create a variant if value is a Number and datatype is xsd:float"
+            it "should create a variant if value is a Number and datatype is xsd:long"
+            it "should create a variant if value is a Number and datatype is xsd:integer"
+            describe "but value is not a number" do
+              it "should create a variant if datatye is xsd:float"
+              it "should create a variant if datatye is xsd:long"
+              it "should create a variant if datatye is xsd:integer"
+            end
+          end
+          describe "and value is a Number" do
+            it "should create a variant if value is a Number and datatype is xsd:string"
+            it "should create a variant if value is a Number and datatype is xsd:anyURI"
+            it "should create a variant if value is a Number and datatype is xsd:float"
+            it "should create a variant if value is a Number and datatype is xsd:long"
+            it "should create a variant if value is a Number and datatype is xsd:integer"
+            it "should be tested further"
+          end    
+          describe "given a parent name with scope" do
+            it "should create a variant" do
+              @name = @topic.create_name("University of Leipzig", ["en", "official"])
+              @name.scope.size.should == 2
+              @name.scope.should include(@tm.get("en"), @tm.get("official"))
+              @var = @name.create_variant("U o L",  RTM::PSI[:IRI], ["short form"])
+              @var.scope.size.should == 3
+              @var.scope.should include(@tm.get("en"), @tm.get("official"), @tm.get("short form"))
+              @var.datatype.reference.should == RTM::PSI[:IRI]
+            end
+          end
+        end
+      end
+      describe "in hash notation" do
+        describe "given value and scope" do
+          it "should create a variant with datatype xsd:string if value is a String"
+          it "should create a variant with datatype xsd:anyURI if value is a Locator"
+          it "should create a variant with datatype xsd:float if value is a Float"
+          it "should create a variant with datatype xsd:long if value is a Fixnum"
+          it "should create a variant with datatype xsd:integer if value is a Bignum"
+          it "should create a variant if scope is an empty array"
+          it "should raise an error if value's datatype is not supported"
+        end
+        describe "given value, datatype and scope" do
+          it "should be implemented and tested"
+        end
+      end    
     end
 
   end # of describe self