synapse-core 0.1.2

data/test/domain/fixtures.rb

@@ -0,0 +1,31 @@
+module Synapse
+  module Domain
+
+    class Person
+      include AggregateRoot
+
+      attr_reader :id, :name
+
+      def initialize(id, name)
+        @id, @name = id, name
+      end
+
+      def change_name(name)
+        @name = name
+        publish_event NameChangedEvent.new(id, name)
+      end
+
+      def delete
+        mark_deleted
+      end
+    end
+
+    class NameChangedEvent
+      attr_reader :id, :name
+      def initialize(id, name)
+        @id, @name = id, name
+      end
+    end
+
+  end
+end

data/test/domain/message_test.rb

@@ -0,0 +1,61 @@
+require 'test_helper'
+
+module Synapse
+  module Domain
+    class DomainEventMessageTest < Test::Unit::TestCase
+      def setup
+        @payload = OpenStruct.new
+        @aggregate_id = 123
+        @sequence_number = 1
+
+        @message = DomainEventMessage.build do |b|
+          b.payload = @payload
+          b.aggregate_id = @aggregate_id
+          b.sequence_number = @sequence_number
+        end
+      end
+
+      def test_initialize
+        # ensure empty fields were populated with default values
+        assert @message.id
+        assert @message.metadata
+        assert @message.timestamp
+
+        # ensure other fields were populated
+        assert_equal @payload, @message.payload
+        assert_equal @payload.class, @message.payload_type
+        assert_equal @aggregate_id, @message.aggregate_id
+        assert_equal @sequence_number, @message.sequence_number
+      end
+
+      def test_and_metadata
+        additional_metadata_a = { foo: 'bar' }
+        additional_metadata_b = { baz: 'qux' }
+
+        merged = @message.and_metadata additional_metadata_a
+        merged = merged.and_metadata additional_metadata_b
+
+        # Ensure everything was populated in the duplicate message
+        assert_equal @message.id, merged.id
+        assert_equal @message.payload, merged.payload
+        assert_equal @message.timestamp, merged.timestamp
+        assert_equal @message.aggregate_id, merged.aggregate_id
+        assert_equal @message.sequence_number, merged.sequence_number
+
+        # Now ensure that metadata was merged, not replaced
+        assert_equal additional_metadata_a.merge(additional_metadata_b), merged.metadata
+      end
+
+      def test_with_metadata
+        additional_metadata_a = { foo: 'bar' }
+        additional_metadata_b = { baz: 'qux' }
+
+        merged = @message.with_metadata additional_metadata_a
+        merged = merged.with_metadata additional_metadata_b
+
+        # Ensure that the metadata was replaced
+        assert_equal additional_metadata_b, merged.metadata
+      end
+    end
+  end
+end

data/test/domain/stream_test.rb

@@ -0,0 +1,35 @@
+require 'test_helper'
+
+module Synapse
+  module Domain
+    class SimpleDomainEventStreamTest < Test::Unit::TestCase
+
+      def setup
+        @events = Array.new
+        @events.push DomainEventMessage.build
+        @events.push DomainEventMessage.build
+
+        @stream = SimpleDomainEventStream.new @events
+      end
+
+      def test_peek
+        assert_same @events.at(0), @stream.peek
+        assert_same @events.at(0), @stream.peek
+      end
+
+      def test_end_of_stream
+        @stream.next_event
+        @stream.next_event
+
+        assert_raise EndOfStreamError do
+          @stream.next_event
+        end
+
+        assert_raise EndOfStreamError do
+          @stream.peek
+        end
+      end
+
+    end
+  end
+end

data/test/duplication_test.rb

@@ -0,0 +1,40 @@
+require 'test_helper'
+
+module Synapse
+  class DuplicationRecorderTest < Test::Unit::TestCase
+    def setup
+      @recorder = DuplicationRecorder.new
+      @message = Message.build
+    end
+
+    def test_record
+      refute @recorder.recorded? @message
+
+      @recorder.record @message
+      assert @recorder.recorded? @message
+
+      assert_raise DuplicationError do
+        @recorder.record @message
+      end
+    end
+
+    def test_forget
+      @recorder.record @message
+      @recorder.forget @message
+
+      refute @recorder.recorded? @message
+    end
+
+    def test_forget_older_than
+      @recorder.record @message
+
+      threshold = 60 * 20 # 20 minutes
+
+      Timecop.freeze(Time.now + 3600) do
+        @recorder.forget_older_than Time.now - threshold
+      end
+
+      refute @recorder.recorded? @message
+    end
+  end
+end

data/test/event_bus/wiring_test.rb

@@ -0,0 +1,46 @@
+require 'test_helper'
+
+module Synapse
+  module EventBus
+
+    class WiringEventListenerTest < Test::Unit::TestCase
+      def test_notify
+        listener = ExampleWiringEventListener.new
+
+        event = Domain::EventMessage.build do |builder|
+          builder.payload = TestEvent.new
+        end
+
+        listener.notify event
+
+        assert listener.handled
+
+        event = Domain::EventMessage.build do |builder|
+          builder.payload = TestSubEvent.new
+        end
+
+        listener.notify event
+
+        assert listener.sub_handled
+      end
+    end
+
+    class TestEvent; end
+    class TestSubEvent < TestEvent; end
+
+    class ExampleWiringEventListener
+      include WiringEventListener
+
+      attr_accessor :handled, :sub_handled
+
+      wire TestEvent do |event|
+        @handled = true
+      end
+
+      wire TestSubEvent do |event|
+        @sub_handled = true
+      end
+    end
+
+  end
+end

