rtm 0.2.0 → 0.2.1

data/spec/rtm/io/to_rdf_spec.rb

@@ -0,0 +1,37 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::IO::ToRDF::TopicMap
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @tm.from_ctm(File.dirname(__FILE__) + "/../../resources/toyTM.ctm")
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#to_rdf" do
+      it "should be callable on an Ontopia topic map" do
+        if implementation_for_spec == :ontopia
+          lambda{@tm.to_rdf}.should_not raise_error
+          @tm.to_rdf.should be_a_kind_of String
+        else
+          lambda{@tm.to_rdf}.should raise_error
+        end
+      end
+    end
+
+    describe "#to_rdf_ontopia" do
+      it "should be callable on an Ontopia topic map" do
+        if implementation_for_spec == :ontopia
+          @tm.to_rdf_ontopia.should be_a_kind_of String
+        end
+      end
+    end
+
+  end
+end

data/spec/rtm/io/to_string_spec.rb

@@ -0,0 +1,122 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::IO::ToString
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @tm.reifier!
+      @topic = @tm.get!("a:b")
+      @name = @topic.create_name("name type", "name value", ["theme1", "theme2"])
+      @name.reifier!
+      @var = @name.create_variant(1234, RTM::PSI[:String], ["theme5"])
+      @var.reifier!
+      @occ = @topic.create_occurrence("occ type", "occ value", :datatype => RTM::PSI[:IRI], :scope => ["theme3", "theme4"])
+      @occ.reifier!
+      @assoc = @tm.create_association("assoc type", ["theme6", "theme7"])
+      @assoc.reifier!
+      @role = @assoc.create_role("role type", "role player")
+      @role.reifier!
+      @locator = @tm.create_locator("http://www.example.org/test this locator")
+    end
+    after(:each) do
+      @output.should be_a_kind_of String
+      @tm.close
+    end
+
+    describe "#to_s" do
+      describe "for TopicMap" do
+        before(:each) do
+          @tm.should be_a_kind_of RTM::TopicMap
+        end
+        it "should give back a String using the short version" do
+          @output = @tm.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @tm.to_s(:long)
+        end
+      end
+      describe "for Topic" do
+        before(:each) do
+          @topic.should be_a_kind_of RTM::Topic
+        end
+        it "should give back a String using the short version" do
+          @output = @topic.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @topic.to_s(:long)
+        end
+      end
+      describe "for Association" do
+        before(:each) do
+          @assoc.should be_a_kind_of RTM::Association
+        end
+        it "should give back a String using the short version" do
+          @output = @assoc.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @assoc.to_s(:long)
+        end
+      end
+      describe "for Role" do
+        before(:each) do
+          @role.should be_a_kind_of RTM::Role
+        end
+        it "should give back a String using the short version" do
+          @output = @role.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @role.to_s(:long)
+        end
+      end
+      describe "for Name" do
+        before(:each) do
+          @name.should be_a_kind_of RTM::Name
+        end
+        it "should give back a String using the short version" do
+          @output = @name.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @name.to_s(:long)
+        end
+      end
+      describe "for Occurrence" do
+        before(:each) do
+          @occ.should be_a_kind_of RTM::Occurrence
+        end
+        it "should give back a String using the short version" do
+          @output = @occ.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @occ.to_s(:long)
+        end
+      end
+      describe "for Variant" do
+        before(:each) do
+          @var.should be_a_kind_of RTM::Variant
+        end
+        it "should give back a String using the short version" do
+          @output = @var.to_s(:short)
+        end
+        it "should give back a String using the short version" do
+          @output = @var.to_s(:long)
+        end
+      end
+      describe "for Locator" do
+        before(:each) do
+          @locator.should be_a_kind_of RTM::Locator
+        end
+        it "should give back a String using the short version" do
+          @output = @locator.to_s(:short)
+        end
+        it "should give back a String using the long version" do
+          @output = @locator.to_s(:long)
+        end
+      end
+    end
+  end
+
+end

data/spec/rtm/io/to_yaml_spec.rb

