synapse-core 0.5.1 → 0.5.2

data/test/configuration/component/upcasting/upcaster_chain_test.rb

@@ -0,0 +1,29 @@
+module Synapse
+  module Configuration
+    class UpcasterChainDefinitionBuilderTest < Test::Unit::TestCase
+
+      def setup
+        @container = Container.new
+        @builder = ContainerBuilder.new @container
+      end
+
+      should 'build with sensible defaults' do
+        @builder.converter_factory
+        @builder.factory :some_upcaster, :tag => :upcaster do
+          Object.new
+        end
+
+        @builder.upcaster_chain
+
+        converter_factory = @container.resolve :converter_factory
+        some_upcaster = @container.resolve :some_upcaster
+
+        upcaster_chain = @container.resolve :upcaster_chain
+
+        assert_same converter_factory, upcaster_chain.converter_factory
+        assert_includes upcaster_chain.upcasters, some_upcaster
+      end
+
+    end
+  end
+end

data/test/configuration/container_builder_test.rb

@@ -17,7 +17,7 @@ module Synapse
         ContainerBuilder.initializers = @initializers
       end
 
-      def test_initializers
+      should 'call initializers upon creation' do
         ContainerBuilder.initializer do
           definition :test_definition do
             tag :derp
@@ -29,12 +29,10 @@ module Synapse
         assert @container.registered? :test_definition
       end
 
-      def test_factory
+      should 'create a simple definition from a factory' do
         builder = ContainerBuilder.new @container
-        builder.build_with do
-          factory :derp_service, :tag => [:first_tag, :nth_tag] do
-            123
-          end
+        builder.factory :derp_service, :tag => [:first_tag, :nth_tag] do
+          123
         end
 
         assert @container.registered? :derp_service

data/test/event_bus/{wiring_test.rb → mapping_test.rb}

@@ -3,9 +3,9 @@ require 'test_helper'
 module Synapse
   module EventBus
 
-    class WiringEventListenerTest < Test::Unit::TestCase
+    class MappingEventListenerTest < Test::Unit::TestCase
       should 'use the correct handler when notified of an events' do
-        listener = ExampleWiringEventListener.new
+        listener = ExampleMappingEventListener.new
 
         event = Domain::EventMessage.build do |builder|
           builder.payload = TestEvent.new
@@ -28,16 +28,16 @@ module Synapse
     class TestEvent; end
     class TestSubEvent < TestEvent; end
 
-    class ExampleWiringEventListener
-      include WiringEventListener
+    class ExampleMappingEventListener
+      include MappingEventListener
 
       attr_accessor :handled, :sub_handled
 
-      wire TestEvent do |event|
+      map_event TestEvent do |event|
         @handled = true
       end
 
-      wire TestSubEvent do |event|
+      map_event TestSubEvent do |event|
         @sub_handled = true
       end
     end

data/test/event_sourcing/aggregate_factory_test.rb

@@ -20,13 +20,17 @@ module Synapse
 
       should 'use an aggregate snapshot if available' do
         snapshot = StubAggregate.new 123
+        snapshot.change_something
+        snapshot.mark_committed
+
         snapshot_event = Domain::DomainEventMessage.build do |m|
           m.payload = snapshot
         end
 
         aggregate = @factory.create_aggregate 123, snapshot_event
 
-        assert aggregate.equal? snapshot
+        assert_same snapshot, aggregate
+        assert_equal snapshot.version, aggregate.initial_version
       end
     end
 

data/test/event_sourcing/aggregate_root_test.rb

@@ -32,6 +32,7 @@ module Synapse
 
         assert_equal 123, aggregate.id
         assert_equal 2, aggregate.version
+        assert_equal 0, aggregate.initial_version
       end
 
       should 'raise an exception if initialization is attempted when the aggregate has state' do

data/test/event_sourcing/fixtures.rb

@@ -9,6 +9,18 @@ module Synapse
       end
     end
 
