domain 0.0.1 → 1.0.0.rc1

data/spec/fixtures/neg_int.rb

@@ -0,0 +1,3 @@
+class NegInt < Integer
+  extend Domain::SByC.new(Integer){|i| i<0}
+end

data/spec/fixtures/point.rb

@@ -0,0 +1,3 @@
+class Point
+  extend Domain::Scalar.new(:x, :y)
+end

data/spec/fixtures/tuple.rb

@@ -0,0 +1,3 @@
+class Tuple
+  extend Domain::Reuse.new(Hash){|h| h.keys.all?{|k| Symbol===k} }
+end

data/spec/shared/a_domain_class.rb

@@ -0,0 +1,11 @@
+shared_examples_for 'a domain class' do
+
+  it{ should be_a(Class)  }
+
+  it{ should respond_to(:predicate) }
+  it{ should respond_to(:sub_domains) }
+  it{ should respond_to(:super_domain) }
+
+  it{ should respond_to(:third_party_extension) }
+
+end

data/spec/shared/a_value_object.rb

@@ -0,0 +1,58 @@
+shared_examples_for "a value object" do
+
+  describe "==" do
+    subject{ object == other }
+
+    context 'with itself' do
+      let(:other){ object }
+
+      it{ should be_true }
+    end
+
+    context 'with an equivalent' do
+      let(:other){ object.dup }
+
+      it{ should be_true }
+    end
+
+    context 'with a different' do
+      let(:other){ another_object }
+
+      it{ should be_false }
+    end
+  end
+
+  describe "eql?" do
+    subject{ object.eql?(other) }
+
+    context 'with itself' do
+      let(:other){ object }
+
+      it{ should be_true }
+    end
+
+    context 'with an equivalent dup' do
+      let(:other){ object.dup }
+
+      it{ should be_true }
+    end
+
+    context 'with a different' do
+      let(:other){ another_object }
+
+      it{ should be_false }
+    end
+  end
+
+  describe "hash" do
+
+    it 'stays the same when dupped' do
+      object.hash.should eq(object.dup.hash)
+    end
+
+    it 'is not equal to the other one' do
+      object.hash.should_not eq(another_object.hash)
+    end
+  end
+
+end

data/spec/spec_helper.rb

@@ -1,6 +1,23 @@
 $LOAD_PATH.unshift File.expand_path('../../lib', __FILE__)
 require 'domain'
 
+require_relative 'shared/a_domain_class'
+require_relative 'shared/a_value_object'
+
+require_relative 'fixtures/neg_int'
+require_relative 'fixtures/boolean'
+require_relative 'fixtures/point'
+require_relative 'fixtures/list'
+require_relative 'fixtures/tuple'
+
+module Domain
+
+  def third_party_extension
+    true
+  end
+
+end
+
 module SpecHelpers
 end
 

data/spec/support/equalizer/test_new.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+module Domain
+  describe Equalizer, "new" do
+
+    let(:clazz){
+      eq = equalizer
+      Class.new{
+        def initialize(x, y)
+          @x, @y = x, y
+        end
+        attr_reader :x, :y
+        include eq
+      }
+    }
+
+    subject{ clazz.new(1, 2).equality_components }
+
+    context 'with a block' do
+      let(:equalizer){ Equalizer.new{ [x] } }
+
+      it{ should eq([1]) }
+    end
+
+    context 'with a single name' do
+      let(:equalizer){ Equalizer.new(:x) }
+
+      it{ should eq([1]) }
+    end
+
+    context 'with a multiple names' do
+      let(:equalizer){ Equalizer.new([:x, :y]) }
+
+      it{ should eq([1, 2]) }
+    end
+
+  end
+end

data/spec/support/test_equalizer.rb

