sandthorn 0.0.1

data/spec/benchmark_spec.rb

@@ -0,0 +1,55 @@
+require 'spec_helper'
+require 'sandthorn/aggregate_root_dirty_hashy'
+require 'benchmark'
+
+module Sandthorn
+  module AggregateRoot
+    class TestClass
+      include Sandthorn::AggregateRoot::DirtyHashy
+      attr_reader :name
+      
+      
+      def initialize args = {}
+      end
+
+      def change_name value
+        unless name == value
+          @name = value
+          commit
+        end
+      end
+
+    end
+
+    describe "benchmark" do
+
+      let(:test_object) { 
+        o = TestClass.new().save
+        o
+      }
+      n = 500
+      it "should new, change_name, save and find 500 aggregates" do
+
+        Benchmark.bm do |x|
+          x.report("new change save find") { for i in 1..n; s = TestClass.new().change_name("benchmark").save(); TestClass.find(s.id);  end }
+        end
+
+      end
+      it "should find 500 aggregates" do
+        Benchmark.bm do |x|
+          x.report("find") { for i in 1..n; TestClass.find(test_object.id);  end }
+        end
+      end
+      it "should commit 500 actions" do
+        Benchmark.bm do |x|
+          x.report("commit") { for i in 1..n; test_object.change_name "#{i}";  end }
+        end
+      end
+      it "should commit and save 500 actions" do
+        Benchmark.bm do |x|
+          x.report("commit save") { for i in 1..n; test_object.change_name("#{i}").save;  end }
+        end
+      end
+    end
+  end
+end

data/spec/complex_aggregate_spec.rb

@@ -0,0 +1,77 @@
+require 'spec_helper'
+require 'sandthorn/aggregate_root_dirty_hashy'
+require 'date'
+
+class Hello
+  attr_reader :foo_bar
+  attr_accessor :change_me
+
+  def initialize foo_bar
+    @foo_bar = foo_bar
+  end
+
+  def set_foo_bar value
+    @foo_bar = value
+  end
+end
+
+class IAmComplex
+  include Sandthorn::AggregateRoot::DirtyHashy
+  attr_reader :a_date
+  attr_reader :hello
+
+  def set_hello! hello
+    set_hello_event hello
+  end
+
+  def set_foo_bar_on_hello value
+    @hello.set_foo_bar value
+    commit value
+  end
+
+
+  def initialize date
+    @a_date = date
+  end
+
+  private
+  def set_hello_event hello
+    @hello = hello
+    commit hello
+  end
+
+end
+
+
+describe 'when using complex types in events' do
+  before(:each) do
+    aggr = IAmComplex.new Date.new 2012,01,20
+    aggr.set_hello! Hello.new "foo"
+    @events = aggr.aggregate_events
+  end
+  it 'should be able to build from events' do
+    aggr = IAmComplex.aggregate_build @events
+    aggr.a_date.should be_a(Date)
+    aggr.hello.should be_a(Hello)
+  end
+
+  it 'should detect hello changing' do
+    aggr = IAmComplex.aggregate_build @events
+    hello = aggr.hello
+    hello.change_me = ["Fantastisk"]
+    aggr.set_hello! hello
+    hello.change_me << "Otroligt"
+    aggr.set_hello! hello
+    builded = IAmComplex.aggregate_build aggr.aggregate_events
+    builded.hello.change_me.should include "Fantastisk"
+    builded.hello.change_me.should include "Otroligt"
+  end
+
+  it 'should detect foo_bar chaning in hello' do
+    aggr = IAmComplex.aggregate_build @events
+    aggr.set_foo_bar_on_hello "morgan"
+
+    builded = IAmComplex.aggregate_build aggr.aggregate_events
+    builded.hello.foo_bar.should eql "morgan"
+  end
+end

data/spec/different_driver_spec.rb