data/test/event_sourcing/aggregate_factory_test.rb

@@ -0,0 +1,28 @@
+require 'test_helper'
+
+module Synapse
+  module EventSourcing
+
+    class GenericAggregateFactoryTest < Test::Unit::TestCase
+      def test_create_aggregate
+        factory = GenericAggregateFactory.new StubAggregate
+
+        event = Domain::DomainEventMessage.build do |m|
+          m.payload = StubCreatedEvent.new 123
+        end
+
+        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)
+
+        assert aggregate_a.equal? snapshot
+        assert aggregate_b.is_a? StubAggregate
+      end
+    end
+
+  end
+end

data/test/event_sourcing/aggregate_root_test.rb

@@ -0,0 +1,76 @@
+require 'test_helper'
+require 'event_sourcing/fixtures'
+
+module Synapse
+  module EventSourcing
+
+    class AggregateRootTest < Test::Unit::TestCase
+      def test_apply
+        stub = StubAggregate.new 123
+        stub.change_something
+        stub.change_something
+
+        assert_equal 123, stub.id
+        assert_equal 3, stub.uncommitted_event_count
+
+        assert_nil stub.version
+
+        stub.mark_committed
+
+        assert_equal 2, stub.version
+      end
+
+      def test_new_from_stream
+        events = Array.new
+        events.push create_event(123, 0, StubCreatedEvent.new(123))
+        events.push create_event(123, 1, StubChangedEvent.new)
+        events.push create_event(123, 2, StubChangedEvent.new)
+
+        stream = Domain::SimpleDomainEventStream.new events
+
+        aggregate = StubAggregate.new_from_stream stream
+
+        assert_equal 123, aggregate.id
+        assert_equal 2, aggregate.version
+      end
+
+      def test_initialize_fails_after_initialization
+        aggregate = StubAggregate.new 123
+
+        assert_raise RuntimeError do
+          aggregate.initialize_from_stream Domain::SimpleDomainEventStream.new
+        end
+      end
+
+      def test_child_entities
+        stub_entity_a = StubEntity.new
+        stub_entity_b = StubEntity.new
+
+        aggregate = StubAggregate.new 123
+        aggregate.stub_entity = stub_entity_a
+        aggregate.change_something
+
+        stub_entity_a.change_something
+
+        aggregate.stub_entities << stub_entity_b
+
+        aggregate.change_something
+
+        assert_equal 4, aggregate.event_count
+        assert_equal 3, stub_entity_a.event_count
+        assert_equal 1, stub_entity_b.event_count
+      end
+
+    private
+
+      def create_event(aggregate_id, seq, payload)
+        Domain::DomainEventMessage.build do |m|
+          m.aggregate_id = aggregate_id
+          m.sequence_number = seq
+          m.payload = payload
+        end
+      end
+    end
+
+  end
+end

data/test/event_sourcing/entity_test.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+require 'event_sourcing/fixtures'
+
+module Synapse
+  module EventSourcing
+
+    class EntityTest < Test::Unit::TestCase
+      def test_aggregate_root
+        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
+
+        assert_raise RuntimeError do
+          entity.aggregate_root = aggregate_b
+        end
+      end
+
+      def test_apply
+        entity = StubEntity.new
+
+        assert_raise RuntimeError do
+          entity.change_something
+        end
+      end
+    end
+
+  end
+end

data/test/event_sourcing/fixtures.rb

@@ -0,0 +1,85 @@
+module Synapse
+  module EventSourcing
+
+    class IncompatibleStubAggregate
+      include AggregateRoot
+
+      def change_something
+        apply StubChangedEvent.new
+      end
+    end
+
+    class StubAggregate
+      include AggregateRoot
+
+      attr_accessor :stub_entity, :stub_entities, :event_count
+      child_entity :stub_entity, :stub_entities
+
+      def initialize(id)
+        pre_initialize
+        apply StubCreatedEvent.new id
+      end
+
+      def change_something
+        apply StubChangedEvent.new
+      end
+
+      def delete_me
+        apply StubDeletedEvent.new
+      end
+
+    protected
+
+      def pre_initialize
+        @event_count = 0
+        @stub_entities = Array.new
+      end
+
+      def handle_event(event)
+        payload = event.payload
+        type = event.payload_type
+
+        if type.eql? StubCreatedEvent
+          @id = payload.id
+        elsif type.eql? StubDeletedEvent
+          mark_deleted
+        end
+
+        @event_count = @event_count.next
+      end
+    end
+
+    class StubEntity
+      include Entity
+
+      attr_reader :event_count
+
+      def initialize
+        @event_count = 0
+      end
+
+      def change_something
+        apply StubChangedEvent.new
+      end
+
+    protected
+
+      def handle_event(event)
+        @event_count = @event_count.next
+      end
+    end
+
+    class StubCreatedEvent
+      attr_reader :id
+
+      def initialize(id)
+        @id = id
+      end
+    end
+
+    class StubDeletedEvent; end
+
+    class StubChangedEvent; end
+
+  end
+end