@@ -0,0 +1,95 @@
+require 'spec_helper'
+module Domain
+  describe Equalizer do
+
+    let(:domain){
+      Class.new{
+        def initialize(x, y)
+          @x, @y = x, y
+        end
+        attr_reader :x, :y
+        include Equalizer.new{ [x, y] }
+      }
+    }
+
+    let(:object){ domain.new(1, 2) }
+
+    describe "==" do
+      subject{ object == other }
+
+      context 'with itself' do
+        let(:other){ object }
+        it{ should be_true }
+      end
+
+      context 'with dupped' do
+        let(:other){ object.dup }
+        it{ should be_true }
+      end
+
+      context 'with equivalent' do
+        let(:other){ domain.new(1, 2) }
+        it{ should be_true }
+      end
+
+      context 'with equivalent of a subclass' do
+        let(:other){ Class.new(domain).new(1, 2) }
+        it{ should be_true }
+      end
+
+      context 'with non equivalent' do
+        let(:other){ domain.new(1, 3) }
+        it{ should be_false }
+      end
+
+      context 'with other class' do
+        let(:other){ self }
+        it{ should be_false }
+      end
+    end
+
+    describe "eql?" do
+      subject{ object.eql?(other) }
+
+      context 'with itself' do
+        let(:other){ object }
+        it{ should be_true }
+      end
+
+      context 'with dupped' do
+        let(:other){ object.dup }
+        it{ should be_true }
+      end
+
+      context 'with equivalent' do
+        let(:other){ domain.new(1, 2) }
+        it{ should be_true }
+      end
+
+      context 'with equivalent of a subclass' do
+        let(:other){ Class.new(domain).new(1, 2) }
+        it{ should be_false }
+      end
+
+      context 'with non equivalent' do
+        let(:other){ domain.new(1, 3) }
+        it{ should be_false }
+      end
+
+      context 'with other class' do
+        let(:other){ self }
+        it{ should be_false }
+      end
+    end
+
+    describe "hash" do
+      subject{ object.hash }
+
+      it 'should be consistent with equal' do
+        subject.should eq(domain.new(1,2).hash)
+      end
+    end
+
+  end
+end
+  

data/spec/test_fixtures.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+describe NegInt do
+  subject{ NegInt }
+  it_should_behave_like 'a domain class'
+end
+
+describe Boolean do
+  subject{ Boolean }
+  it_should_behave_like 'a domain class'
+end
+
+describe Point do
+  subject{ Point }
+  it_should_behave_like 'a domain class'
+end
+
+describe List do
+  subject{ List }
+  it_should_behave_like 'a domain class'
+end

metadata

@@ -1,8 +1,8 @@
 --- !ruby/object:Gem::Specification
 name: domain
 version: !ruby/object:Gem::Version
-  version: 0.0.1
-  prerelease: 
+  version: 1.0.0.rc1
+  prerelease: 6
 platform: ruby
 authors:
 - Bernard Lambeau
@@ -59,15 +59,59 @@ files:
 - CHANGELOG.md
 - Gemfile
 - Gemfile.lock
+- lib/domain/api.rb
+- lib/domain/factory/reuse.rb
+- lib/domain/factory/sbyc.rb
+- lib/domain/factory/scalar.rb
+- lib/domain/factory/union.rb
+- lib/domain/factory.rb
 - lib/domain/loader.rb
+- lib/domain/support/equalizer.rb
+- lib/domain/support/fake_domain.rb
+- lib/domain/support/impl_domain.rb
+- lib/domain/support.rb
 - lib/domain/version.rb
 - lib/domain.rb
 - LICENCE.md
 - Manifest.txt
 - Rakefile
 - README.md