@@ -0,0 +1,101 @@
+# require 'spec_helper'
+# require 'sandthorn_driver_sequel'
+
+# module UnknownModule
+#   class Foo
+#     include Sandthorn::AggregateRoot
+#   end
+# end
+# module Sandthorn
+#   class TestContextSwitching
+#     attr_reader :foo
+#     include Sandthorn::AggregateRoot
+#     def change_foo value
+#       unless foo == value
+#         @foo = foo
+#         foo_was_changed
+#       end
+#     end
+#     private
+#     def foo_was_changed
+#       record_event
+#     end
+#   end
+#   class AnotherContext < TestContextSwitching
+#   end
+#   describe "when using different contexts configuration" do
+#     before(:each) do 
+#       Sandthorn.configuration = configuration
+#       migrate
+      
+#     end
+#     let(:configuration) do
+#       c = []
+#       setup.each do |s|
+#         c << { aggregate_pattern: s[:aggregate_pattern], driver: SandthornDriverSequel::SequelDriver.new(url: s[:url], context: s[:context]) }
+#       end
+#       c
+#     end
+#     let(:migrate) do
+#       setup.each do |s|
+#         migrator = SandthornDriverSequel::Migration.new url: s[:url], context: s[:context]
+#         migrator.migrate!
+#         migrator.send(:clear_for_test)
+#       end
+#     end
+#     let(:setup) do
+#       [
+#         { url: spec_db, context: :context_test, aggregate_pattern: Sandthorn::TestContextSwitching },
+#         { url: spec_db, context: :nil, aggregate_pattern: Sandthorn } 
+#       ] 
+#     end
+#     let(:create_in_context_test) { t = TestContextSwitching.new; t.change_foo :hello_context_1; t.aggregate_save; t;}
+#     let(:create_in_default_context) { t = AnotherContext.new; t.change_foo :hello_default_context; t.aggregate_save; t;}
+#     def exists_in_context? aggregate, context = nil
+#       driver = SandthornDriverSequel::SequelDriver.new url: spec_db     
+#       table = "aggregates"
+#       table = "#{context}_#{table}" if context
+#       driver.execute do |db|
+#         return db[table.to_sym].where(aggregate_id: aggregate.aggregate_id).any?          
+#       end
+#     end
+#     context "when trying to access an aggregate in a non configured context" do
+#       it "should raise configuration error" do
+#         expect { UnknownModule::Foo.find "boo" }.to raise_exception Sandthorn::Errors::ConfigurationError 
+#       end
+#     end
+#     context "when saving the aggregates" do
+#       context "it should find the aggregates in separate contexts" do
+#         it "should find TestContextSwitching aggregate in test-context only" do
+#           expect(exists_in_context?(create_in_context_test, :context_test)).to be_true
+#           expect(exists_in_context?(create_in_context_test)).to be_false
+#         end
+#         it "should find AnotherContext aggregate in default-context only" do
+#           expect(exists_in_context?(create_in_default_context)).to be_true
+#           expect(exists_in_context?(create_in_default_context, :context_test)).to be_false
+#         end
+#       end
+#     end   
+#     context "getting events should respect context" do
+#       before(:each) {create_in_context_test;create_in_default_context; }
+#       context "when getting for specific context" do
+#         let(:events) { Sandthorn.get_events classes: [Sandthorn::TestContextSwitching], after_sequence_number: 0 }
+#         it "should have events" do
+#           expect(events.length).to eq 2
+#         end
+#       end
+#       context "when getting for all contexts" do
+#         let(:events) { Sandthorn.get_events after_sequence_number: 0 }
+#         it "should not be possible if multiple contexts" do
+#           expect{events}.to raise_exception(Sandthorn::Errors::Error)
+#         end
+#       end
+#       context "when getting for both classes" do
+#         let(:events) { Sandthorn.get_events classes: [Sandthorn::TestContextSwitching, Sandthorn::AnotherContext], after_sequence_number: 0 }
+#         it "should not be possible if multiple contexts" do
+#           expect{events}.to raise_exception(Sandthorn::Errors::Error)
+#         end
+#       end
+#     end
+#   end
+# end

data/spec/event_inspector_spec.rb

