activefacts-api 1.8.1 → 1.8.3

data/spec/object_type/entity_type/entity_type_spec.rb

@@ -1,102 +0,0 @@
-#
-# ActiveFacts tests: Entity classes in the Runtime API
-# Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
-#
-
-describe "Entity Type class definitions" do
-  before :each do
-    Object.send :remove_const, :Mod if Object.const_defined?("Mod")
-    module Mod
-      class Name < String
-        value_type
-      end
-      class LegalEntity
-      end
-      class Person < LegalEntity
-        identified_by :name
-        one_to_one :name, :class => Name
-      end
-    end
-  end
-
-  it "should respond_to verbalise" do
-    Mod::Person.respond_to?(:verbalise).should be true
-  end
-
-  it "should not pollute the superclass" do
-    Mod::LegalEntity.respond_to?(:verbalise).should_not be true
-    Class.respond_to?(:verbalise).should_not be true
-  end
-
-  it "should return a string from verbalise" do
-    v = Mod::Person.verbalise
-    v.should_not be_nil
-    v.should_not =~ /REVISIT/
-  end
-
-  it "should respond_to vocabulary" do
-    Mod::Person.respond_to?(:vocabulary).should be true
-  end
-
-  it "should return the parent module as the vocabulary" do
-    vocabulary = Mod::Person.vocabulary
-    vocabulary.should == Mod
-  end
-
-  it "should return a vocabulary that knows about this object_type" do
-    vocabulary = Mod::Person.vocabulary
-    vocabulary.respond_to?(:object_type).should be true
-    vocabulary.object_type.has_key?("Person").should be_truthy
-  end
-
-  it "should respond to all_role()" do
-    Mod::Person.respond_to?(:all_role).should be true
-  end
-
-  it "should contain only the added role definition" do
-    Mod::Person.all_role.size.should == 1
-  end
-
-  it "should return the role definition" do
-    # Check the role definition may be accessed by passing an index:
-    Mod::Person.all_role(0).should be_nil
-
-    role = Mod::Person.all_role(:name)
-    role.should_not be_nil
-
-    role = Mod::Person.all_role("name")
-    role.should_not be_nil
-
-    # Check the role definition may be accessed by indexing the returned hash:
-    role = Mod::Person.all_role[:name]
-    role.should_not be_nil
-
-    # Check the role definition array by .include?
-    Mod::Person.all_role.include?(:name).should be true
-  end
-
-  it "should fail on a ValueType" do
-    lambda{
-      class SomeClass < String
-        identified_by :foo
-      end
-    }.should raise_error(ActiveFacts::API::InvalidEntityException)
-  end
-
-  it "should return the identifying roles" do
-    Mod::Person.identifying_role_names.should == [:name]
-  end
-
-  it "should prevent a role name from matching a object_type that exists unless that object_type is the counterpart" do
-    proc do
-      module Mod
-	class LegalEntity
-	end
-	class Bad
-	  identified_by :name
-	  has_one :name, :class => LegalEntity
-	end
-      end
-    end.should raise_error(ActiveFacts::API::CrossVocabularyRoleException)
-  end
-end

data/spec/object_type/entity_type/multipart_identification_spec.rb

@@ -1,82 +0,0 @@
-require 'activefacts/api'
-
-module TestMultiPartIdentifierModule
-  class ParentId < AutoCounter
-    value_type
-  end
-
-  class Parent
-    identified_by :parent_id
-    one_to_one :parent_id
-  end
-
-  class Position < Int
-    value_type
-  end
-
-  class Child
-    identified_by :parent, :position
-    has_one :parent
-    has_one :position
-  end
-end
-
-describe "Multi-part identifiers" do
-  before :each do
-    @c = ActiveFacts::API::Constellation.new(TestMultiPartIdentifierModule)
-    @p = @c.Parent(:new)
-    @c0 = @c.Child(@p, 0)
-    @c2 = @c.Child(@p, 2)
-    @c1 = @c.Child(@p, 1)
-  end
-
-  it "should allow children to be found in the instance index" do
-    pv = @p.identifying_role_values
-    @c.Child[[pv, 0]].should == @c0
-    @c.Child[[pv, 1]].should == @c1
-    @c.Child[[pv, 2]].should == @c2
-  end
-
-  it "should sort child keys in the instance index" do
-    pending "Key sorting is not supported on this index" unless @c.Child.sort
-    @c.Child.keys.should == [[[@p.parent_id], 0], [[@p.parent_id], 1], [[@p.parent_id], 2]]
-    @c.Child.map{|k, c| c.position}.should == [@c0.position, @c1.position, @c2.position]
-  end
-
-  it "should index children in the parent's RoleValues" do
-    @p.all_child.size.should == 3
-  end
-
-  it "should allow children to be found in the instance index by the whole key" do
-    @c.Child[[[@p.parent_id], 0]].should == @c0
-    @c.Child[[[@p.parent_id], 1]].should == @c1
-    @c.Child[[[@p.parent_id], 2]].should == @c2
-  end
-
-  it "should sort children in the parent's RoleValues" do
-    pending "Key sorting is not supported in this version" if @p.all_child.instance_variable_get("@a").kind_of? Array
-    @p.all_child.to_a[0].should == @c0
-    @p.all_child.to_a[1].should == @c1
-    @p.all_child.to_a[2].should == @c2
-  end
-
-  it "should allow children to be found in an identifying partner's RoleValues by the residual key" do
-    @p.all_child[0].should == @c0
-    @p.all_child[1].should == @c1
-    @p.all_child[2].should == @c2
-  end
-
-  it "should use the correct residual key for each child in an identifying partner's RoleValues" do
-    if @p.all_child.instance_variable_get("@a").kind_of? Array
-      pending "Key sorting is not supported in this version"
-    end
-
-    @p.all_child.keys[0].should == [0]
-    @p.all_child.keys[1].should == [1]
-    @p.all_child.keys[2].should == [2]
-
-    # @p.all_child.keys[0].should == [[@p.parent_id], 0]
-    # @p.all_child.keys[1].should == [[@p.parent_id], 1]
-    # @p.all_child.keys[2].should == [[@p.parent_id], 2]
-  end
-end

