ontology-united 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: ab561ca8455f27d70cbdd4cb9c20351da04f6a4e
-  data.tar.gz: ff6f3bb6c32f3cb2b9fd3862e10cc2b140ab9269
+  metadata.gz: 5fa8e5afa2d08912d715348c106109de7e33b629
+  data.tar.gz: cd4910c791695d652a41efc8ee0c27c57b09014b
 SHA512:
-  metadata.gz: 758a5eac126d84d58d6a46901b43299ec9040e7b4f4f1166c3c2e8e6333cbb389caef40a7ce4e017c065ba71eef119a8dc62877c967e49c441901844f9d03aec
-  data.tar.gz: 6890fcda4eccbfc2b0d89aac0b8448e94bcd040d3fbdf0faa70c5fccb462b739e4749395a0a36d10c8975088c403f87a588f4368e515ef473d09c0a20ff32090
+  metadata.gz: 5bdcbbc3e8fa861ebc51da05fc8508bfd83bd69942a47fd67c8cf1c5f39151b834d8b26889a1c3d304f61cf321a0001c2e7952441b57c092563e64e642e80941
+  data.tar.gz: cef0f24b326c209e63a9776dbdc58a208a82da8539fc71ce43094c7553cec0465e93b2263c9ea0958658d0c3eadd5fe655c875ec70cf4073d65baa7c471da1c1

data/.coveralls.yml

@@ -0,0 +1 @@
+service-name: travis-ci

data/.travis.yml

@@ -1,4 +1,5 @@
 language: ruby
-cache: bundler
+cache:
+  bundler: true
 rvm:
-  - 2.1.1
+  - 2.1.5

data/Gemfile.lock