@@ -0,0 +1,148 @@
+require 'spec_helper'
+require 'sandthorn/event_inspector'
+require 'sandthorn/aggregate_root_dirty_hashy'
+
+class InspectorAggregate
+  include Sandthorn::AggregateRoot::DirtyHashy
+
+  attr_reader :foo_bar
+
+  def initialize args = {}
+    @foo_bar = args.fetch(:foo_bar, nil)
+  end
+
+  def this_is_an_event args = nil
+    record_event args
+  end
+  def another_event
+    record_event
+  end
+  def new_damaged_item_was_added hello
+    record_event hello
+  end 
+end
+
+module Sandthorn
+  describe EventInspector do
+    let(:aggregate) {InspectorAggregate.new.extend EventInspector}
+
+    context "when using extract_trace_info from an event" do
+      let(:trace_info) {{user_id: "foo", ip: "bar"}}
+      let(:subject) do
+        aggregate.aggregate_trace trace_info do |traced|
+          traced.this_is_an_event
+        end
+        aggregate
+      end
+      context "and unsaved aggregate" do
+        it "should extract exact traceinfo from event" do
+          all_trace = subject.events_with_trace_info
+          all_trace.last[:trace].should eql trace_info
+        end
+      end
+      context "and saved aggregate" do
+        it "should extract exact traceinfo from event" do
+          subject.save
+          all_trace = subject.events_with_trace_info
+          all_trace.last[:trace].should eql trace_info
+        end
+      end
+    end
+    context "when inspecting non saved events" do
+      context "with no tracing information" do
+        let(:subject) { aggregate.this_is_an_event;aggregate }
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_unsaved_event?(:this_is_an_event).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_unsaved_event?(:no_event_here).should be_false
+        end
+      end
+      context "with tracing information" do
+        let(:subject) do
+          aggregate.aggregate_trace user_id: 123, ip: "1234" do |traced|
+            traced.this_is_an_event "my name"
+          end
+          aggregate
+        end
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_unsaved_event?(:this_is_an_event, trace: {user_id: 123, ip: "1234"}).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_unsaved_event?(:this_is_an_event, trace: {user_id: 321}).should be_false
+          subject.has_unsaved_event?(:this_is_an_event, trace: {another_user_id: 123}).should be_false
+        end
+      end
+    end 
+    context "when inspecting saved events" do
+      context "with no tracing information" do
+        let(:subject) { aggregate.this_is_an_event;aggregate.save;aggregate }
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_saved_event?(:this_is_an_event).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_saved_event?(:no_event_here).should be_false
+        end
+      end
+      context "with tracing information" do
+        let(:subject) do
+          aggregate.aggregate_trace user_id: 123, ip: "1234" do |traced|
+            traced.this_is_an_event "my name"
+          end
+          aggregate.save
+          aggregate
+        end
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_saved_event?(:this_is_an_event, trace: {user_id: 123, ip: "1234"}).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_saved_event?(:this_is_an_event, trace: {user_id: 321}).should be_false
+          subject.has_saved_event?(:this_is_an_event, trace: {another_user_id: 123}).should be_false
+        end
+        it "should be able to check complex trace" do
+          subject.aggregate_trace client_ip: "10", user_id: "123" do |trace|
+            trace.new_damaged_item_was_added "foobar"
+            trace.save  
+          end
+          subject.has_saved_event?(:new_damaged_item_was_added, trace: {user_id: "123", client_ip: "10"})
+        end
+      end
+    end
+    context "when inspecting any events" do
+      context "with no tracing information" do
+        let(:subject) { aggregate.this_is_an_event;aggregate.save;aggregate.another_event;aggregate }
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_event?(:this_is_an_event).should be_true
+          subject.has_event?(:another_event).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_event?(:no_event_here).should be_false
+        end
+      end
+      context "with tracing information" do
+        let(:subject) do
+          aggregate.aggregate_trace user_id: 123, ip: "1234" do |traced|
+            traced.this_is_an_event "my name"
+            traced.save
+            traced.another_event
+          end
+          aggregate
+        end
+        
+        it "should report true on has_unsaved_event? :this_is_an_event" do
+          subject.has_event?(:this_is_an_event, trace: {user_id: 123, ip: "1234"}).should be_true
+          subject.has_event?(:another_event, trace: {user_id: 123, ip: "1234"}).should be_true
+        end
+        it "should report false on has_unsaved_event? :no_event_here" do
+          subject.has_event?(:this_is_an_event, trace: {user_id: 321}).should be_false
+          subject.has_event?(:another_event, trace: {ip: "123"}).should be_false
+        end
+      end
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,42 @@
+# This file was generated by the `rspec --init` command. Conventionally, all
+# specs live under a `spec` directory, which RSpec adds to the `$LOAD_PATH`.
+# Require this file using `require "spec_helper"` to ensure that it is only
+# loaded once.
+#
+# See http://rubydoc.info/gems/rspec-core/RSpec/Core/Configuration
+require "ap"
+require "bundler"
+require "sandthorn_driver_sequel"
+
+Bundler.require
+
+module Helpers
+  def class_including(mod)
+    Class.new.tap {|c| c.send :include, mod }
+  end
+end
+
+RSpec.configure do |config|
+  config.treat_symbols_as_metadata_keys_with_true_values = true
+  config.run_all_when_everything_filtered = true
+  config.filter_run :focus
+
+  # Run specs in random order to surface order dependencies. If you find an
+  # order dependency and want to debug it, you can fix the order by providing
+  # the seed, which is printed after each run.
+  #     --seed 1234
+  config.order = 'random'
+  config.before(:each) { sqlite_store_setup }
+end
+
+def spec_db
+    "sqlite://spec/db/sequel_driver.sqlite3"
+end
+def sqlite_store_setup
+  url = spec_db 
+  catch_all_config = [ { driver: SandthornDriverSequel.driver_from_url(url: url) } ]
+  Sandthorn.configuration = catch_all_config
+  migrator = SandthornDriverSequel::Migration.new url: url
+  SandthornDriverSequel.migrate_db url: url
+  migrator.send(:clear_for_test)
+end