data/spec/object_type/value_type/autocounter_spec.rb

@@ -1,87 +0,0 @@
-#
-# ActiveFacts tests: Value instances in the Runtime API
-# Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
-#
-
-describe "AutoCounter Value Type instances" do
-  before :each do
-    Object.send :remove_const, :Mod if Object.const_defined?("Mod")
-    module Mod
-      class ThingId < AutoCounter
-        value_type
-      end
-      class Thing
-        identified_by :thing_id
-        one_to_one :thing_id
-      end
-      class Ordinal < Int
-        value_type
-      end
-      class ThingFacet
-        identified_by :thing, :ordinal
-        has_one :thing
-        has_one :ordinal
-      end
-    end
-    @constellation = ActiveFacts::API::Constellation.new(Mod)
-    @thing = @constellation.Thing(:new)
-    @thing_id = @constellation.ThingId(:new)
-  end
-
-  it "should respond to verbalise" do
-    @thing_id.respond_to?(:verbalise).should be true
-  end
-
-  it "should verbalise correctly" do
-    @thing_id.verbalise.should =~ /ThingId 'new_[0-9]+'/
-  end
-
-  it "should respond to constellation" do
-    @thing_id.respond_to?(:constellation).should be true
-  end
-
-  it "should respond to its roles" do
-    @thing_id.respond_to?(:thing).should be true
-  end
-
-  it "should allow prevent invalid role assignment" do
-    lambda {
-        @thing.thing_id = "foo"
-      }.should raise_error(ArgumentError)
-  end
-
-  it "should not allow its value to be re-assigned" do
-    lambda {
-        @thing.thing_id.assign(3)
-      }.should_not raise_error
-    lambda {
-        @thing.thing_id.assign(4)
-        #@thing.thing_id.assign(@thing_id)
-      }.should raise_error(ArgumentError)
-  end
-
-  it "should allow an existing counter to be re-used" do
-    @new_thing = @constellation.Thing(@thing_id)
-    @new_thing.thing_id.to_s.should == @thing_id.to_s
-  end
-
-  it "should return the ValueType in response to .class()" do
-    @thing_id.class.vocabulary.should == Mod
-  end
-
-  it "should not allow a counter to be cloned" do
-    lambda {
-      @thing_id.clone
-    }.should raise_error(RuntimeError)
-  end
-
-  it "should allow an existing counter-identified object to be re-used" do
-    thing = @constellation.Thing(:new)
-    facets = []
-    facets << @constellation.ThingFacet(thing, 0)
-    facets << @constellation.ThingFacet(thing, 1)
-    facets[0].thing.should be_eql(facets[1].thing)
-    facets[0].thing.thing_id.should be_eql(facets[1].thing.thing_id)
-  end
-
-end

data/spec/object_type/value_type/date_time_spec.rb