@@ -0,0 +1,89 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:   Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+module RTM::IO::ToYAML
+
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+      @tm.reifier!
+      @topic = @tm.get!("a:b")
+      @name = @topic.create_name("name type", "name value", ["theme1", "theme2"])
+      @name.reifier!
+      @var = @name.create_variant(1234, RTM::PSI[:String], ["theme5"])
+      @var.reifier!
+      @occ = @topic.create_occurrence("occ type", "occ value", :datatype => RTM::PSI[:IRI], :scope => ["theme3", "theme4"])
+      @occ.reifier!
+      @assoc = @tm.create_association("assoc type", ["theme6", "theme7"])
+      @assoc.reifier!
+      @role = @assoc.create_role("role type", "role player")
+      @role.reifier!
+      @locator = @tm.create_locator("http://www.example.org/test this locator")
+    end
+    after(:each) do
+      @output.should be_a_kind_of String
+      @tm.close
+    end
+
+    describe "#to_yaml" do
+      describe "for TopicMap" do
+        before(:each) do
+          @tm.should be_a_kind_of RTM::TopicMap
+        end
+        it "should give back a String" do
+          @output = @tm.to_yaml
+        end
+      end
+      describe "for Topic" do
+        before(:each) do
+          @topic.should be_a_kind_of RTM::Topic
+        end
+        it "should give back a String" do
+          @output = @topic.to_yaml
+        end
+      end
+      describe "for Association" do
+        before(:each) do
+          @assoc.should be_a_kind_of RTM::Association
+        end
+        it "should give back a String" do
+          @output = @assoc.to_yaml
+        end
+      end
+      describe "for Role" do
+        before(:each) do
+          @role.should be_a_kind_of RTM::Role
+        end
+        it "should give back a String" do
+          @output = @role.to_yaml
+        end
+      end
+      describe "for Name" do
+        before(:each) do
+          @name.should be_a_kind_of RTM::Name
+        end
+        it "should give back a String" do
+          @output = @name.to_yaml
+        end
+      end
+      describe "for Occurrence" do
+        before(:each) do
+          @occ.should be_a_kind_of RTM::Occurrence
+        end
+        it "should give back a String" do
+          @output = @occ.to_yaml
+        end
+      end
+      describe "for Variant" do
+        before(:each) do
+          @var.should be_a_kind_of RTM::Variant
+        end
+        it "should give back a String" do
+          @output = @var.to_yaml
+        end
+      end
+    end
+  end
+end

data/spec/rtm/sugar/occurrence/dynamic_value_spec.rb

@@ -3,14 +3,169 @@
 
 require File.dirname(__FILE__) + '/../../../spec_helper'
 
-module Sugar::Occurrence::DynamicValue
+module RTM::Sugar::Occurrence::DynamicValue
   describe self do
     before(:each) do
       @tm = get_used_tm_sys_tm
+      @topic = @tm.get!("Leipzig")
     end
     after(:each) do
       @tm.close
     end
 
