synapse-core 0.4.0 → 0.5.1

data/test/configuration/definition_builder_test.rb

@@ -0,0 +1,126 @@
+require 'test_helper'
+
+module Synapse
+  module Configuration
+    class DefinitionBuilderTest < Test::Unit::TestCase
+
+      def setup
+        @container = Container.new
+      end
+
+      should 'build a definition with just an identifier' do
+        DefinitionBuilder.build @container, :some_id do
+          # we'll pass here
+        end
+        assert @container.registered? :some_id
+      end
+
+      should 'build a definition using an identifier set in the block' do
+        DefinitionBuilder.build @container do
+          identified_by :other_id
+        end
+        assert @container.registered? :other_id
+      end
+
+      should 'build a definition using tags set in the block' do
+        reference = Object.new
+
+        DefinitionBuilder.build @container, :derp_service do
+          tag :one, :two
+          use_instance reference
+        end
+
+        assert @container.registered? :derp_service
+        assert_equal [reference], @container.resolve_tagged(:one)
+        assert_equal [reference], @container.resolve_tagged(:two)
+        assert_equal [], @container.resolve_tagged(:three)
+      end
+
+      should 'build a prototype definition using a factory' do
+        DefinitionBuilder.build @container, :keygen do
+          as_prototype
+          use_factory do
+            SecureRandom.uuid
+          end
+        end
+
+        first = @container.resolve :keygen
+        second = @container.resolve :keygen
+
+        refute_equal first, second
+      end
+
+      should 'build a singleton definition using a factory' do
+        DefinitionBuilder.build @container, :static_keygen do
+          as_singleton
+          use_factory do
+            SecureRandom.uuid
+          end
+        end
+
+        first = @container.resolve :static_keygen
+        second = @container.resolve :static_keygen
+
+        assert_equal first, second
+      end
+
+      should 'delegate resolution to the service container' do
+        DefinitionBuilder.build @container, :some_dependency do
+          use_instance 123
+        end
+
+        DefinitionBuilder.build @container, :dependent do
+          use_factory do
+            resolve :some_dependency
+          end
+        end
+
+        value = @container.resolve :dependent
+        assert_equal 123, value
+
+        DefinitionBuilder.build @container, :self_dependent do
+          use_factory do
+            resolve Hash.new
+          end
+        end
+
+        value = @container.resolve :self_dependent
+        assert value.is_a? Hash
+      end
+
+      should 'delegate tag resolution to the service container' do
+        DefinitionBuilder.build @container, :some_tagged_dependency do
+          use_instance 123
+          tag :dependency
+        end
+
+        DefinitionBuilder.build @container, :dependent do
+          use_factory do
+            resolve_tagged :dependency
+          end
+        end
+
+        value = @container.resolve :dependent
+        assert_equal [123], value
+      end
+
+      should 'delegate building child services to another builder' do
+        DefinitionBuilder.build @container, :outside do
+          build_composite do
+            identified_by :inside
+          end
+        end
+
+        assert @container.registered? :outside
+        assert @container.registered? :inside
+      end
+
+      should 'raise an exception if no identifier is set when registering with the container' do
+        assert_raise ConfigurationError do
+          DefinitionBuilder.build @container
+        end
+      end
+
+    end
+  end
+end

data/test/configuration/definition_test.rb

@@ -0,0 +1,41 @@
+require 'test_helper'
+
+module Synapse
+  module Configuration
+    class DefinitionTest < Test::Unit::TestCase
+
+      should 'call the defrred factory every time if prototype' do
+        factory_invoked = 0
+        factory = proc do
+          factory_invoked += 1
+        end
+
+        definition = Definition.new Set.new, true, factory, nil
+        definition.resolve
+        definition.resolve
+        assert_equal 2, factory_invoked
+      end
+
+      should 'call the deferred factory only once if singleton' do
+        factory_invoked = 0
+        factory = proc do
+          factory_invoked += 1
+        end
+
+        definition = Definition.new Set.new, false, factory, nil
+        definition.resolve
+        definition.resolve
+        assert_equal 1, factory_invoked
+      end
+
+      should 'resolve to an instance if one is provided' do
+        instance = Object.new
+
+        # Singleton service definition w/ late instance
+        definition = Definition.new Set.new, false, nil, instance
+        assert_same instance, definition.resolve
+      end
+
+    end
+  end
+end