@@ -0,0 +1,55 @@
+PATH
+  remote: .
+  specs:
+    ontology-united (0.0.2)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    coderay (1.1.0)
+    coveralls (0.7.0)
+      multi_json (~> 1.3)
+      rest-client
+      simplecov (>= 0.7)
+      term-ansicolor
+      thor
+    diff-lcs (1.2.5)
+    method_source (0.8.2)
+    mime-types (2.2)
+    multi_json (1.9.2)
+    pry (0.9.12.6)
+      coderay (~> 1.0)
+      method_source (~> 0.8)
+      slop (~> 3.4)
+    rake (10.2.2)
+    rest-client (1.6.7)
+      mime-types (>= 1.16)
+    rspec (2.14.1)
+      rspec-core (~> 2.14.0)
+      rspec-expectations (~> 2.14.0)
+      rspec-mocks (~> 2.14.0)
+    rspec-core (2.14.8)
+    rspec-expectations (2.14.5)
+      diff-lcs (>= 1.1.3, < 2.0)
+    rspec-mocks (2.14.6)
+    simplecov (0.7.1)
+      multi_json (~> 1.0)
+      simplecov-html (~> 0.7.1)
+    simplecov-html (0.7.1)
+    slop (3.4.7)
+    term-ansicolor (1.3.0)
+      tins (~> 1.0)
+    thor (0.19.1)
+    tins (1.1.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler (>= 1.7.2)
+  coveralls (~> 0.7.0)
+  ontology-united!
+  pry (~> 0.9)
+  rake (~> 10.2)
+  rspec (~> 2.14)
+  simplecov (~> 0.7.1)

data/README.md

@@ -1,5 +1,9 @@
 # ontology-united
 
+[![Gem Version](https://badge.fury.io/rb/ontology-united.svg)](http://badge.fury.io/rb/ontology-united)
+[![Build Status](https://travis-ci.org/0robustus1/ontology-united.svg?branch=master)](https://travis-ci.org/0robustus1/ontology-united)
+[![Coverage Status](https://coveralls.io/repos/0robustus1/ontology-united/badge.png?branch=master)](https://coveralls.io/r/0robustus1/ontology-united?branch=master)
+
 ontology-united is a small DSL (domain specific language) for
 writing [OWL][owl] ontologies.
 
@@ -45,11 +49,11 @@ OntologyUnited::DSL::OntologyDSL.define('MyOntologyName') do
 end
 ```
 
-or by including the convience module, which will give you a more
+or by including the convenience module, which will give you a more
 useful/shorter method call:
 ```ruby
 # you'll only need to do this once per namespace
-include OntologyUnited::Convience
+include OntologyUnited::Convenience
 
 define_ontology('MyOntologyName') do
 end

data/lib/ontology-united.rb

@@ -3,6 +3,7 @@ require "ontology-united/version"
 module OntologyUnited
 end
 
+require "ontology-united/stack"
 require "ontology-united/dsl"
 require "ontology-united/serializer"
 require "ontology-united/convenience"

data/lib/ontology-united/dsl.rb

@@ -9,11 +9,13 @@ module OntologyUnited
   end
 end
 
+require "ontology-united/dsl/pseudo_set.rb"
+require "ontology-united/dsl/variable_store.rb"
 require "ontology-united/dsl/base_dsl"
+require "ontology-united/dsl/ontology_dsl"
 require "ontology-united/dsl/ontology_entity_base"
 require "ontology-united/dsl/ontology"
 require "ontology-united/dsl/ontology_class"
-require "ontology-united/dsl/ontology_dsl"
 require "ontology-united/dsl/ontology_import"
 require "ontology-united/dsl/ontology_prefix"
 require "ontology-united/dsl/ontology_sentence"

data/lib/ontology-united/dsl/base_dsl.rb

@@ -1,12 +1,13 @@
 module OntologyUnited
   module DSL
     class BaseDSL
+      extend Stack::Delegate
 
       class << self
+        include Stack
 
         attr_writer :stack
         attr_reader :the_attr_readers
-        attr_reader :current
 
         def attr_reader_with_default(*readers, default: nil)
           raise ArgumentError, 'Default value for reader needed' if default.nil?
@@ -16,14 +17,6 @@ module OntologyUnited
           readers.each { |reader| @the_attr_readers[reader] = klass }
         end
 
-        def stack
-          @stack ||= []
-        end
-
-        def current
-          self.stack.last
-        end
-
       end
 
       def establish_defaults
@@ -32,13 +25,7 @@ module OntologyUnited
         end
       end
 
-      def stack
-        self.class.stack
-      end
-
-      def current
-        self.class.current
-      end
+      delegate_stack_to { |base_dsl| base_dsl.class }
 
     end
   end

data/lib/ontology-united/dsl/ontology.rb

@@ -3,11 +3,16 @@ require 'set'
 
 module OntologyUnited
   module DSL
-    class Ontology < BaseDSL
+    class Ontology < OntologyDSL
+      include VariableStore::Declaration
+      include VariableStore::Helper
+
+      delegate_stack_to { |ontology| ontology.class.superclass }
+
       DEFAULT_EXTENSION = :owl
 
       attr_reader_with_default :the_classes, :the_imports,
-        :the_sentences, :the_prefixes, default: Set
+        :the_sentences, :the_prefixes, default: PseudoSet
       attr_reader :name
 
       def initialize(name)
@@ -24,12 +29,13 @@ module OntologyUnited
         @iri
       end
 
-      def class(name=nil)
+      def class(name=nil, as: nil)
         if name.nil?
           super()
         else
-          ontology_class = OntologyClass.new(name)
-          the_classes << ontology_class
+          sample = OntologyClass.new(name)
+          ontology_class = the_classes.add_or_fetch(sample)
+          ontology_class.as(as) if as
           ontology_class
         end
       end
@@ -47,15 +53,16 @@ module OntologyUnited
       def imports(arg, &block)
         if block && arg.is_a?(Ontology)
           ontology = arg
-          arg = redefine(&block)
+          arg = redefine(ontology, &block)
         end
         the_import = OntologyImport.new(arg)
         the_imports << the_import
         the_import
       end
 
-      def prefix(prefix, iri=self)
+      def prefix(prefix, iri=self, as: nil)
         the_prefix = OntologyPrefix.new(prefix, iri)
+        the_prefix.as(as) if as
         the_prefixes << the_prefix
         the_prefix
       end
@@ -66,7 +73,6 @@ module OntologyUnited
           'SubClassOf:',
           parent_ontology_class
         ])
-        parent_ontology_class.part_of(sentence)
         the_sentences << sentence
         sentence
       end

data/lib/ontology-united/dsl/ontology_class.rb

@@ -2,22 +2,29 @@ module OntologyUnited
   module DSL
     class OntologyClass < OntologyEntityBase
 
+      delegate_equality_to method: :identifier
+
       attr_accessor :prefix
       attr_reader :name
-      delegate_equality_to method: :name
 
       def initialize(name)
         @name = name
       end
 
-      def sub_class_of(parent_ontology_class)
-        parent.sub_class_of(self, parent_ontology_class)
+      def sub_class_of(parent_ontology_class, as: nil)
+        sentence = parent.sub_class_of(self, parent_ontology_class)
+        sentence.as(as) if as
+        sentence
       end
 
       def to_s(serializer: OntologyUnited::Serializer::DEFAULT.new)
         serializer.serialize_class(self)
       end
 
+      def identifier
+        prefix ? prefix.identifier + [name] : [name]
+      end
+
     end
   end
 end

data/lib/ontology-united/dsl/ontology_dsl.rb

@@ -2,13 +2,14 @@ module OntologyUnited
   module DSL
     class OntologyDSL < BaseDSL
 
-      def self.define(name, &block)
+      def self.define(name, as: nil, &block)
         ontology = Ontology.new(name)
-        redefine(ontology, &block)
+        redefine(ontology, as: as, &block)
       end
 
-      def self.redefine(ontology, &block)
+      def self.redefine(ontology, as: nil, &block)
         stack.push(ontology)
+        ontology.as(as) if as
         if block
           if block.arity == 1
             block.call(ontology)

data/lib/ontology-united/dsl/ontology_entity_base.rb

@@ -1,19 +1,25 @@
 module OntologyUnited
   module DSL
     class OntologyEntityBase
+      include VariableStore::Helper
 
       attr_reader :the_calls
 
       def self.delegate_equality_to(method: nil, variable: nil)
-        define_method :eql? do |obj|
+        define_method :== do |obj|
           if method
-            self.send(method.to_sym).eql?(obj.send(method.to_sym))
+            return false unless self.respond_to?(method.to_sym)
+            return false unless obj.respond_to?(method.to_sym)
+            self.send(method.to_sym) == obj.send(method.to_sym)
           elsif variable
             own = self.instance_variable_get(:"@#{variable}")
             other = obj.instance_variable_get(:"@#{variable}")
-            own.eql?(other)
+            own == other
           end
         end
+        define_method :eql? do |obj|
+          self == obj
+        end
         define_method :hash do
           if method
             self.send(method).hash
@@ -28,25 +34,6 @@ module OntologyUnited
         OntologyDSL.current
       end
 
-      def part_of(element)
-        @part_of ||= Set.new
-        @part_of << element
-      end
-
-      def part_of?(element)
-        @part_of ||= Set.new
-        @part_of.member?(element)
-      end
-
-      def called_for_parent_before?(method)
-        @the_calls ||= {}
-        !! the_calls[[parent, method]]
-      end
-
-      def eql?(object)
-        (self <=> object) == 0
-      end
-
     end
   end
 end

data/lib/ontology-united/dsl/ontology_prefix.rb

@@ -3,7 +3,7 @@ module OntologyUnited
     class OntologyPrefix < OntologyEntityBase
 
       attr_reader :prefix, :iri, :ontology, :subject
-      delegate_equality_to method: :prefix
+      delegate_equality_to method: :identifier
 
       def initialize(prefix, arg)
         @prefix = prefix
@@ -12,11 +12,11 @@ module OntologyUnited
         @subject = arg
       end
 
-      def class(name=nil)
+      def class(name=nil, as: nil)
         if name.nil?
           super()
         else
-          ontology_class = parent.class(name)
+          ontology_class = parent.class(name, as: as)
           ontology_class.prefix = self
           ontology_class
         end
@@ -32,6 +32,10 @@ module OntologyUnited
         serializer.serialize_prefix(self)
       end
 
+      def identifier
+        [@iri || @ontology.name, prefix]
+      end
+
     end
   end
 end

data/lib/ontology-united/dsl/pseudo_set.rb

@@ -0,0 +1,38 @@
+module OntologyUnited
+  module DSL
+    class PseudoSet < ::Array
+
+      alias_method :array_push, :push
+      alias_method :array_concat, :concat
+
+      def add_or_fetch(obj)
+        if include?(obj)
+          at(index(obj))
+        else
+          array_push(obj)
+          obj
+        end
+      end
+
+      def push(obj)
+        include?(obj) ? self : array_push(obj)
+      end
+
+      def <<(obj)
+        push(obj)
+      end
+
+      def concat(arr)
+        array = dup
+        arr.each { |el| array.push(el) }
+        array
+      end
+
+      def +(arr)
+        concat(arr)
+      end
+
+
+    end
+  end
+end

data/lib/ontology-united/dsl/variable_store.rb

@@ -0,0 +1,25 @@
+module OntologyUnited
+  module DSL
+    module VariableStore
+      class Error < ::StandardError; end
+      class ParentIsNilError < Error; end
+
+      module Helper
+        def as(name)
+          fail ParentIsNilError, 'Can\'t define variable on nil' unless parent
+          parent.declare(self, as: name.to_sym)
+          self
+        end
+      end
+
+      module Declaration
+        def declare(obj, as: nil)
+          if as
+            define_singleton_method(as) { obj }
+          end
+        end
+      end
+
+    end
+  end
+end

data/lib/ontology-united/serializer/serializer_base.rb

@@ -1,6 +1,7 @@
 module OntologyUnited
   module Serializer
     class SerializerBase
+      include Stack
 
       def initialize(current: nil)
         stack.push(current) if current
@@ -21,18 +22,6 @@ module OntologyUnited
         stack.pop
       end
 
-      def stack
-        @stack ||= []
-      end
-
-      def current
-        stack[-1]
-      end
-
-      def parent
-        stack[-2]
-      end
-
       def join(elements, sep)
         elements.reduce('') do |str, raw_element|
           str << sep unless str.empty?

data/lib/ontology-united/stack.rb

@@ -0,0 +1,30 @@
+module OntologyUnited
+  module Stack
+
+    def stack
+      @stack ||= []
+    end
+
+    def current
+      stack[-1]
+    end
+
+    def parent
+      stack[-2]
+    end
+
+    module Delegate
+      def delegate_stack_to(method_name=nil, &block)
+        action = ->(stack_operation) do
+          ->() do
+            block.call(self).send(stack_operation)
+          end
+        end
+        define_method :stack, &action[:stack]
+        define_method :current, &action[:current]
+        define_method :parent, &action[:parent]
+      end
+    end
+
+  end
+end

data/lib/ontology-united/version.rb

@@ -1,3 +1,3 @@
 module OntologyUnited
-  VERSION = "0.0.2"
+  VERSION = "0.0.3"
 end

data/ontology-united.gemspec

@@ -18,8 +18,10 @@ Gem::Specification.new do |spec|
   spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
   spec.require_paths = ["lib"]
 
-  spec.add_development_dependency "bundler", ">= 1.5.3"
+  spec.add_development_dependency "bundler", ">= 1.7.2"
   spec.add_development_dependency "rake", "~> 10.2"
   spec.add_development_dependency "rspec", "~> 2.14"
   spec.add_development_dependency "pry", "~> 0.9"
+  spec.add_development_dependency "simplecov", "~> 0.7.1"
+  spec.add_development_dependency "coveralls", "~> 0.7.0"
 end

data/spec/ontology-united/convenience_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+describe OntologyUnited::Convenience do
+  include OntologyUnited::Convenience
+
+  context 'when defining a valid ontology' do
+    let(:ontology) do
+      define_ontology('Foo') do
+        ontology_class('Something')
+      end
+    end
+
+    it 'should raise no errors' do
+      expect { ontology }.not_to raise_error
+    end
+
+    it 'should return an ontology instance' do
+      expect(ontology).to be_instance_of(OntologyUnited::DSL::Ontology)
+    end
+
+
+  end
+
+end

data/spec/ontology-united/dsl/base_dsl_spec.rb

@@ -0,0 +1,41 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::BaseDSL do
+
+  context '#stack' do
+
+    context 'should be an alias for .stack' do
+      let(:instance) { described_class.new }
+
+      it 'should be the same on default' do
+        expect(instance.stack).to eq(described_class.stack)
+      end
+
+      it 'should be the same with added content' do
+        described_class.stack.push('Content')
+        expect(instance.stack).to eq(described_class.stack)
+      end
+
+    end
+
+  end
+
+  context '#current' do
+
+    context 'should be an alias for .current' do
+      let(:instance) { described_class.new }
+
+      it 'should be the same on default' do
+        expect(instance.current).to eq(described_class.current)
+      end
+
+      it 'should be the same with added content to stack' do
+        described_class.stack.push('Content')
+        expect(instance.current).to eq(described_class.current)
+      end
+
+    end
+
+  end
+
+end

data/spec/ontology-united/dsl/ontology_dsl_spec.rb

@@ -0,0 +1,31 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::OntologyDSL do
+
+  context '.define' do
+    let(:ontology) do
+      described_class.define('Foo') do |this|
+        this.class('Something')
+      end
+    end
+
+    it 'should be allowed to use an ontology argument in the block' do
+      expect { ontology }.not_to raise_error
+    end
+
+    context 'inner definition of ontology' do
+      let(:outer) do
+        described_class.define('Foo') do
+          define('Bar', as: :bar_ontology) do |this|
+            this.class('Something')
+          end
+        end
+      end
+
+      it 'should contain variable-assignment for inner ontology' do
+        expect(outer.bar_ontology.name).to eq('Bar')
+      end
+    end
+  end
+
+end

data/spec/ontology-united/dsl/ontology_entity_base_spec.rb

@@ -0,0 +1,100 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::OntologyEntityBase do
+
+  context '.delegate_equality_to' do
+
+    context 'when delegating to a method' do
+      let(:klass) do
+        class MethodClass < described_class
+          delegate_equality_to method: :name
+
+          def initialize(name)
+            @name = name
+          end
+
+          def name
+            @name
+          end
+        end
+        MethodClass
+      end
+
+      let(:person) { klass.new('Person') }
+      let(:same_person) { klass.new('Person') }
+      let(:someone) { klass.new('Someone') }
+
+
+      it 'should be equal if methods return values are equal' do
+        expect(person).to eql(same_person)
+      end
+
+      it 'should be not equal if methods return values are not equal' do
+        expect(someone).not_to eql(person)
+      end
+
+      it 'should be equal(==) if methods return values are equal' do
+        expect(person).to eq(same_person)
+      end
+
+      it 'should be not equal(==) if methods return values are not equal' do
+        expect(someone).not_to eq(person)
+      end
+
+      it 'hash should be the same if return values are the same' do
+        expect(person.hash).to eql(same_person.hash)
+      end
+
+      it 'hash should be not the same if return values are not the same' do
+        expect(someone.hash).not_to eql(person.hash)
+      end
+
+    end
+
+    context 'when delegating to a method' do
+      let(:klass) do
+        class MethodClass < described_class
+          delegate_equality_to variable: :name
+
+          def initialize(name)
+            @name = name
+          end
+
+        end
+        MethodClass
+      end
+
+      let(:person) { klass.new('Person') }
+      let(:same_person) { klass.new('Person') }
+      let(:someone) { klass.new('Someone') }
+
+
+      it 'should be equal if variable values are equal' do
+        expect(person).to eql(same_person)
+      end
+
+      it 'should be not equal if variable values are not equal' do
+        expect(someone).not_to eql(person)
+      end
+
+      it 'should be equal(==) if variable values are equal' do
+        expect(person).to eq(same_person)
+      end
+
+      it 'should be not equal(==) if variable values are not equal' do
+        expect(someone).not_to eq(person)
+      end
+
+      it 'hash should be the same if variable values are the same' do
+        expect(person.hash).to eql(same_person.hash)
+      end
+
+      it 'hash should be not the same if variable values are not the same' do
+        expect(someone.hash).not_to eql(person.hash)
+      end
+
+    end
+
+  end
+
+end

data/spec/ontology-united/dsl/ontology_prefix_spec.rb

@@ -0,0 +1,14 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::OntologyPrefix do
+
+  context '#class' do
+    let(:prefix) { described_class.new('prefix', 'http://example.com') }
+
+    it 'should also work in the expected ruby sense' do
+      expect(prefix.class).to eq(described_class)
+    end
+
+  end
+
+end

data/spec/ontology-united/dsl/ontology_spec.rb

@@ -0,0 +1,87 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::Ontology do
+
+  context '#file' do
+    let(:ontology) do
+      OntologyUnited::DSL::OntologyDSL.define('Foo') do
+        ontology_class('Something')
+      end
+    end
+
+    it 'should produce an existing file' do
+      expect(File.exist?(ontology.file.path)).to be_true
+    end
+
+  end
+
+  context 'variable store' do
+    let(:ontology) do
+      OntologyUnited::DSL::OntologyDSL.define('Foo') do
+        this = prefix('this', as: :this_prefix)
+        this.class('Something', as: :something_class)
+        this.class('Something').sub_class_of this.class('Other'), as: :sub_class_sentence
+
+        imports define('Bar', as: :referenced_ontology) do
+          bar = prefix('this', as: :bar_prefix)
+          bar.class('Something', as: :something_class)
+        end
+
+      end
+    end
+
+    context '.prefix' do
+      it 'should not contain a nily variable assignment' do
+        expect(ontology.this_prefix).to_not be_nil
+      end
+
+      it 'should contain a variable assignment with correct prefix' do
+        expect(ontology.this_prefix.prefix).to eq('this')
+      end
+    end
+
+    context '.class' do
+      it 'should not contain a nily variable assignment' do
+        expect(ontology.something_class).to_not be_nil
+      end
+
+      it 'should contain a variable assignment with correct name' do
+        expect(ontology.something_class.name).to eq('Something')
+      end
+    end
+
+    context 'sub_class_of sentence' do
+      it 'should not contain a nily variable assignment' do
+        expect(ontology.sub_class_sentence).to_not be_nil
+      end
+    end
+
+    context '.imports' do
+
+      it 'should not contain a nily imported ontology' do
+        expect(ontology.referenced_ontology).to_not be_nil
+      end
+
+      context 'the imported ontology' do
+
+        let(:imported) { ontology.referenced_ontology }
+
+        it 'should have a prefix' do
+          expect(imported.bar_prefix).to_not be_nil
+        end
+
+        it 'should have a a symbol' do
+          expect(imported.something_class).to_not be_nil
+        end
+
+        it 'should have not the same symbol as the parent ontology' do
+          expect(imported.something_class).to_not eq(ontology.something_class)
+        end
+      end
+
+    end
+
+  end
+
+
+end

data/spec/ontology-united/dsl/variable_store_spec.rb

@@ -0,0 +1,53 @@
+require 'spec_helper'
+
+describe OntologyUnited::DSL::VariableStore do
+  let(:declaration_klass) do
+    class DeclarationKlass
+      include OntologyUnited::DSL::VariableStore::Declaration
+    end
+    DeclarationKlass
+  end
+
+  let(:variable_klass) do
+    class VariableKlass
+      include OntologyUnited::DSL::VariableStore::Helper
+      attr_accessor :parent, :some_string
+
+      def initialize(parent, some_string)
+        self.parent = parent
+        self.some_string = some_string
+      end
+    end
+    VariableKlass
+  end
+
+  context 'assuming an object with parent' do
+    let(:parent) { declaration_klass.new }
+    let(:variable_instance) { variable_klass.new(parent, 'SomeString') }
+
+    it 'should respond with self to a variable assignment call' do
+      expect(variable_instance.as(:inner)).to eq(variable_instance)
+    end
+
+    context 'and a variable assignment' do
+      before do
+        variable_instance.as(:inner)
+      end
+
+      it 'should produce the same object as variable on parent' do
+        expect(parent.inner).to eq(variable_instance)
+      end
+
+    end
+  end
+
+  context 'assuming an object without parent' do
+    let(:variable_instance) { variable_klass.new(nil, 'SomeString') }
+
+    it 'should raise the correct error' do
+      expect { variable_instance.as(:inner) }.to raise_error(OntologyUnited::DSL::VariableStore::ParentIsNilError)
+    end
+
+  end
+
+end

data/spec/ontology-united/ontology-united_spec.rb

@@ -15,7 +15,7 @@ describe OntologyUnited do
           rr = prefix('rr', self)
           rr.class('SomeBar')
         end
-        rr.class('Bar').sub_class_of rr.class('Foo')
+        rr.class('Bar').sub_class_of rr.class('Foo').as(:foo_class)
         rr.class('something')
         rr.class('something').sub_class_of rr.class('Foo')
       end
@@ -28,6 +28,11 @@ describe OntologyUnited do
     it 'should have a valid iri' do
       expect(ontology.iri).to match(URI.regexp)
     end
+
+    it 'should have an on-ontology variable of the right type defined' do
+      expect(ontology.foo_class).
+        to be_instance_of(OntologyUnited::DSL::OntologyClass)
+    end
   end
 
 end

data/spec/ontology-united/serializer/serializer_base_spec.rb

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+describe OntologyUnited::Serializer::SerializerBase do
+
+  let(:ontology) do
+    OntologyUnited::DSL::OntologyDSL.define('Foo') do
+      this = prefix('this', as: :this_prefix)
+      this.class('Something', as: :something_class)
+      this.class('Something').sub_class_of this.class('Other'), as: :sub_class_sentence
+    end
+  end
+
+  let(:serializer) { described_class.new }
+
+  context '.ontology?' do
+    it 'should recognize an ontology correctly' do
+      expect(serializer.ontology?(ontology)).to be_true
+    end
+
+    it 'should produce false for an ontology-class' do
+      expect(serializer.ontology?(ontology.something_class)).to be_false
+    end
+  end
+
+  context '.class?' do
+    it 'should recognize an ontology-class correctly' do
+      expect(serializer.class?(ontology.something_class)).to be_true
+    end
+
+    it 'should produce false for a sentence' do
+      expect(serializer.class?(ontology.sub_class_sentence)).to be_false
+    end
+  end
+
+  context 'sentence?' do
+    it 'should recognize a sentence correctly' do
+      expect(serializer.sentence?(ontology.sub_class_sentence)).to be_true
+    end
+
+    it 'should produce false for an ontology-class' do
+      expect(serializer.sentence?(ontology.something_class)).to be_false
+    end
+  end
+
+
+end

data/spec/ontology-united/stack_spec.rb

@@ -0,0 +1,118 @@
+require 'spec_helper'
+
+describe OntologyUnited::Stack do
+
+  let(:instance) do
+    class Klass
+      include OntologyUnited::Stack
+    end
+
+    Klass.new
+  end
+
+  context '.stack' do
+    it 'should be empty per default' do
+      expect(instance.stack).to be_empty
+    end
+
+    it 'should contain a pushed element' do
+      instance.stack.push(1)
+      expect(instance.stack).to include(1)
+    end
+  end
+
+  context '.current' do
+    it 'should be nil per default' do
+      expect(instance.current).to be_nil
+    end
+
+    it 'should be equal to stack.last on a two-element stack' do
+      instance.stack.push(1,2)
+      expect(instance.current).to eq(instance.stack.last)
+    end
+  end
+
+  context '.parent' do
+    it 'should be nil per default' do
+      expect(instance.parent).to be_nil
+    end
+
+    it 'should be nil if only one element was pushed to the stack' do
+      instance.stack.push(1)
+      expect(instance.parent).to be_nil
+    end
+
+    it 'should be equal to stack.first on a two-element stack' do
+      instance.stack.push(1,2)
+      expect(instance.parent).to eq(instance.stack.first)
+    end
+
+    it 'should be the middle element on a three-element stack' do
+      instance.stack.push(1,2,3)
+      expect(instance.parent).to eq(2)
+    end
+  end
+
+  describe OntologyUnited::Stack::Delegate do
+
+    context '.delegate_stack_to' do
+      let(:klass) do
+        class Klass
+          extend OntologyUnited::Stack
+        end
+        Klass
+      end
+
+      let(:subklass) do
+        class SubKlass < klass
+          extend OntologyUnited::Stack::Delegate
+
+          delegate_stack_to { |subklass| subklass.class.superclass }
+        end
+        SubKlass
+      end
+
+      let(:instance) { subklass.new }
+
+      before do
+        klass.instance_variable_set(:@stack, [])
+      end
+
+      context 'alias SubKlass#stack to Klass.stack' do
+        it 'should equal empty stack on default' do
+          expect(instance.stack).to be_empty
+        end
+
+        it 'should equal the superclass stack on push' do
+          klass.stack.push(1)
+          expect(instance.stack).to eq(klass.stack)
+        end
+      end
+
+      context 'alias SubKlass#current to Klass.current' do
+        it 'should equal to empty stack on default' do
+          expect(instance.current).to be_nil
+        end
+
+        it 'should equal the superclass stack on push' do
+          klass.stack.push(1)
+          expect(instance.current).to eq(klass.current)
+        end
+      end
+
+      context 'alias SubKlass#parent to Klass.parent' do
+        it 'should equal nil on default' do
+          expect(instance.parent).to be_nil
+        end
+
+        it 'should equal the superclass stack on push' do
+          klass.stack.push(1, 2)
+          expect(instance.parent).to eq(klass.parent)
+        end
+      end
+
+    end
+
+  end
+
+end

data/spec/spec_helper.rb

@@ -1,2 +1,12 @@
+if ENV['COVERAGE']
+  require 'simplecov'
+  SimpleCov.start
+else
+  require 'coveralls'
+  Coveralls.wear!
+end
+
 $LOAD_PATH.unshift File.expand_path('../../lib', __FILE__)
 require 'ontology-united'
+require 'pry'
+

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: ontology-united
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors:
 - Tim Reddehase
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-04-25 00:00:00.000000000 Z
+date: 2014-12-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -16,14 +16,14 @@ dependencies:
     requirements:
     - - ">="
       - !ruby/object:Gem::Version
-        version: 1.5.3
+        version: 1.7.2
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - ">="
       - !ruby/object:Gem::Version
-        version: 1.5.3
+        version: 1.7.2
 - !ruby/object:Gem::Dependency
   name: rake
   requirement: !ruby/object:Gem::Requirement
@@ -66,6 +66,34 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '0.9'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.1
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.1
+- !ruby/object:Gem::Dependency
+  name: coveralls
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.0
 description: a small domain specific language for writing owl based ontologies
 email:
 - robustus@rightsrestricted.com
@@ -73,9 +101,11 @@ executables: []
 extensions: []
 extra_rdoc_files: []
 files:
+- ".coveralls.yml"
 - ".rspec"
 - ".travis.yml"
 - Gemfile
+- Gemfile.lock
 - LICENSE.txt
 - README.md
 - Rakefile
@@ -90,14 +120,26 @@ files:
 - lib/ontology-united/dsl/ontology_import.rb
 - lib/ontology-united/dsl/ontology_prefix.rb
 - lib/ontology-united/dsl/ontology_sentence.rb
+- lib/ontology-united/dsl/pseudo_set.rb
+- lib/ontology-united/dsl/variable_store.rb
 - lib/ontology-united/serializer.rb
 - lib/ontology-united/serializer/owl.rb
 - lib/ontology-united/serializer/owl/manchester.rb
 - lib/ontology-united/serializer/serializer_base.rb
+- lib/ontology-united/stack.rb
 - lib/ontology-united/version.rb
 - ontology-united.gemspec
+- spec/ontology-united/convenience_spec.rb
+- spec/ontology-united/dsl/base_dsl_spec.rb
+- spec/ontology-united/dsl/ontology_dsl_spec.rb
+- spec/ontology-united/dsl/ontology_entity_base_spec.rb
+- spec/ontology-united/dsl/ontology_prefix_spec.rb
+- spec/ontology-united/dsl/ontology_spec.rb
+- spec/ontology-united/dsl/variable_store_spec.rb
 - spec/ontology-united/ontology-united_spec.rb
 - spec/ontology-united/serializer/owl/manchester_spec.rb
+- spec/ontology-united/serializer/serializer_base_spec.rb
+- spec/ontology-united/stack_spec.rb
 - spec/spec_helper.rb
 homepage: https://github.com/0robustus1/ontology-united
 licenses:
@@ -124,6 +166,15 @@ signing_key:
 specification_version: 4
 summary: small ontology definition dsl
 test_files:
+- spec/ontology-united/convenience_spec.rb
+- spec/ontology-united/dsl/base_dsl_spec.rb
+- spec/ontology-united/dsl/ontology_dsl_spec.rb
+- spec/ontology-united/dsl/ontology_entity_base_spec.rb
+- spec/ontology-united/dsl/ontology_prefix_spec.rb
+- spec/ontology-united/dsl/ontology_spec.rb
+- spec/ontology-united/dsl/variable_store_spec.rb
 - spec/ontology-united/ontology-united_spec.rb
 - spec/ontology-united/serializer/owl/manchester_spec.rb
+- spec/ontology-united/serializer/serializer_base_spec.rb
+- spec/ontology-united/stack_spec.rb
 - spec/spec_helper.rb