rtm 0.2.0 → 0.2.1

data/lib/rtm/sugar/occurrence/externalize.rb

@@ -1,31 +0,0 @@
-# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
-# License:   Apache License, Version 2.0
-
-module RTM
-  # Some useful or maybe not so useful stuff which I don't know how to put else.
-  module PimpMyApi
-    module Occurrence
-
-      # Create an association out of this occurrence
-      #   Norwegian isa: Language
-      #   - name: "Norwegian"
-      #   - iso639: "no"
-      #   iso639: "no"
-      #   webpage: http://example.org
-      # to
-      #   webpage( subject: Norwegian, occ: =http://www.example.org )
-      def externalize
-        a = parent.create_association
-        a.create_role parent, RTM::PSI[:subject]
-        a.create_role self.type, self.value # TODO what should be exactly done with value? prepend something? dependend on param?
-        a
-      end
-    end
-    def externalize!(*args)
-      a = externalize(*args)
-      remove
-      a
-    end
-    RTM.register_extension( self )
-  end
-end

data/spec/rtm/io/tmapix_spec.rb

@@ -1,85 +0,0 @@
-# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
-# License:   Apache License, Version 2.0
-
-require File.dirname(__FILE__) + '/../../spec_helper'
-
-module RTM::IO::TMAPIX::TopicMap
-
-  describe self do
-    before(:each) do
-      @tm = get_used_tm_sys_tm
-    end
-    after(:each) do
-      @tm.close
-    end
-    
-    describe "#from_ltm" do
-      it "should be tested"
-    end
-    
-    describe "#from_ctm" do
-      it "should be tested"
-    end
-    
-    describe "#from_jtm" do
-      it "should be tested"
-    end
-    
-    describe "#from_tmxml" do
-      it "should be tested"
-    end
-    
-    describe "#from_xtm10" do
-      it "should be tested"
-    end
-    
-    describe "#from_xtm20" do
-      it "should be tested"
-    end
-    
-    describe "#from_xtm" do
-      it "should be tested"
-    end
-    
-    describe "#from_n3" do
-      it "should be tested"
-    end
-    
-    describe "#from_rdfxml" do
-      it "should be tested"
-    end
-    
-    describe "#to_xtm20" do
-      it "should be tested"
-    end
-    
-    describe "#to_xtm10" do
-      it "should be tested"
-    end
-    
-    describe "#to_jtm" do
-      it "should be tested"
-    end
-    
-    describe "#to_ltm" do
-      it "should be tested"
-    end
-    
-    describe "#to_tmxml" do
-      it "should be tested"
-    end
-    
-    describe "#to_ctm" do
-      it "should export a topic map to ctm" do
-        # filling ...
-        @tm.from_xtm20(File.dirname(__FILE__) + "/../../resources/toyTM.xtm")
-        @tm.to_ctm(File.dirname(__FILE__) + "/../../resources/toyTM_after_spec.ctm","http://www.example.org/toyTM_after_spec")
-      end
-      it "should read it afterwards" do
-        emptyTM = get_used_tm_sys.create("http://blub.org/")
-        emptyTM.from_ctm(File.dirname(__FILE__) + "/../../resources/toyTM_after_spec.ctm")
-      end
-    end
-    
-  end
-end

data/test/base_unit_test.rb