data/test/configuration/dependent_test.rb

@@ -0,0 +1,30 @@
+require 'test_helper'
+require 'configuration/fixtures/dependent'
+
+module Synapse
+  module Configuration
+    class DependentTest < Test::Unit::TestCase
+
+      should 'create accessors for injectable attributes' do
+        dependent = ExampleDependent.new
+
+        service_a = Object.new
+        service_b = Object.new
+
+        dependent.service_a = service_a
+        dependent.some_service = service_b
+
+        assert_same service_a, dependent.service_a
+        assert_same service_b, dependent.some_service
+      end
+
+      should 'track which services to inject in which attributes' do
+        dependencies = ExampleDependent.dependencies
+
+        assert_equal :service_a, dependencies[:service_a]
+        assert_equal :some_service, dependencies[:service_b]
+      end
+
+    end
+  end
+end

data/test/configuration/ext_test.rb

@@ -0,0 +1,19 @@
+require 'test_helper'
+
+module Synapse
+  module Configuration
+    class ExtensionTest < Test::Unit::TestCase
+      should 'delegate building to the service container' do
+        reference = Object.new
+
+        Synapse.build do
+          factory :test_service do
+            reference
+          end
+        end
+
+        assert_same reference, Synapse.container[:test_service]
+      end
+    end
+  end
+end

data/test/configuration/fixtures/dependent.rb

@@ -0,0 +1,10 @@
+module Synapse
+  module Configuration
+    class ExampleDependent
+      include Dependent
+
+      depends_on :service_a
+      depends_on :service_b, :attribute => :some_service
+    end
+  end
+end

data/test/domain/aggregate_root_test.rb

@@ -9,7 +9,7 @@ module Synapse
         @person = Person.new 123, 'Fry'
       end
 
-      def test_publish_events
+      should 'track published events' do
         assert_equal 0, @person.uncommitted_event_count
 
         @person.change_name 'Leela'
@@ -27,20 +27,20 @@ module Synapse
         assert_equal events, @person.uncommitted_events.to_a
       end
 
-      def test_mark_committed
+      should 'handle being marked committed' do
         @person.change_name 'Bender'
         @person.mark_committed
 
         assert_equal 0, @person.uncommitted_event_count
       end
 
-      def test_mark_deleted
+      should 'handle being marked for deletion' do
         @person.delete
 
         assert @person.deleted?
       end
 
-      def test_identifier_not_initialized
+      should 'raise an exception if identifier not initialized, but events are applied' do
         p = Person.new nil, nil
 
         assert_raise AggregateIdentifierNotInitializedError do
@@ -48,7 +48,7 @@ module Synapse
         end
       end
 
-      def test_empty_uncommitted_events
+      should 'return an empty domain event stream if no events have been published' do
         assert @person.uncommitted_events.end?
       end
 

data/test/domain/message_test.rb

@@ -2,6 +2,18 @@ require 'test_helper'
 
 module Synapse
   module Domain
+    class EventMessageTest < Test::Unit::TestCase
+      should 'wrap event objects into event messages' do
+        event = Object.new
+        event_message = EventMessage.build
+
+        assert_same event_message, EventMessage.as_message(event_message)
+
+        wrapped = EventMessage.as_message(event)
+        assert_same event, wrapped.payload
+      end
+    end
+
     class DomainEventMessageTest < Test::Unit::TestCase
       def setup
         @payload = OpenStruct.new
@@ -15,7 +27,7 @@ module Synapse
         end
       end
 
-      def test_initialize
+      should 'populate fields with sensible defaults' do
         # ensure empty fields were populated with default values
         assert @message.id
         assert @message.metadata