@@ -1,38 +0,0 @@
-#
-# ActiveFacts tests: Value instances in the Runtime API
-# Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
-#
-require 'activefacts/api'
-
-describe Date do
-  it "should construct with no arguments" do
-    proc {
-      @d = Date.new()
-    }.should_not raise_error
-    @d.year.should == -4712
-  end
-
-  it "should construct with a nil argument" do
-    proc {
-      @d = Date.new_instance(nil, nil)
-    }.should_not raise_error
-    @d.year.should == -4712
-  end
-
-  it "should construct with a full arguments" do
-    proc {
-      @d = Date.civil(2012, 10, 31)
-    }.should_not raise_error
-    @d.to_s.should == "2012-10-31"
-  end
-
-=begin
-  it "should be encodable in JSON" do
-    proc {
-      @d = Date.new(2012, 10, 31)
-      @d.to_json.should == "REVISIT"
-    }.should_not raise_error
-  end
-=end
-
-end

data/spec/object_type/value_type/guid_spec.rb

@@ -1,71 +0,0 @@
-#
-# ActiveFacts tests: Value instances in the Runtime API
-# Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
-#
-
-describe "Guid Value Type instances" do
-  before :each do
-    Object.send :remove_const, :Mod if Object.const_defined?("Mod")
-    module Mod
-      class ThingId < Guid
-        value_type
-      end
-      class Thing
-        identified_by :thing_id
-        one_to_one :thing_id
-      end
-      class Ordinal < Int
-        value_type
-      end
-      class ThingFacet
-        identified_by :thing, :ordinal
-        has_one :thing
-        has_one :ordinal
-      end
-    end
-    @constellation = ActiveFacts::API::Constellation.new(Mod)
-    @thing = @constellation.Thing(:new)
-    @thing_id = @constellation.ThingId(:new)
-  end
-
-  it "should respond to verbalise" do
-    @thing_id.respond_to?(:verbalise).should be true
-  end
-
-  it "should verbalise correctly" do
-    @thing_id.verbalise.should =~ /ThingId '[-0-9a-f]{36}'/i
-  end
-
-  it "should respond to constellation" do
-    @thing_id.respond_to?(:constellation).should be true
-  end
-
-  it "should respond to its roles" do
-    @thing_id.respond_to?(:thing).should be true
-  end
-
-  it "should allow prevent invalid role assignment" do
-    lambda {
-        @thing.thing_id = "foo"
-      }.should raise_error(ArgumentError)
-  end
-
-  it "should allow an existing guid to be re-used" do
-    @new_thing = @constellation.Thing(@thing_id)
-    @new_thing.thing_id.should == @thing_id
-  end
-
-  it "should return the ValueType in response to .class()" do
-    @thing_id.class.vocabulary.should == Mod
-  end
-
-  it "should allow an existing guid-identified object to be re-used" do
-    thing = @constellation.Thing(:new)
-    facets = []
-    facets << @constellation.ThingFacet(thing, 0)
-    facets << @constellation.ThingFacet(thing, 1)
-    facets[0].thing.should be_eql(facets[1].thing)
-    facets[0].thing.thing_id.should be_eql(facets[1].thing.thing_id)
-  end
-
-end

data/spec/object_type/value_type/numeric_spec.rb

@@ -1,63 +0,0 @@
-#
-# ActiveFacts tests: Value instances in the Runtime API
-# Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
-#
-
-describe Int do
-  before :each do
-    @i = Int.new(1)
-  end
-
-  it "should be encodable in JSON" do
-    @i.to_json.should == "1"
-  end
-
-  it "should behave like an Integer" do
-    1.should == @i
-    @i.should == 1
-    @i.to_s.should == "1"
-    @i.should eql 1
-    @i.should be_an Integer
-  end
-
-  it "should also know that it's a delegator" do
-    @i.is_a?(SimpleDelegator).should be true
-    @i.is_a?(Int).should be true
-  end
-end
-
-describe Real do
-  before :each do
-    @r = Real.new(1.0)
-  end
-
-  it "should be encodable in JSON" do
-    @r.to_json.should == "1.0"
-  end
-
-  it "should behave like a Float" do
-    1.0.should == @r
-    @r.should == 1.0
-    @r.to_s.should == "1.0"
-    @r.eql?(1.0).should be true
-    @r.is_a?(Float).should be true
-  end
-
-  it "should also know that it's a delegator" do
-    @r.is_a?(SimpleDelegator).should be true
-    @r.is_a?(Real).should be true
-  end
-end
-
-describe Decimal do
-  it "should still detect Decimal as the main class" do
-    bd = Decimal.new("98765432109876543.210")
-    bd.to_s("F").should == "98765432109876543.21"
-    bd.to_s("E").should == "0.9876543210987654321E17"
-    bd.to_s("3E").should =~ /0.987 654 321 098 765 432 1.*E17/
-    bd.to_s(3).should =~ /0.987 654 321 098 765 432 1.*E17/
-    bd.to_s("3F").should == "987 654 321 098 765 43.21"
-    bd.should be_a Decimal
-    bd.should be_a BigDecimal
-  end
-end