@@ -1,161 +0,0 @@
-# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
-# License:   Apache License, Version 2.0
-# 
-# Some basic tests for the Active Reckord Backend, more to be added into the RSpecs:)
-
-$: << File.join(File.dirname(__FILE__), "/../lib")
-
-require 'rubygems'
-require 'test/unit'
-require 'rtm'
-
-class BaseTest < Test::Unit::TestCase
-  # There are a bunch of global assertions in here so it cannot be parallelized
-  # with other tests, that's why it is all in one. What can we do about that?
-  def test_connect
-    base = RTM.connect(:implementation => :activerecord)
-    assert base, "Connection to memory backend failed"
-    assert_equal 0, base[].size, "There should be no topic maps in a newly created environment."
-    base_locator = "http://rtm.rubyforge.org/tests/base_test"
-    m = base.create base_locator
-    assert_equal 1, base[].size, "After creation of a topic map, there should be one."
-    assert_kind_of RTM::TopicMap, m, "RTM.create should create something which includes RTM::TopicMap"
-    assert_equal base_locator, m.base_locator, "The base_locator should be initialized properly."
-    assert m.respond_to?(:topics), "The topic map should respond to :topics"
-    assert m.respond_to?(:associations), "The topic map should respond to :topics"
-    assert_equal 0, m.topics.size, "A new topic map should have no topics."
-    assert_equal 0, m.associations.size, "A new topic map should have no associations."
-    assert m.reifier.nil?, "A new topic map should not be reified yet."
-    assert_equal 0, m.item_identifiers.size, "A new topic map should "
-    # assigning a reifier
-    m.reifier = "a_topic_which_reifies_the_topic_map"
-    assert_equal 1, m.topics.size, "A topic should have been created to reify the topic map."
-    assert_kind_of RTM::Topic, m.reifier, "A reifier should be a Topic."
-    assert_equal m, m.topics.first.reified, "The only topic out there should reify the map (not generally, but here)."
-    assert_equal m.base_locator, m.topics.first.reified.base_locator, "The only topic out there should reify the map. Check base locator."
-    assert_equal m.__getobj__, m.topics.first.reified.__getobj__, "The only topic out there should reify the map. Look inside."
-    t = m.create_topic
-    assert_equal 2, m.topics.size, "There should be 2 topics after creating the second one."
-    assert_kind_of RTM::Topic, t, "The created topic should really be one."
-    assert_kind_of RTM::TopicMap, m
-    assert_equal m, t.parent, "The Topic Map should be the parent of our new topic." 
-    # The next tests may look a bit unneeded, but they at least also test the properties be available and initialized somehow.
-    assert_equal 0, t.item_identifiers.size, "New topic has no item_identifiers."
-
-    assert_equal 0, t.subject_identifiers.size, "New topic has no subject_identifiers."
-    assert_equal 0, t.subject_locators.size, "New topic has no subject_locators."
-    assert !t.valid?, "Without item identifiers nor subject identifiers the topic must not be valid." 
-    assert_equal 0, t.names.size, "New topic has no names."
-    assert_equal 0, t.occurrences.size, "New topic has no occurrences."
-    assert_equal 0, t.roles_played.size, "New topic plays no roles."
-    assert_nil t.reified, "New topic does not reify a statement."
-    n = t.create_name "bla"
-    assert_equal 1, t.names.size, "The topic should have one name now."
-    assert_kind_of RTM::Name,  n
-    assert_kind_of RTM::Topic, n.parent, "You won't believe but this should be a Topic and right now it not..."
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, n.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, n.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Name, n, "The topic name shoud be a TopicName... makes sence, he?" 
-    assert_equal 0, n.variants.size, "According to Lars Heuer and Robert Barta that should always be 0, not only now."
-    #assert_nil n.value, "We haven't set a value yet, where should it come from."
-    assert_equal "bla", n.value
-    #assert_nil n.type, "I am really tired of writing this stuff."
-    assert_equal m.get(RTM::PSI[:name_type]), n.type
-    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil n.reifier, "No, I guess not... who could ever stand that."
-    v = n.create_variant "v1", ["v1-scope"]
-    assert_equal 1, n.variants.size, "The topic should have one name now."
-    assert_kind_of RTM::Variant, v
-    assert_kind_of RTM::Name, v.parent, "You won't believe but this should be a Topic and right now it not..." 
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, v.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, v.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Variant, v, "The variant should be a Variant... makes sence, he?"
-    #assert_nil v.value, "We haven't set a value yet, where should it come from."
-    assert_equal "v1", v.value
-    
-    assert_nil v.datatype, "No datatype set, yet."
-
-    assert_equal 1, v.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil v.reifier, "No, I guess not... who could ever stand that."
-    #assert !v.valid?
-    o = t.create_occurrence "otype", "val"
-    assert_equal 1, t.occurrences.size, "The topic should have one name now."
-    assert_kind_of RTM::Occurrence, o
-    assert_kind_of RTM::Topic, o.parent, "You won't believe but this should be a Topic and right now it not..." 
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, o.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, o.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Occurrence, o, "The occurrence shoud be a Occurrence... makes sence, he?"
-    #assert_nil o.value, "We haven't set a value yet, where should it come from." 
-    #assert_nil o.type, "I am really tired of writing this stuff."
-    assert_nil o.datatype
-    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil n.reifier, "No, I guess not... who could ever stand that."
-    a = m.create_association "atype"
-    #assert_nil a.type
-    assert_equal 0, a.roles.size
-    assert_kind_of RTM::Association, a
-    assert_kind_of RTM::TopicMap, a.parent 
-    assert_equal m, a.parent
-    assert_equal 0, a.scope.size
-    #assert !a.valid?
-    #r1 = a.create_role
-    #assert_nil r1.type
-    #assert_nil r1.player
-    
-    #assert_kind_of RTM::Role, r1
-    #assert_kind_of RTM::Association, r1.parent
-    #assert_equal 1, a.roles.size
-    t.item_identifiers << "nr1"
-    assert_equal 1, t.item_identifiers.size
-    fii = t.item_identifiers.first
-    assert_equal "http://rtm.rubyforge.org/tests/base_test#nr1", fii.to_s
-    assert_kind_of RTM::Locator, fii
-    assert_kind_of RTM::ItemIdentifier, fii #needed?
-    # TODO: invalidate cache/reload value somehow
-    #assert_equal 1, m.item_identifiers.size, "If you see this, it is probably because TopicMap#item_identifiers.size is cached which is wrong in this case."
-    
-    t.subject_identifiers << "si1"
-    fsi = t.subject_identifiers.first
-    assert_equal "si1", fsi.to_s
-    assert_kind_of RTM::Locator, fsi
-    assert_kind_of RTM::SubjectIdentifier, fsi #needed?
-
-    t.subject_locators << "sl1"
-    fsl = t.subject_locators.first
-    assert_equal "sl1", fsl.to_s
-    assert_kind_of RTM::Locator, fsl
-    assert_kind_of RTM::SubjectLocator, fsl #needed?
-
-    # to be in associations_test later:
-    tm = base.create "urn:/associations_test"
-    a1 = tm.create_association "urn:/assoc_type_with_absolute_uri"
-    assert_not_nil a1.type
-    assert_equal a1.type, tm.get("urn:/assoc_type_with_absolute_uri")
-    a2 = tm.create_association "urn:/assoc_type_with_absolute_uri_using_hash"
-    assert_not_nil a2.type
-    assert_equal a2.type, tm.get("urn:/assoc_type_with_absolute_uri_using_hash")
-    
-    a3 = tm.create_association "relative_type"
-    assert_not_nil a3.type
-    assert_equal a3.type, tm.get("relative_type")
-    
-  end
-  def test_sugar_hash_access
-    base = RTM.connect(:implementation => :activerecord)
-    tm = base.create "a:b"
-    bla = tm.get!("bla")
-    bla["-name"] = "test"
-    n = bla["-name"].first
-    assert_equal "test", n.value
-    blau = tm.get!("blau")
-    blau["hex"] = "#0000ff"
-    assert_equal "#0000ff", blau["hex"].first.value
-    blau["hex @short"] = "#00f"
-    assert_equal "#0000ff", blau["hex"].first.value
-    assert_equal "#00f", blau["hex @short"].first.value
-  end
-
-end