@@ -28,7 +40,7 @@ module Synapse
         assert_equal @sequence_number, @message.sequence_number
       end
 
-      def test_and_metadata
+      should 'create a complete copy of itself when merging metadata' do
         additional_metadata_a = { foo: 'bar' }
         additional_metadata_b = { baz: 'qux' }
 
@@ -46,7 +58,7 @@ module Synapse
         assert_equal additional_metadata_a.merge(additional_metadata_b), merged.metadata
       end
 
-      def test_with_metadata
+      should 'create a complete copy of itself when replacing metadata' do
         additional_metadata_a = { foo: 'bar' }
         additional_metadata_b = { baz: 'qux' }
 

data/test/domain/stream_test.rb

@@ -12,12 +12,12 @@ module Synapse
         @stream = SimpleDomainEventStream.new @events
       end
 
-      def test_peek
+      should 'support peeking without moving the pointer forward' do
         assert_same @events.at(0), @stream.peek
         assert_same @events.at(0), @stream.peek
       end
 
-      def test_end_of_stream
+      should 'raise an exception when the end of the stream is reached' do
         @stream.next_event
         @stream.next_event
 

data/test/event_bus/publisher_test.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+module Synapse
+  module EventBus
+    class EventPublisherTest < Test::Unit::TestCase
+      should 'wrap event objects in messages before they are published' do
+        event_bus = Object.new
+
+        mock(event_bus).publish(is_a(Domain::EventMessage)) do |message|
+          assert message.payload.is_a? TestEvent
+        end
+
+        publisher = ExampleEventPublisher.new
+        publisher.event_bus = event_bus
+        publisher.do_something
+      end
+    end
+
+    class ExampleEventPublisher
+      include EventPublisher
+
+      def do_something
+        publish_event TestEvent.new
+      end
+    end
+
+    class TestEvent; end
+  end
+end

data/test/event_bus/wiring_test.rb

@@ -4,7 +4,7 @@ module Synapse
   module EventBus
 
     class WiringEventListenerTest < Test::Unit::TestCase
-      def test_notify
+      should 'use the correct handler when notified of an events' do
         listener = ExampleWiringEventListener.new
 
         event = Domain::EventMessage.build do |builder|

data/test/event_sourcing/aggregate_factory_test.rb

@@ -4,23 +4,29 @@ module Synapse
   module EventSourcing
 
     class GenericAggregateFactoryTest < Test::Unit::TestCase
-      def test_create_aggregate
-        factory = GenericAggregateFactory.new StubAggregate
+      def setup
+        @factory = GenericAggregateFactory.new StubAggregate
+      end
 
+      should 'create an aggregate from a normal event' do
         event = Domain::DomainEventMessage.build do |m|
           m.payload = StubCreatedEvent.new 123
         end
 
+        aggregate = @factory.create_aggregate 123, event
+
+        assert aggregate.is_a? StubAggregate
+      end
+
+      should 'use an aggregate snapshot if available' do
         snapshot = StubAggregate.new 123
         snapshot_event = Domain::DomainEventMessage.build do |m|
           m.payload = snapshot
         end
 
-        aggregate_a = factory.create_aggregate(123, snapshot_event)
-        aggregate_b = factory.create_aggregate(123, event)
+        aggregate = @factory.create_aggregate 123, snapshot_event
 
-        assert aggregate_a.equal? snapshot
-        assert aggregate_b.is_a? StubAggregate
+        assert aggregate.equal? snapshot
       end
     end
 

data/test/event_sourcing/aggregate_root_test.rb

@@ -5,7 +5,7 @@ module Synapse
   module EventSourcing
 
     class AggregateRootTest < Test::Unit::TestCase
-      def test_apply
+      should 'track published events' do
         stub = StubAggregate.new 123
         stub.change_something
         stub.change_something
@@ -20,7 +20,7 @@ module Synapse
         assert_equal 2, stub.version
       end
 
-      def test_new_from_stream
+      should 'support initializing state from an event stream' do
         events = Array.new
         events.push create_event(123, 0, StubCreatedEvent.new(123))
         events.push create_event(123, 1, StubChangedEvent.new)