+    describe "#dynamic value" do
+      it "should return a Locator if the datatype is xsd:anyURI" do
+        @occ = @topic.create_occurrence("Website", "http://www.example.org/Leipzig", :datatype => RTM::PSI[:IRI])
+        @occ.datatype.reference.should == RTM::PSI[:IRI]
+        @occ.value.should == "http://www.example.org/Leipzig"
+        @occ.dynamic_value.should == @tm.create_locator("http://www.example.org/Leipzig")
+        ###
+        @occ = @topic.create_occurrence("Website", "Leipzig", :datatype => RTM::PSI[:IRI])
+        @occ.datatype.reference.should == RTM::PSI[:IRI]
+        @occ.value.should == "http://www.topicmapslab.de/Leipzig"
+        @occ.dynamic_value.should == @tm.create_locator("http://www.topicmapslab.de/Leipzig")
+      end
+      it "should return a String if the datatype is xsd:string" do
+        @occ = @topic.create_occurrence("Website", "http://www.example.org/Leipzig", :datatype => RTM::PSI[:String])
+        @occ.datatype.reference.should == RTM::PSI[:String]
+        @occ.value.should == "http://www.example.org/Leipzig"
+        @occ.dynamic_value.should == "http://www.example.org/Leipzig"
+      end
+      it "should return a Float if the datatype is xsd:float" do
+        3.5.class.should == Float
+        @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Float])
+        @occ.datatype.reference.should == RTM::PSI[:Float]
+        @occ.value.should == "3.5"
+        @occ.dynamic_value.should == 3.5
+        @occ.dynamic_value.class.should == Float
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Float])
+        @occ.datatype.reference.should == RTM::PSI[:Float]
+        @occ.value.should == "1"
+        @occ.dynamic_value.should == 1.0
+        @occ.dynamic_value.class.should == Float
+      end
+      it "should return a Float if the datatype is xsd:double" do
+        3.5.class.should == Float
+        @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Double])
+        @occ.datatype.reference.should == RTM::PSI[:Double]
+        @occ.value.should == "3.5"
+        @occ.dynamic_value.should == 3.5
+        @occ.dynamic_value.class.should == Float
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Double])
+        @occ.datatype.reference.should == RTM::PSI[:Double]
+        @occ.value.should == "1"
+        @occ.dynamic_value.should == 1.0
+        @occ.dynamic_value.class.should == Float
+      end
+      it "should return a Float if the datatype is xsd:decimal" do
+        3.5.class.should == Float
+        @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Decimal])
+        @occ.datatype.reference.should == RTM::PSI[:Decimal]
+        @occ.value.should == "3.5"
+        @occ.dynamic_value.should == 3.5
+        @occ.dynamic_value.class.should == Float
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Decimal])
+        @occ.datatype.reference.should == RTM::PSI[:Decimal]
+        @occ.value.should == "1" unless implementation_for_spec == :tinytim
+        @occ.dynamic_value.should == 1.0
+        @occ.dynamic_value.class.should == Float
+      end
+      it "should return a Fixnum/Bignum if the datatype is xsd:int" do
+        3.5.class.should == Float
+        @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Int])
+        @occ.datatype.reference.should == RTM::PSI[:Int]
+        @occ.value.should == "3.5"
+        @occ.dynamic_value.should == 3
+        @occ.dynamic_value.class.should == Fixnum
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Int])
+        @occ.datatype.reference.should == RTM::PSI[:Int]
+        @occ.value.should == "1"
+        @occ.dynamic_value.should == 1
+        @occ.dynamic_value.class.should == Fixnum
+        ####
+        number = 9999999999999999999
+        number.class.should == Bignum
+        @occ = @topic.create_occurrence("Number", number.to_s, :datatype => RTM::PSI[:Int])
+        @occ.datatype.reference.should == RTM::PSI[:Int]
+        @occ.value.should == number.to_s
+        @occ.dynamic_value.should == number
+        @occ.dynamic_value.class.should == Bignum
+      end
+      it "should return a Fixnum/Bignum if the datatype is xsd:integer" do
+        unless implementation_for_spec == :tinytim
+          3.5.class.should == Float
+          @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Integer])
+          @occ.datatype.reference.should == RTM::PSI[:Integer]
+          @occ.value.should == "3.5"
+          @occ.dynamic_value.should == 3
+          @occ.dynamic_value.class.should == Fixnum
+        end
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Integer])
+        @occ.datatype.reference.should == RTM::PSI[:Integer]
+        @occ.value.should == "1"
+        @occ.dynamic_value.should == 1
+        @occ.dynamic_value.class.should == Fixnum
+        ####
+        number = 9999999999999999999
+        number.class.should == Bignum
+        @occ = @topic.create_occurrence("Number", number.to_s, :datatype => RTM::PSI[:Integer])
+        @occ.datatype.reference.should == RTM::PSI[:Integer]
+        @occ.value.should == number.to_s
+        @occ.dynamic_value.should == number
+        @occ.dynamic_value.class.should == Bignum
+      end
+      it "should return a Fixnum/Bignum if the datatype is xsd:integer" do
+        3.5.class.should == Float
+        @occ = @topic.create_occurrence("Number", "3.5", :datatype => RTM::PSI[:Long])
+        @occ.datatype.reference.should == RTM::PSI[:Long]
+        @occ.value.should == "3.5"
+        @occ.dynamic_value.should == 3
+        @occ.dynamic_value.class.should == Fixnum
+        ###
+        @occ = @topic.create_occurrence("Number", "1", :datatype => RTM::PSI[:Long])
+        @occ.datatype.reference.should == RTM::PSI[:Long]
+        @occ.value.should == "1"
+        @occ.dynamic_value.should == 1
+        @occ.dynamic_value.class.should == Fixnum
+        ####
+        number = 9999999999999999999
+        number.class.should == Bignum
+        @occ = @topic.create_occurrence("Number", number.to_s, :datatype => RTM::PSI[:Long])
+        @occ.datatype.reference.should == RTM::PSI[:Long]
+        @occ.value.should == number.to_s
+        @occ.dynamic_value.should == number
+        @occ.dynamic_value.class.should == Bignum
+      end
+      it "should return a Time if the datatype is xsd:time" do
+        time = Time.new
+        @occ = @topic.create_occurrence("Number", time)
+        @occ.datatype.reference.should == RTM::PSI[:Time]
+        @occ.value.should == time.to_s
+        #@occ.dynamic_value.should == time # cannot be tested this way
+        @occ.dynamic_value.class.should == Time
+      end
+      it "should return a Date if the datatype is xsd:date" do
+        date = Date.new
+        @occ = @topic.create_occurrence("Number", date)
+        @occ.datatype.reference.should == RTM::PSI[:Date]
+        @occ.value.should == date.to_s
+        @occ.dynamic_value.should == date
+        @occ.dynamic_value.class.should == Date
+      end
+      it "should return a DateTime if the datatype is xsd:dateTime" do
+        dateTime = DateTime.new
+        @occ = @topic.create_occurrence("Number", dateTime)
+        @occ.datatype.reference.should == RTM::PSI[:DateTime]
+        @occ.value.should == dateTime.to_s
+        @occ.dynamic_value.should == dateTime
+        @occ.dynamic_value.class.should == DateTime
+      end
+    end
+
   end
 end