data/test/base_unit_test_tmapi.rb

@@ -1,165 +0,0 @@
-# Copyright: Copyright 2009 Topic Maps Lab, University of Leipzig.
-# License:   Apache License, Version 2.0
-# 
-# Some basic tests for the Active Reckord Backend, applied to a TMAPI backend
-# Err
-#    first is not supported for Java::GnuTrove::THashSet
-#    tm.reifier not implemented
-
-$: << File.join(File.dirname(__FILE__), "/../lib")
-
-require 'rubygems'
-require 'test/unit'
-require 'rtm'
-
-class BaseTest < Test::Unit::TestCase
-  # There are a bunch of global assertions in here so it cannot be parallelized
-  # with other tests, that's why it is all in one. What can we do about that?
-  def test_connect
-    base = RTM.connect
-    assert base, "Connection to memory backend failed"
-    assert_equal 0, base[].size, "There should be no topic maps in a newly created environment."
-    base_locator = "http://rtm.rubyforge.org/tests/base_test"
-    m = base.create base_locator
-    assert_equal 1, base[].size, "After creation of a topic map, there should be one."
-    assert_kind_of RTM::TopicMap, m, "RTM.create should create something which includes RTM::TopicMap"
-    assert_equal base_locator, m.base_locator, "The base_locator should be initialized properly."
-    assert m.respond_to?(:topics), "The topic map should respond to :topics"
-    assert m.respond_to?(:associations), "The topic map should respond to :topics"
-    assert_equal 0, m.topics.size, "A new topic map should have no topics."
-    assert_equal 0, m.associations.size, "A new topic map should have no associations."
-    assert m.reifier.nil?, "A new topic map should not be reified yet."
-    assert_equal 0, m.item_identifiers.size, "A new topic map should "
-    # assigning a reifier
-    m.reifier = "a_topic_which_reifies_the_topic_map"
-    assert_equal 1, m.topics.size, "A topic should have been created to reify the topic map."
-    assert_kind_of RTM::Topic, m.reifier, "A reifier should be a Topic."
-    assert_equal m, m.topics.first.reified, "The only topic out there should reify the map (not generally, but here)."
-    assert_equal m.base_locator, m.topics.first.reified.base_locator, "The only topic out there should reify the map. Check base locator."
-    assert_equal m.__getobj__, m.topics.first.reified.__getobj__, "The only topic out there should reify the map. Look inside."
-    t = m.create_topic
-    assert_equal 2, m.topics.size, "There should be 2 topics after creating the second one."
-    assert_kind_of RTM::Topic, t, "The created topic should really be one."
-    assert_kind_of RTM::TopicMap, m
-    assert_equal m, t.parent, "The Topic Map should be the parent of our new topic." 
-    # The next tests may look a bit unneeded, but they at least also test the properties be available and initialized somehow.
-    assert_equal 0, t.item_identifiers.size, "New topic has no item_identifiers."
-
-    assert_equal 0, t.subject_identifiers.size, "New topic has no subject_identifiers."
-    assert_equal 0, t.subject_locators.size, "New topic has no subject_locators."
-    assert !t.valid?, "Without item identifiers nor subject identifiers the topic must not be valid." 
-    assert_equal 0, t.names.size, "New topic has no names."
-    assert_equal 0, t.occurrences.size, "New topic has no occurrences."
-    assert_equal 0, t.roles_played.size, "New topic plays no roles."
-    assert_nil t.reified, "New topic does not reify a statement."
-    n = t.create_name
-    assert_equal 1, t.names.size, "The topic should have one name now."
-    assert_kind_of RTM::Name,  n
-    assert_kind_of RTM::Topic, n.parent, "You won't believe but this should be a Topic and right now it not..."
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, n.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, n.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Name, n, "The topic name shoud be a TopicName... makes sence, he?" 
-    assert_equal 0, n.variants.size, "According to Lars Heuer and Robert Barta that should always be 0, not only now."
-    assert_nil n.value, "We haven't set a value yet, where should it come from."
-    assert_nil n.type, "I am really tired of writing this stuff."
-    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil n.reifier, "No, I guess not... who could ever stand that."
-    v = n.create_variant
-    assert_equal 1, n.variants.size, "The topic should have one name now."
-    assert_kind_of RTM::Variant, v
-    assert_kind_of RTM::Name, v.parent, "You won't believe but this should be a Topic and right now it not..." 
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, v.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, v.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Variant, v, "The variant should be a Variant... makes sence, he?"
-    assert_nil v.value, "We haven't set a value yet, where should it come from."
-    
-    assert_nil v.datatype, "No datatype set, yet."
-
-    assert_equal 0, v.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil v.reifier, "No, I guess not... who could ever stand that."
-    assert !v.valid?
-    o = t.create_occurrence
-    assert_equal 1, t.occurrences.size, "The topic should have one name now."
-    assert_kind_of RTM::Occurrence, o
-    assert_kind_of RTM::Topic, o.parent, "You won't believe but this should be a Topic and right now it not..." 
-    # TODO the following assertion does not work - it crashes pp... but why?
-    # assert_equal t, o.parent, "The parent of the name should be the topic on which it was created."
-    assert_equal 0, o.item_identifiers.size, "I wonder if someone will ever read that."
-    assert_kind_of RTM::Occurrence, o, "The occurrence shoud be a Occurrence... makes sence, he?"
-    assert_nil o.value, "We haven't set a value yet, where should it come from." 
-    assert_nil o.type, "I am really tired of writing this stuff."
-    assert_nil o.datatype
-    assert_equal 0, n.scope.size, "Should I really be more serious with this stuff?"
-    assert_nil n.reifier, "No, I guess not... who could ever stand that."
-    a = m.create_association
-    assert_nil a.type
-    assert_equal 0, a.roles.size
-    assert_kind_of RTM::Association, a
-    assert_kind_of RTM::TopicMap, a.parent 
-    assert_equal m, a.parent
-    assert_equal 0, a.scope.size
-    assert !a.valid?
-    r1 = a.create_role
-    assert_nil r1.type
-    assert_nil r1.player
-    
-    assert_kind_of RTM::Role, r1
-    assert_kind_of RTM::Association, r1.parent
-    assert_equal 1, a.roles.size
-    t.item_identifiers << "nr1"
-    assert_equal 1, t.item_identifiers.size
-    fii = t.item_identifiers.first
-    assert_equal "http://rtm.rubyforge.org/tests/base_test#nr1", fii.to_s
-    assert_kind_of RTM::Locator, fii
-    assert_kind_of RTM::ItemIdentifier, fii #needed?
-    # TODO: invalidate cache/reload value somehow
-    # assert_equal 1, m.item_identifiers.size, "If you see this, it is probably because TopicMap#item_identifiers.size is cached which is wrong in this case."
-    
-    t.subject_identifiers << "si1"
-    fsi = t.subject_identifiers.first
-    assert_equal "si1", fsi.to_s
-    assert_kind_of RTM::Locator, fsi
-    assert_kind_of RTM::SubjectIdentifier, fsi #needed?
-
-    t.subject_locators << "sl1"
-    fsl = t.subject_locators.first
-    assert_equal "sl1", fsl.to_s
-    assert_kind_of RTM::Locator, fsl
-    assert_kind_of RTM::SubjectLocator, fsl #needed?
-
-    # to be in associations_test later:
-    tm = base.create "urn:/associations_test"
-    a1 = tm.create_association "urn:/assoc_type_with_absolute_uri"
-    assert_not_nil a1.type
-    assert_equal a1.type, tm.get("urn:/assoc_type_with_absolute_uri")
-    a2 = tm.create_association :type => "urn:/assoc_type_with_absolute_uri_using_hash"
-    assert_not_nil a2.type
-    assert_equal a2.type, tm.get("urn:/assoc_type_with_absolute_uri_using_hash")
-    
-    a3 = tm.create_association "relative_type"
-    assert_not_nil a3.type
-    assert_equal a3.type, tm.get("relative_type")
-    
-  end
-  def test_sugar_hash_access
-    base = RTM.connect
-    tm = base.create "a:b"
-    bla = tm.get!("bla")
-    bla["-name"] = "test"
-    n = bla["-name"].first
-    assert_equal "test", n.value
-  end
-  def test_names
-    base = RTM.connect
-    tm = base.create "a:c"
-
-    # Create 2 more names, this time of type "foo".
-    t4 = tm.create_topic
-    n2 = t4.create_name "http://foo.foo/foo", "bar", []
-    n2 = t4.create_name "http://foo.foo/foo", "bar", ["http://baz.baz/baz"]
-    assert_equal 2, t4.names.size, "The topic should have 2 names now."
-  end
-
-end