+- spec/factory/reuse_domain/test_new.rb
+- spec/factory/reuse_domain/test_predicate.rb
+- spec/factory/reuse_domain/test_recoat.rb
+- spec/factory/reuse_domain/test_reuse.rb
+- spec/factory/reuse_domain/test_values.rb
+- spec/factory/sbyc_domain/test_new.rb
+- spec/factory/sbyc_domain/test_predicate.rb
+- spec/factory/sbyc_domain/test_sub_domains.rb
+- spec/factory/sbyc_domain/test_super_domain.rb
+- spec/factory/sbyc_domain/test_super_domain_of.rb
+- spec/factory/sbyc_domain/test_triple_equal.rb
+- spec/factory/scalar_domain/test_component_reader.rb
+- spec/factory/scalar_domain/test_hash.rb
+- spec/factory/scalar_domain/test_to_hash.rb
+- spec/factory/scalar_domain/test_values.rb
+- spec/factory/test_sbyc.rb
+- spec/factory/test_scalar.rb
+- spec/factory/test_union.rb
+- spec/factory/union_domain/test_new.rb
+- spec/factory/union_domain/test_predicate.rb
+- spec/factory/union_domain/test_sub_domains.rb
+- spec/factory/union_domain/test_super_domain.rb
+- spec/factory/union_domain/test_super_domain_of.rb
+- spec/factory/union_domain/test_triple_equal.rb
+- spec/fixtures/boolean.rb
+- spec/fixtures/list.rb
+- spec/fixtures/neg_int.rb
+- spec/fixtures/point.rb
+- spec/fixtures/tuple.rb
+- spec/shared/a_domain_class.rb
+- spec/shared/a_value_object.rb
 - spec/spec_helper.rb
+- spec/support/equalizer/test_new.rb
+- spec/support/test_equalizer.rb
 - spec/test_domain.rb
+- spec/test_fixtures.rb
 - tasks/gem.rake
 - tasks/spec_test.rake
 homepage: https://github.com/blambeau/domain
@@ -85,9 +129,9 @@ required_ruby_version: !ruby/object:Gem::Requirement
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
-  - - ! '>='
+  - - ! '>'
     - !ruby/object:Gem::Version
-      version: '0'
+      version: 1.3.1
 requirements: []
 rubyforge_project: 
 rubygems_version: 1.8.24
@@ -95,5 +139,39 @@ signing_key:
 specification_version: 3
 summary: Provide tools for implementing domains (aka data types)
 test_files:
+- spec/factory/reuse_domain/test_new.rb
+- spec/factory/reuse_domain/test_predicate.rb
+- spec/factory/reuse_domain/test_recoat.rb
+- spec/factory/reuse_domain/test_reuse.rb
+- spec/factory/reuse_domain/test_values.rb
+- spec/factory/sbyc_domain/test_new.rb
+- spec/factory/sbyc_domain/test_predicate.rb
+- spec/factory/sbyc_domain/test_sub_domains.rb
+- spec/factory/sbyc_domain/test_super_domain.rb
+- spec/factory/sbyc_domain/test_super_domain_of.rb
+- spec/factory/sbyc_domain/test_triple_equal.rb
+- spec/factory/scalar_domain/test_component_reader.rb
+- spec/factory/scalar_domain/test_hash.rb
+- spec/factory/scalar_domain/test_to_hash.rb
+- spec/factory/scalar_domain/test_values.rb
+- spec/factory/test_sbyc.rb
+- spec/factory/test_scalar.rb
+- spec/factory/test_union.rb
+- spec/factory/union_domain/test_new.rb
+- spec/factory/union_domain/test_predicate.rb
+- spec/factory/union_domain/test_sub_domains.rb
+- spec/factory/union_domain/test_super_domain.rb
+- spec/factory/union_domain/test_super_domain_of.rb
+- spec/factory/union_domain/test_triple_equal.rb
+- spec/fixtures/boolean.rb
+- spec/fixtures/list.rb
+- spec/fixtures/neg_int.rb
+- spec/fixtures/point.rb
+- spec/fixtures/tuple.rb
+- spec/shared/a_domain_class.rb
+- spec/shared/a_value_object.rb
 - spec/spec_helper.rb
+- spec/support/equalizer/test_new.rb
+- spec/support/test_equalizer.rb
 - spec/test_domain.rb
+- spec/test_fixtures.rb