@@ -34,7 +34,7 @@ module Synapse
         assert_equal 2, aggregate.version
       end
 
-      def test_initialize_fails_after_initialization
+      should 'raise an exception if initialization is attempted when the aggregate has state' do
         aggregate = StubAggregate.new 123
 
         assert_raise RuntimeError do
@@ -42,7 +42,7 @@ module Synapse
         end
       end
 
-      def test_child_entities
+      should 'notify child entities of aggregate events' do
         stub_entity_a = StubEntity.new
         stub_entity_b = StubEntity.new
 

data/test/event_sourcing/entity_test.rb

@@ -5,27 +5,28 @@ module Synapse
   module EventSourcing
 
     class EntityTest < Test::Unit::TestCase
-      def test_aggregate_root
+      should 'raise an exception if an event is published and aggregate root is not set' do
         entity = StubEntity.new
-        aggregate_a = StubAggregate.new 123
-        aggregate_b = StubAggregate.new 123
 
         assert_raise RuntimeError do
           entity.change_something
         end
 
-        entity.aggregate_root = aggregate_a
+        aggregate = StubAggregate.new 123
 
-        assert_raise RuntimeError do
-          entity.aggregate_root = aggregate_b
-        end
+        entity.aggregate_root = aggregate
+        entity.change_something
       end
 
-      def test_apply
+      should 'raise an exception if registration is attempted with more than one aggregate' do
         entity = StubEntity.new
+        aggregate_a = StubAggregate.new 123
+        aggregate_b = StubAggregate.new 123
+
+        entity.aggregate_root = aggregate_a
 
         assert_raise RuntimeError do
-          entity.change_something
+          entity.aggregate_root = aggregate_b
         end
       end
     end

data/test/event_sourcing/repository_test.rb

@@ -17,7 +17,7 @@ module Synapse
         @repository.unit_provider = @unit_provider
       end
 
-      def test_add_compatibility
+      should 'raise an exception if an incompatible aggregate is added' do
         aggregate = Domain::Person.new 123, 'Polandball'
 
         assert_raise ArgumentError do
@@ -25,7 +25,7 @@ module Synapse
         end
       end
 
-      def test_load
+      should 'load an aggregate from an event stream' do
         event = create_event(123, 0, StubCreatedEvent.new(123))
 
         mock(@event_store).read_events(@factory.type_identifier, 123) do
@@ -35,7 +35,7 @@ module Synapse
         aggregate = @repository.load 123
       end
 
-      def test_load_incorrect_version
+      should 'raise an exception if an unexpected aggregate version is loaded' do
         event = create_event(123, 1, StubCreatedEvent.new(123))
 
         mock(@event_store).read_events(@factory.type_identifier, 123) do
@@ -47,7 +47,7 @@ module Synapse
         end
       end
 
-      def test_load_not_found
+      should 'raise an exception if an event stream could not be found for the aggregate id' do
         mock(@event_store).read_events(@factory.type_identifier, 123) do
           raise EventStore::StreamNotFoundError.new @factory.type_identifier, 123
         end
@@ -57,7 +57,7 @@ module Synapse
         end
       end
 
-      def test_load_deleted
+      should 'raise an exception if the loaded aggregate has been marked for deletion' do
         event_a = create_event(123, 0, StubCreatedEvent.new(123))
         event_b = create_event(123, 1, StubDeletedEvent.new)
 
@@ -70,7 +70,7 @@ module Synapse
         end
       end
 
-      def test_conflict_resolution
+      should 'defer version checking to a conflict resolver if one is set' do
         @repository.conflict_resolver = ConflictResolver.new
 
         event_a = create_event(123, 0, StubCreatedEvent.new(123))

data/test/event_sourcing/storage_listener_test.rb

@@ -4,7 +4,7 @@ module Synapse
   module EventSourcing
 
     class EventSourcedStorageListenerTest < Test::Unit::TestCase