data/spec/rtm/sugar/occurrence/external_spec.rb

@@ -0,0 +1,129 @@
+# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
+# License:  Apache License, Version 2.0
+
+require File.dirname(__FILE__) + '/../../../spec_helper'
+
+module RTM::Sugar::Occurrence::DynamicValue
+  describe self do
+    before(:each) do
+      @tm = get_used_tm_sys_tm
+    end
+    after(:each) do
+      @tm.close
+    end
+
+    describe "#externalize" do
+      before(:each) do
+        @leipzig = @tm.get!("http://en.wikipedia.org/wiki/Leipzig")
+      end
+      it "should create an association and two roles out of the occurrence if the value is of type xsd:String" do
+        occ = @leipzig.create_occurrence("Webpage", "http://www.leipzig.de/")
+        occ.value.should be_a_kind_of String
+        occ.value.should == "http://www.leipzig.de/"
+        occ.datatype.value.should == RTM::PSI[:String]
+        ### now create the association
+        association = occ.externalize
+        ### type must be RTM::PSI[:subject_representation]
+        assoc_type = @tm.get(RTM::PSI[:subject_representation])
+        assoc_type.should_not be_nil
+        association.type.should == assoc_type
+        ### 2 roles
+        association.should have(2).roles
+        ### one role of type RTM::PSI[:represented_subject] with player occ.parent (the topic)
+        association.roles(RTM::PSI[:represented_subject]).size.should == 1
+        role1 = association.roles(RTM::PSI[:represented_subject]).first
+        role1.player.should == @leipzig
+        ### the other role of type occ_type and player: topic with subject locator occ_value
+        association.roles("Webpage").size.should == 1
+        role2 = association.roles("Webpage").first
+        r2player = @tm.get("=http://www.leipzig.de/")
+        r2player.should_not be_nil
+        role2.player.should == r2player
+      end
+      it "should create an association and two roles out of the occurrence if the value is of type xsd:anyURI" do
+        occ = @leipzig.create_occurrence("Webpage", @tm.create_locator("http://www.leipzig.de/"))
+        occ.value.should be_a_kind_of String
+        occ.value.should == "http://www.leipzig.de/"
+        occ.datatype.value.should == RTM::PSI[:IRI]
+        ### now create the association
+        association = occ.externalize
+        ### type must be RTM::PSI[:subject_representation]
+        assoc_type = @tm.get(RTM::PSI[:subject_representation])
+        assoc_type.should_not be_nil
+        association.type.should == assoc_type
+        ### 2 roles
+        association.should have(2).roles
+        ### one role of type RTM::PSI[:represented_subject] with player occ.parent (the topic)
+        association.roles(RTM::PSI[:represented_subject]).size.should == 1
+        role1 = association.roles(RTM::PSI[:represented_subject]).first
+        role1.player.should == @leipzig
+        ### the other role of type occ_type and player: topic with subject locator occ_value
+        association.roles("Webpage").size.should == 1
+        role2 = association.roles("Webpage").first
+        r2player = @tm.get("=http://www.leipzig.de/")
+        r2player.should_not be_nil
+        role2.player.should == r2player
+      end
+      it "should resolve relative identifiers = occ values" do
+        occ = @leipzig.create_occurrence(@tm.get!("Webpage"), "foobar")
+        occ.value.should be_a_kind_of String
+        occ.value.should == "foobar"
+        occ.datatype.value.should == RTM::PSI[:String]
+        ### now create the association
+        association = occ.externalize
+        ### type must be RTM::PSI[:subject_representation]
+        assoc_type = @tm.get(RTM::PSI[:subject_representation])
+        assoc_type.should_not be_nil
+        association.type.should == assoc_type
+        ### 2 roles
+        association.should have(2).roles
+        ### one role of type RTM::PSI[:represented_subject] with player occ.parent (the topic)
+        association.roles(RTM::PSI[:represented_subject]).size.should == 1
+        role1 = association.roles(RTM::PSI[:represented_subject]).first
+        role1.player.should == @leipzig
+        ### the other role of type occ_type and player: topic with subject locator occ_value
+        association.roles("Webpage").size.should == 1
+        role2 = association.roles("Webpage").first
+        r2player = @tm.get("=http://www.topicmapslab.de/foobar")
+        r2player.should_not be_nil
+        role2.player.should == r2player
+      end
+      it "should perhaps be tested for other datatypes"
+    end
+
+    describe "#externalize!" do
+      before(:each) do
+        @leipzig = @tm.get!("http://en.wikipedia.org/wiki/Leipzig")
+      end
+      it "should remove the occurrence also" do
+        occ = @leipzig.create_occurrence("Webpage", "http://www.leipzig.de/", :scope => ["theme1", "theme2"])
+        @leipzig.should have(1).occurrences
+        association = occ.externalize!
+        @leipzig.occurrences.should be_empty
+      end
+      it "should remove the occurrence also, even if it has a reifier" do
+        occ = @leipzig.create_occurrence("Webpage", "http://www.leipzig.de/", :scope => ["theme1", "theme2"])
+        occ.reifier = "a_reifier"
+        occ.reifier.should_not be_nil
+        @leipzig.should have(1).occurrences
+        association = occ.externalize!
+        @leipzig.occurrences.should be_empty
+      end
+    end
+
+    describe "#external?" do
+      before(:each) do
+        @leipzig = @tm.get!("http://en.wikipedia.org/wiki/Leipzig")
+      end
+      it "should return true if this occurrence is an external occurrence" do
+        occ = @leipzig.create_occurrence("Webpage", @tm.create_locator("http://www.leipzig.de/"))
+        occ.external?.should be_true
+      end
+      it "should return false if this occurrence is not an external occurrence" do
+        occ = @leipzig.create_occurrence("Webpage", "http://www.leipzig.de/")
+        occ.external?.should be_false
+      end
+    end
+
+  end
+end