+    class StubCreatedEvent
+      attr_reader :id
+
+      def initialize(id)
+        @id = id
+      end
+    end
+
+    class StubDeletedEvent; end
+
+    class StubChangedEvent; end
+
     class StubAggregate
       include AggregateRoot
 
@@ -35,16 +47,16 @@ module Synapse
         @stub_entities = Array.new
       end
 
-      def handle_event(event)
-        payload = event.payload
-        type = event.payload_type
+      map_event StubCreatedEvent do |event|
+        @id = event.id
+      end
 
-        if type.eql? StubCreatedEvent
-          @id = payload.id
-        elsif type.eql? StubDeletedEvent
-          mark_deleted
-        end
+      map_event StubDeletedEvent do |event|
+        mark_deleted
+      end
 
+      def handle_event(event)
+        super
         @event_count = @event_count.next
       end
     end
@@ -69,17 +81,5 @@ module Synapse
       end
     end
 
-    class StubCreatedEvent
-      attr_reader :id
-
-      def initialize(id)
-        @id = id
-      end
-    end
-
-    class StubDeletedEvent; end
-
-    class StubChangedEvent; end
-
   end
-end
+end

data/test/event_sourcing/repository_test.rb

@@ -88,6 +88,16 @@ module Synapse
         @unit.commit
       end
 
+      should 'register a snapshot listener if a policy and taker are set' do
+        @repository.snapshot_policy = IntervalSnapshotPolicy.new 30
+        @repository.snapshot_taker = AggregateSnapshotTaker.new @event_store
+
+        mock(@unit).register_listener(anything)
+        mock(@unit).register_listener(is_a(SnapshotUnitOfWorkListener))
+
+        @repository.add StubAggregate.new 123
+      end
+
     private
 
       def create_event(aggregate_id, seq, payload)

data/test/event_sourcing/snapshot/aggregate_taker_test.rb

@@ -5,7 +5,7 @@ module Synapse
   module EventSourcing
 
     class AggregateSnapshotTakerTest < Test::Unit::TestCase
-      def test_schedule_snapshot
+      should 'store a snapshot by serializing the aggregate itself' do
         event_store = Object.new
         aggregate_factory = GenericAggregateFactory.new StubAggregate
 

data/test/event_sourcing/snapshot/interval_policy_test.rb

@@ -0,0 +1,24 @@
+require 'test_helper'
+
+module Synapse
+  module EventSourcing
+    class IntervalSnapshotPolicyTest < Test::Unit::TestCase
+
+      should 'suggest a snapshot if the threshold is surpassed' do
+        aggregate_a = Object.new
+        aggregate_b = Object.new
+
+        stub(aggregate_a).initial_version { nil }
+        stub(aggregate_a).version { 35 }
+        stub(aggregate_b).initial_version { 0 }
+        stub(aggregate_b).version { 20 }
+
+        policy = IntervalSnapshotPolicy.new 30
+
+        assert policy.should_snapshot? aggregate_a
+        refute policy.should_snapshot? aggregate_b
+      end
+
+    end
+  end
+end

data/test/process_manager/{wiring → mapping}/fixtures.rb

@@ -4,7 +4,7 @@ module Synapse
   module ProcessManager
 
     class OrderEvent
-      attr_accessor :order_id
+      attr_reader :order_id
       def initialize(order_id)
         @order_id = order_id
       end
@@ -16,27 +16,26 @@ module Synapse
     class OrderCanceled < OrderEvent; end
     class OrderDerped; end
 
-    class OrderProcess < WiringProcess
+    class OrderProcess < MappingProcess
       attr_reader :handled
 
-      wire OrderCreated, correlate: :order_id, start: true do
+      map_event OrderCreated, correlate: :order_id, start: true do
         @handled = (@handled or 0).next
       end
 
-      wire OrderForceCreated, correlate: :order_id, start: true, force_new: true do
+      map_event OrderForceCreated, correlate: :order_id, start: true, force_new: true do
         @handled = (@handled or 0).next
       end
 
-      wire OrderUpdated, correlate: :order_id do
+      map_event OrderUpdated, correlate: :order_id do
         @handled = (@handled or 0).next
       end
 