data/spec/tracing_spec.rb

@@ -0,0 +1,121 @@
+# require 'spec_helper'
+# require 'sandthorn/event_inspector'
+# require 'sandthorn/aggregate_root_dirty_hashy'
+
+# class UsualSuspect
+#   include Sandthorn::AggregateRoot::DirtyHashy
+
+#   def initialize full_name
+#     @full_name = full_name
+#     @charges = []
+#   end
+
+#   def charge_suspect_of_crime! crime_name
+#     suspect_was_charged crime_name
+#   end
+  
+#   private
+#   def suspect_was_charged crime_name
+#     @charges << crime_name
+#     record_event crime_name
+#   end
+# end
+
+# class Simple 
+# end
+# module Go
+#   def go
+#     @foo = "bar"
+#     record_event
+#   end
+# end
+
+# describe "using a traced change" do
+#   context "when extending an instance with aggregate_root" do
+#     it "should record tracing if specified" do
+#       simple = Simple.new
+#       simple.extend Sandthorn::EventInspector
+#       simple.extend Sandthorn::AggregateRoot::DirtyHashy
+#       simple.extend Sandthorn::AggregateRootSnapshot
+      
+#       simple.extend Go
+#       simple.aggregate_trace "123" do |traced|
+#         traced.go
+#       end
+#       simple.events_with_trace_info.last[:trace].should eql("123")
+#     end
+#   end
+#   context "when not tracing" do
+#     it "should not have any trace event info at all on new" do
+#       suspect = UsualSuspect.new "Ronny"
+#       event = suspect.aggregate_events.first
+#       event[:trace].should be_nil
+#     end
+#     it "should not have any trace event info at all on regular event" do
+#       suspect = UsualSuspect.new "Ronny"
+#       event = suspect.aggregate_events.first
+#       event[:trace].should be_nil
+#     end
+#   end
+#   context "when changing aggregate in a traced context" do
+#     let(:suspect) {UsualSuspect.new("Conny").extend Sandthorn::EventInspector}
+#     it "should record modififier in the event" do
+#       suspect.aggregate_trace "Lars Krantz" do |s|
+#         s.charge_suspect_of_crime! "Theft"
+#       end
+#       event = suspect.events_with_trace_info.last
+#       event[:trace].should eql "Lars Krantz"
+#     end
+
+#     it "should record optional other tracing information" do
+#       trace_info = {ip: "127.0.0.1", client: "Mozilla"}
+#       suspect.aggregate_trace trace_info do |s| 
+#         s.charge_suspect_of_crime! "Murder"       
+#       end
+#       event = suspect.events_with_trace_info.last
+#       event[:trace].should eql trace_info 
+#     end
+#   end
+#   context "when initializing a new aggregate in a traced context" do
+#     it "should record modifier in the new event" do
+#       UsualSuspect.aggregate_trace "Lars Krantz" do
+#         suspect = UsualSuspect.new("Sonny").extend Sandthorn::EventInspector
+#         event = suspect.events_with_trace_info.first
+#         event[:trace].should eql "Lars Krantz"
+#       end
+#     end
+#     it "should record tracing for all events in the trace block" do
+#       trace_info = {gender: :unknown, occupation: :master} 
+#       UsualSuspect.aggregate_trace trace_info do
+#         suspect = UsualSuspect.new("Sonny").extend Sandthorn::EventInspector
+#         suspect.charge_suspect_of_crime! "Hit and run"
+#         event = suspect.events_with_trace_info.last
+#         event[:trace].should eql trace_info
+#       end
+#     end
+#     it "should record tracing for all events in the trace block" do
+#       trace_info = {user_aggregate_id: "foo-bar-x", gender: :unknown, occupation: :master} 
+#       UsualSuspect.aggregate_trace trace_info do
+#         suspect = UsualSuspect.new("Conny").extend Sandthorn::EventInspector
+#         suspect.charge_suspect_of_crime! "Desception"
+#         event = suspect.events_with_trace_info.last
+#         event[:trace].should eql trace_info
+#       end
+#     end
+#     it "should only record info within block" do
+#       fork do
+#         UsualSuspect.aggregate_trace "Lars Krantz" do
+#           suspect = UsualSuspect.new("Sonny").extend Sandthorn::EventInspector
+#           event = suspect.events_with_trace_info.first
+#           event[:trace].should eql "Lars Krantz"
+#           sleep 1
+#         end
+#       end
+#       sleep 0.5
+#       s2 = UsualSuspect.new("Ronny").extend Sandthorn::EventInspector
+#       event = s2.events_with_trace_info.first
+#       event[:trace].should be_nil
+#     end
+#   end 
+
+# end