-      def test_store
+      should 'append uncommitted aggregate events to the event store' do
         event_store = Object.new
         lock_manager = Repository::NullLockManager.new
         decorators = Array.new
@@ -33,9 +33,9 @@ module Synapse
         listener.store aggregate
       end
 
-      def test_store_locking
+      should 'validate lock if the aggregate is not new' do
         event_store = Object.new
-        lock_manager = Repository::NullLockManager.new
+        lock_manager = Object.new
         decorators = Array.new
         type_identifier = StubAggregate.to_s.demodulize
         aggregate = StubAggregate.new 123
@@ -44,13 +44,17 @@ module Synapse
           123
         end
 
+        mock(lock_manager).validate_lock(aggregate) do
+          true
+        end
+
         mock(event_store).append_events(type_identifier, anything)
 
         listener = EventSourcedStorageListener.new event_store, lock_manager, decorators, type_identifier
         listener.store aggregate
       end
 
-      def test_store_lock_failed
+      should 'raise an exception if the aggregate is not new and the lock is invalid' do
         event_store = Object.new
         lock_manager = Object.new
         decorators = Array.new

data/test/event_store/in_memory_test.rb

@@ -8,13 +8,13 @@ module Synapse
         @event_store = InMemoryEventStore.new
       end
 
-      def test_empty_stream
+      should 'raise an exception if a stream could not be found' do
         assert_raise StreamNotFoundError do
           @event_store.read_events 'Person', 123
         end
       end
 
-      def test_append_and_read
+      should 'support appending and reading an event stream' do
         event_a = Domain::DomainEventMessage.build { |e| e.aggregate_id = 123 }
         event_b = Domain::DomainEventMessage.build { |e| e.aggregate_id = 123 }
         event_c = Domain::DomainEventMessage.build { |e| e.aggregate_id = 123 }
@@ -30,7 +30,7 @@ module Synapse
         assert_equal [event_a, event_b, event_c], stream.to_a
       end
 
-      def test_clear
+      should 'be able to be cleared of all streams' do
         event = Domain::DomainEventMessage.build { |e| e.aggregate_id = 123 }
         stream = Domain::SimpleDomainEventStream.new event
 

data/test/process_manager/container_resource_injector_test.rb

@@ -0,0 +1,19 @@
+require 'test_helper'
+
+module Synapse
+  module ProcessManager
+
+    class ContainerResourceInjectorTest < Test::Unit::TestCase
+      should 'use a service container to inject resources' do
+        container = Object.new
+        resource_injector = ContainerResourceInjector.new container
+        process = Process.new
+
+        mock(container).inject_into(process)
+
+        resource_injector.inject_resources process
+      end
+    end
+
+  end
+end

data/test/process_manager/correlation_set_test.rb

@@ -4,7 +4,7 @@ module Synapse
   module ProcessManager
     class CorrelationSetTest < Test::Unit::TestCase
 
-      def test_add
+      should 'track correlation additions' do
         correlation = Correlation.new :order_id, '512d5467-d319-481e-ab5e-4d6f7445bcff'
 
         set = CorrelationSet.new
@@ -25,7 +25,7 @@ module Synapse
         assert_equal 0, set.deletions.count
       end
 
-      def test_delete
+      should 'track correlation deletions' do
         correlation = Correlation.new :order_id, '512d5467-d319-481e-ab5e-4d6f7445bcff'
 
         set = CorrelationSet.new

data/test/process_manager/correlation_test.rb

@@ -3,14 +3,14 @@ require 'test_helper'
 module Synapse
   module ProcessManager
     class CorrelationTest < Test::Unit::TestCase
-      def test_intiialize
+      should 'coerce key and value to correct types' do
         correlation = Correlation.new :foo, 'bar'
 
         assert_equal :foo, correlation.key
         assert_equal 'bar', correlation.value
       end
 
-      def test_object_equality
+      should 'be able to determine equality with similar correlations' do
         correlation_a = Correlation.new :foo, 'bar'
         correlation_b = Correlation.new :foo, 'bar'
         correlation_c = Correlation.new :foo, 'baz'