-      wire OrderCanceled, correlate: :order_id, finish: true do
+      map_event OrderCanceled, correlate: :order_id, finish: true do
         @handled = (@handled or 0).next
       end
 
-      wire OrderDerped, correlate: :derpy_key do; end
+      map_event OrderDerped, correlate: :derpy_key do; end
     end
-
   end
 end

data/test/process_manager/{wiring → mapping}/process_manager_test.rb

@@ -1,25 +1,25 @@
 require 'test_helper'
-require 'process_manager/wiring/fixtures'
+require 'process_manager/mapping/fixtures'
 
 module Synapse
   module ProcessManager
 
-    class WiringProcessManagerTest < Test::Unit::TestCase
+    class MappingProcessManagerTest < Test::Unit::TestCase
       def setup
         @repository = InMemoryProcessRepository.new
         @factory = GenericProcessFactory.new
         @lock_manager = LockManager.new
 
-        @manager = WiringProcessManager.new @repository, @factory, @lock_manager, OrderProcess
+        @manager = MappingProcessManager.new @repository, @factory, @lock_manager, OrderProcess
       end
 
       should 'raise an exception if used with a process that does not support wiring' do
         assert_raise ArgumentError do
-          WiringProcessManager.new @repository, @factory, @lock_manager, Process
+          MappingProcessManager.new @repository, @factory, @lock_manager, Process
         end
       end
 
-      should 'use wiring attributes to determine correlation keys' do
+      should 'use mapping attributes to determine correlation keys' do
         event = create_event OrderCreated.new 123
         @manager.notify event
 
@@ -29,7 +29,7 @@ module Synapse
         assert_equal 1, processes.count
       end
 
-      should 'use wiring attributes to determine creation policy' do
+      should 'use mapping attributes to determine creation policy' do
         event = create_event OrderCreated.new 123
 
         @manager.notify event

data/test/process_manager/{wiring → mapping}/process_test.rb

@@ -1,10 +1,10 @@
 require 'test_helper'
-require 'process_manager/wiring/fixtures'
+require 'process_manager/mapping/fixtures'
 
 module Synapse
   module ProcessManager
 
-    class WiringProcessTest < Test::Unit::TestCase
+    class MappingProcessTest < Test::Unit::TestCase
       def setup
         @process = OrderProcess.new
       end
@@ -19,7 +19,7 @@ module Synapse
         assert_equal 1, @process.handled
       end
 
-      should 'use wiring attributes to determine when to mark itself as finished' do
+      should 'use mapping attributes to determine when to mark itself as finished' do
         event = Domain::EventMessage.build do |builder|
           builder.payload = OrderCanceled.new 123
         end

data/test/serialization/converter/chain_test.rb

@@ -4,7 +4,7 @@ module Synapse
   module Serialization
 
     class ConverterChainTest < Test::Unit::TestCase
-      def test_convert
+      should 'convert using a chain of converters' do
         converters = Array.new
         converters << ObjectToJsonConverter.new << JsonToObjectConverter.new
 
@@ -13,7 +13,7 @@ module Synapse
         assert_equal Object, chain.source_type
         assert_equal Object, chain.target_type
 
-        content = { 'foo' => 'bar' }
+        content = { foo: 0 }.stringify_keys
 
         type = SerializedType.new 'TestType', 1
         object = SerializedObject.new content, content.class, type

data/test/serialization/converter/factory_test.rb

@@ -9,12 +9,12 @@ module Synapse
         @factory = ConverterFactory.new
       end
 
-      def test_identity
+      should 'return an identity converter if the source/target type are the same' do
         assert @factory.has_converter?(String, String)
         assert @factory.converter(String, String).is_a?(IdentityConverter)
       end
 
-      def test_converter
+      should 'return a converter matching a source/target type' do
         refute @factory.has_converter?(Object, String)
 
         assert_raise ConversionError do

data/test/serialization/converter/identity_test.rb

@@ -3,7 +3,7 @@ require 'test_helper'
 module Synapse
   module Serialization
     class IdentityConverterTest < Test::Unit::TestCase
-      def test_conversion
+      should 'pass through objects unchanged' do
         converter = IdentityConverter.new Object
         content = Hash.new
 

data/test/serialization/converter/json_test.rb

@@ -3,7 +3,7 @@ require 'test_helper'
 module Synapse
   module Serialization
     class JsonToObjectConverterTest < Test::Unit::TestCase
-      def test_convert
+      should 'convert content from a JSON string to a Ruby data structure' do
         converter = JsonToObjectConverter.new
 
         assert_equal String, converter.source_type
@@ -16,7 +16,7 @@ module Synapse
     end
 
     class ObjectToJsonConverterTest < Test::Unit::TestCase
-      def test_convert
+      should 'convert a Ruby data structure to a JSON string' do
         converter = ObjectToJsonConverter.new
 
         assert_equal Object, converter.source_type

data/test/serialization/converter/ox_test.rb

@@ -7,7 +7,7 @@ module Synapse
         skip 'Ox not supported on JRuby' if defined? JRUBY_VERSION
       end
 
-      def test_convert
+      should 'convert an Ox document to an XML string' do
         converter = OxDocumentToXmlConverter.new
 
         assert_equal Ox::Document, converter.source_type
@@ -25,7 +25,7 @@ module Synapse
         skip 'Ox not supported on JRuby' if defined? JRUBY_VERSION
       end
 
-      def test_convert
+      should 'convert an XML string to an Ox document' do
         converter = XmlToOxDocumentConverter.new
 
         assert_equal String, converter.source_type

data/test/serialization/lazy_object_test.rb

@@ -4,7 +4,7 @@ require 'serialization/fixtures'
 module Synapse
   module Serialization
     class LazyObjectTest < Test::Unit::TestCase
-      def test_deserialize_once
+      should 'only deserialize an object once' do
         serializer = MarshalSerializer.new ConverterFactory.new
         event = TestEvent.new 'a', 'b'
 

data/test/serialization/message/metadata_test.rb

@@ -3,7 +3,7 @@ require 'test_helper'
 module Synapse
   module Serialization
     class SerializedMetadataTest < Test::Unit::TestCase
-      def test_initialize
+      should 'act like a serialized object' do
         content = 'test-metadata'
         content_type = String
 

data/test/serialization/message/serialization_aware_message_test.rb

@@ -3,7 +3,7 @@ require 'test_helper'
 module Synapse
   module Serialization
     class SerializationAwareDomainEventMessageTest < Test::Unit::TestCase
-      def test_delegation
+      should 'delegate fields to the original message' do
         message = Domain::DomainEventMessage.build do |builder|
           builder.payload = Object.new
           builder.aggregate_id = 123
@@ -23,7 +23,7 @@ module Synapse
         assert_same message.sequence_number, aware.sequence_number
       end
 
-      def test_caching
+      should 'cache serialization operations' do
         message = Domain::DomainEventMessage.build do |builder|
           builder.payload = Object.new
           builder.aggregate_id = 123
@@ -47,7 +47,7 @@ module Synapse
         end
       end
 
-      def test_decorate
+      should 'not further wrap messages that are already serialization aware' do
         message = Domain::DomainEventMessage.build
 
         aware = SerializationAwareDomainEventMessage.decorate message
@@ -56,7 +56,7 @@ module Synapse
         assert_same aware, new_aware
       end
 
-      def test_and_metadata
+      should 'wrap messages that are duplicated to add metadata' do
         message = Domain::DomainEventMessage.build do |builder|
           builder.metadata = { foo: 0 }
         end
@@ -71,7 +71,7 @@ module Synapse
         assert new_aware.is_a? SerializationAwareDomainEventMessage
       end
 
-      def test_with_metadata
+      should 'wrap messages that are duplicated to replace metadata' do
         message = Domain::DomainEventMessage.build do |builder|
           builder.metadata = { foo: 0 }
         end