wonkavision 0.5.0

data/test/map_test.rb

@@ -0,0 +1,187 @@
+require "test_helper"
+
+class MapTest < ActiveSupport::TestCase
+  context "Map.initialize" do
+    should "make the provided object the current context" do
+      assert_equal 1, Wonkavision::MessageMapper::Map.new(1).context
+    end
+  end
+  context "Indexing into a MicroMapper::Map" do
+    should "provide indifferent access" do
+      h = Wonkavision::MessageMapper::Map.new({})
+      h[:hello] = "hi"
+      assert_equal "hi", h["hello"]
+      h["hi"] = {:hello=>:sir}
+      assert_equal({:hello=>:sir}, h[:hi])
+    end
+    should "allow method missing to index into hash" do
+      l = Wonkavision::MessageMapper::Map.new({})
+      l.hello = "goodbye"
+      assert_equal "goodbye", l[:hello]
+      assert_equal "goodbye", l.hello
+    end
+  end
+  context "Map.from" do
+    should "evaluate the provided block against the map using the provided object as the current context" do
+      m = Wonkavision::MessageMapper::Map.new({})
+      m.from(1) do
+        self.take_it = context
+      end
+      assert_equal 1, m.take_it
+    end
+    should "return the previous context after the block" do
+      m = Wonkavision::MessageMapper::Map.new(1)
+      m.from(2) do
+        self.a = context
+      end
+      assert_equal 1, m.context
+      assert_equal 2, m.a
+    end
+  end
+  context "Map.map" do
+    should "raise an exception if called without a block or map name" do
+      m = Wonkavision::MessageMapper::Map.new({})
+      assert_raise RuntimeError do
+        m.map(1)  
+      end
+    end
+    should "eval a provided block against a new map with the provided context" do
+      m = Wonkavision::MessageMapper::Map.new({})
+      ctx = {:hi=>true}
+      m.map "this"=>ctx do
+        self.ctx = context
+      end
+      assert_equal ctx, m.this.ctx
+    end
+    should "execute the provided map_name using the provided context" do
+      Wonkavision::MessageMapper.register("map_test") do
+        self.ctx = context
+      end
+      m = Wonkavision::MessageMapper::Map.new({})
+      ctx = {:hi=>true}
+      m.map({"this"=>ctx}, {:map_name=>"map_test"})
+      assert_equal ctx, m.this.ctx
+    end
+    should "Get the context based on provided field name" do
+      m = Wonkavision::MessageMapper::Map.new({:a=>:b})
+      m.map "length" do
+        self.l = context
+      end
+      assert_equal 1,m["length"].l
+    end
+  end
+  context "Map.string" do
+    should "convert the underlying value to a string" do
+      m = Wonkavision::MessageMapper::Map.new({:a=>:b})
+      m.string :a
+      assert_equal "b", m.a
+    end
+  end
+  context "Map.float" do
+    should "convert the underlying value to a float" do
+      m = Wonkavision::MessageMapper::Map.new({:a=>"1"})
+      m.float :a
+      assert_equal 1.0, m.a
+    end
+  end
+  context "Map.iso8601" do
+    should "convert underlying dates into an iso 8601 string" do
+      m = Wonkavision::MessageMapper::Map.new({:a=>Time.parse("02/01/2001 01:00 PM")})
+      m.iso8601 :a
+      assert_equal "2001-02-01T13:00:00", m.a
+    end
+  end
+  context "Map.date" do
+    should "convert a string to a date" do
+      m = Wonkavision::MessageMapper::Map.new({:a=>"01/02/2001"})
+      m.date :a
+      assert_equal "01/02/2001".to_time, m.a
+    end
+    should "accept a date unmolested" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>Date.today)
+      m.date :a
+      assert_equal Date.today, m.a
+    end
+    should "accept a time unmolested" do
+      time = Time.now
+      m = Wonkavision::MessageMapper::Map.new(:a=>time)
+      m.date :a
+      assert_equal time, m.a
+    end
+  end
+  context "Map.boolean" do
+    should "convert a 'true' string to a bool" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>'TruE')
+      m.boolean :a
+      assert m.a
+    end
+    should "convert a 'yes' string a bool" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>'YeS')
+      m.boolean :a
+      assert m.a
+    end
+    should "convert any other string to a false" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>"Whatever")
+      m.boolean :a
+      assert_equal false, m.a
+    end
+    should "accept a proper boolean at face value" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>true)
+      m.boolean :a
+      assert m.a
+    end
+  end
+  context "Map.int" do
+    should "convert a value to an int" do
+      m = Wonkavision::MessageMapper::Map.new(:a=>"5.2")
+      m.int :a
+      assert_equal 5, m.a
+    end
+  end
+  context "Map.value" do
+    context "when the only argument is a hash" do
+      should "iterate the hash, mapping each entry" do
+        context = {:a=>1, :b=>2}
+        m = Wonkavision::MessageMapper::Map.new(context)
+        m.value :c=>context[:a], :d=>context[:b]
+        assert_equal 1, m.c
+        assert_equal 2, m.d
+      end
+      should "evaluate a proc in the context of a proc if provided" do
+        m = Wonkavision::MessageMapper::Map.new(:a=>1)
+        m.value :c=> proc {self[:a]}
+        assert_equal 1, m.c
+      end
+      should "evaluate a block in the context of the provided value" do
+        m = Wonkavision::MessageMapper::Map.new(:a=>1)
+        m.value(:c=>m.context) do
+          self[:a]
+        end
+        assert_equal 1, m.c
+      end
+    end
+    context "when called with a list of names" do
+      should "iterate the list, mapping each entry" do
+        m = Wonkavision::MessageMapper::Map.new(:a=>1, :b=>2)
+        m.value :a, :b
+        assert_equal 1, m.a
+        assert_equal 2, m.b
+      end
+      should "call a method by the same name on the context if present" do
+        m = Wonkavision::MessageMapper::Map.new("01/01/2001")
+        m.value :to_time
+        assert_equal "01/01/2001".to_time, m.to_time
+      end
+      should "index into a hash if provided" do
+        m = Wonkavision::MessageMapper::Map.new(:a=>1)
+        m.value :a
+        assert_equal 1, m.a
+      end
+      should "evaluate a block on the value if provided" do
+        m = Wonkavision::MessageMapper::Map.new(:a=>1)
+        m.value(:a) {to_s}
+        assert_equal "1", m.a
+      end
+    end
+  end
+end

data/test/message_mapper_test.rb

@@ -0,0 +1,21 @@
+require "test_helper"
+
+class Wonkavision::MessageMapperTest < ActiveSupport::TestCase
+  context "Wonkavision::MessageMapper.execute" do
+    setup do
+      Wonkavision::MessageMapper.register("test_map") do
+        context["i_was_here"] = true
+      end
+    end
+    should "evaluate the named block against a new map" do
+      data = {}
+      Wonkavision::MessageMapper.execute("test_map",data)
+      assert data["i_was_here"]
+    end
+    should "raise an error if the map is missing" do
+      assert_raise RuntimeError do
+        Wonkavision::MessageMapper.execute("I'm not really here", {})
+      end
+    end
+  end
+end

data/test/test_activity_models.rb

@@ -0,0 +1,56 @@
+unless defined?(::TestEventHandler)
+  class TestEventHandler
+    include Wonkavision::EventHandler
+
+    def self.knids
+      @@knids ||= []
+    end
+
+    def self.reset
+      @@knids = []
+    end
+
+    event_namespace :vermicious
+
+    handle :knid do |data,path|
+      TestEventHandler.knids << [data,path]
+    end
+
+    #handle events in the vermicious namespace
+    handle "*" do |data,path|
+      TestEventHandler.knids << [data,path] if path !~ /.*knid/
+    end
+
+    #handle ALL events in any namespace
+    handle "/*" do |data,path|
+      puts "Handling #{path}. Before: #{TestEventHandler.knids.inspect}"
+      TestEventHandler.knids << [data,path] if path !~ /^vermicious.*/
+      puts "After: #{TestEventHandler.knids.inspect}"
+    end
+
+  end
+
+  class TestBusinessActivity
+    include MongoMapper::Document
+
+    acts_as_timeline
+
+    event_namespace :test
+    correlate_by    :test_id
+
+    milestone :ms1, :evt1
+    milestone :ms2, :evt2
+    milestone :ms3, :evt3, '/not_test/evt4'
+
+    map /not_test\/.*/i do
+      import "evt4_test_map"
+      string 'modified_another_field'=> "'#{context["another_field"]}' WAS SERVED!! OH YEAH!! IN-YOUR-FACE!!"
+    end
+  end
+
+  Wonkavision::MessageMapper.register("evt4_test_map") do
+    string 'test_id'
+    date 'event_time'
+  end
+  
+end

data/test/test_helper.rb

@@ -0,0 +1,63 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+
+require "rubygems"
+require "mongo_mapper"
+require 'active_support/test_case'
+require "shoulda"
+
+dir = File.dirname(__FILE__)
+require File.join(dir,"..","lib","wonkavision")
+
+dir = File.expand_path(File.dirname(__FILE__))
+logdir = File.join(dir,'log')
+Dir.mkdir(logdir) unless File.directory?(logdir)
+MongoMapper.setup(YAML.load_file(File.join(dir,'config', 'database.yml')), "test", {
+                                                                                           :logger    => Logger.new(File.join(logdir,'test.log')),
+                                                                                           :passenger => false
+})
+
+module ActiveSupport
+  class TestCase
+    def setup
+
+    end
+    def teardown
+      MongoMapper.database.collections.each do |coll|
+        coll.drop unless coll.name =~ /(.*\.)?system\..*/
+      end
+      Time.reset #Return Time.now to its original state
+    end
+
+    # Make sure that each test case has a teardown
+    # method to clear the db after each test.
+    def inherited(base)
+      base.define_method teardown do
+        super
+      end
+      base.define_method setup do
+        super
+      end
+    end
+  end
+end
+#This seems like an odd approach - why not just alias now, you ask
+#well, I did, and for whatever reason, got stack overflows
+#whenever I'd try to run the test suite. So...um...this doesn't
+#overflow the stack, so it will do.
+class Time
+  @@old_now = method(:now)
+  class << self
+    def now=(new_now)
+      @@new_now = new_now.to_time
+      def Time.now
+        @@new_now
+      end
+    end
+
+    def reset
+      def Time.now
+        @@old_now.call
+      end
+    end
+  end
+end

data/test/timeline_test.rb

@@ -0,0 +1,61 @@
+require "test_helper"
+require "test_activity_models"
+
+class TimelineTest < ActiveSupport::TestCase
+  context "TestBusinessActivity" do
+    should "create the appropriate keys" do
+      assert TestBusinessActivity.keys.keys.include?("timeline")
+      assert TestBusinessActivity.keys.keys.include?("latest_milestone")
+    end
+    should "configure milestones from DSL" do
+      assert_equal 3, TestBusinessActivity.timeline_milestones.length
+
+      assert_equal :ms1, TestBusinessActivity.timeline_milestones[0].name
+      assert_equal "test/evt1", TestBusinessActivity.timeline_milestones[0].events[0]
+
+      assert_equal :ms2, TestBusinessActivity.timeline_milestones[1].name
+      assert_equal "test/evt2", TestBusinessActivity.timeline_milestones[1].events[0]
+
+      assert_equal :ms3, TestBusinessActivity.timeline_milestones[2].name
+      assert_equal "test/evt3", TestBusinessActivity.timeline_milestones[2].events[0]
+      assert_equal "/not_test/evt4", TestBusinessActivity.timeline_milestones[2].events[1]
+    end
+    should "subscribe to all milestone events" do
+      assert Wonkavision.event_coordinator.root_namespace.find_or_create("test/evt1").subscribers.length > 0
+      assert Wonkavision.event_coordinator.root_namespace.find_or_create("test/evt2").subscribers.length > 0
+      assert Wonkavision.event_coordinator.root_namespace.find_or_create("test/evt3").subscribers.length > 0
+      assert Wonkavision.event_coordinator.root_namespace.find_or_create("not_test/evt4").subscribers.length > 0
+    end
+    should "record appropriate milestone time and milestone upon relevant event being received" do
+      event = {"test_id"=>"123","event_time"=>"1/1/2001","another_field"=>"hi there"}
+      Wonkavision.event_coordinator.receive_event("test/evt1",event)
+      assert activity = TestBusinessActivity.find_by_test_id("123")
+      assert_equal "1/1/2001".to_time.utc,activity.timeline["ms1"]
+      assert_equal "hi there", activity.another_field
+      Wonkavision.event_coordinator.receive_event("test/evt2",event)
+      activity = activity.reload
+      assert_equal "1/1/2001".to_time.utc,activity.timeline["ms2"]
+      Wonkavision.event_coordinator.receive_event("test/evt3",event)
+      activity = activity.reload
+      assert_equal "1/1/2001".to_time.utc, activity.timeline["ms3"]
+      event["event_time"] = "1/1/2010"
+      Wonkavision.event_coordinator.receive_event("not_test/evt4",event)
+      activity = activity.reload
+      # timeline for milestone ms3 already set
+      assert_equal "1/1/2001".to_time.utc, activity.timeline["ms3"]
+      assert_equal "ms3", activity.latest_milestone
+    end
+    should "not overwrite latest_milestone when processing an event that occurred prior to the latest milestone event" do
+      event = {"test_id"=>"123","event_time"=>"1/1/2001 08:00"}
+      Wonkavision.event_coordinator.receive_event("test/evt2",event)
+      assert activity = TestBusinessActivity.find_by_test_id("123")
+      assert_equal "1/1/2001 08:00".to_time.utc,activity.timeline["ms2"]
+      assert_equal "ms2", activity.latest_milestone
+      event = {"test_id"=>"123","event_time"=>"1/1/2001 07:00"}
+      Wonkavision.event_coordinator.receive_event("test/evt1",event)
+      activity = activity.reload
+      assert_equal "1/1/2001 07:00".to_time.utc, activity.timeline["ms1"]
+      assert_equal "ms2", activity.latest_milestone
+    end
+  end
+end

data/test/wonkavision_test.rb

@@ -0,0 +1,10 @@
+require "test_helper"
+
+class WonkavisionTest < ActiveSupport::TestCase
+
+  context "Jumping into an experimental teleportation device built by a madman" do
+    should "wreak some kind of humerous havoc" do
+      assert_equal true, true
+    end
+  end
+end

data/wonkavision.gemspec

@@ -0,0 +1,94 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{wonkavision}
+  s.version = "0.5.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Nathan Stults"]
+  s.date = %q{2010-07-19}
+  s.description = %q{Wonkavision is a small gem that allows you to publish}
+  s.email = %q{hereiam@sonic.net}
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+     "README.rdoc"
+  ]
+  s.files = [
+    "CHANGELOG.rdoc",
+     "LICENSE.txt",
+     "README.rdoc",
+     "Rakefile",
+     "lib/wonkavision.rb",
+     "lib/wonkavision/acts_as_oompa_loompa.rb",
+     "lib/wonkavision/event.rb",
+     "lib/wonkavision/event_binding.rb",
+     "lib/wonkavision/event_coordinator.rb",
+     "lib/wonkavision/event_handler.rb",
+     "lib/wonkavision/event_namespace.rb",
+     "lib/wonkavision/event_path_segment.rb",
+     "lib/wonkavision/message_mapper.rb",
+     "lib/wonkavision/message_mapper/indifferent_access.rb",
+     "lib/wonkavision/message_mapper/map.rb",
+     "lib/wonkavision/persistence/mongo_mapper_adapter.rb",
+     "lib/wonkavision/plugins.rb",
+     "lib/wonkavision/plugins/business_activity.rb",
+     "lib/wonkavision/plugins/event_handling.rb",
+     "lib/wonkavision/plugins/timeline.rb",
+     "lib/wonkavision/support.rb",
+     "lib/wonkavision/version.rb",
+     "test/business_activity_test.rb",
+     "test/config/database.yml",
+     "test/event_coordinator_test.rb",
+     "test/event_handler_test.rb",
+     "test/event_namespace_test.rb",
+     "test/event_path_segment_test.rb",
+     "test/event_test.rb",
+     "test/log/test.log",
+     "test/map_test.rb",
+     "test/message_mapper_test.rb",
+     "test/test_activity_models.rb",
+     "test/test_helper.rb",
+     "test/timeline_test.rb",
+     "test/wonkavision_test.rb",
+     "wonkavision.gemspec"
+  ]
+  s.homepage = %q{http://github.com/PlasticLizard/wonkavision}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.7}
+  s.summary = %q{Simple Business Activity Monitoring}
+  s.test_files = [
+    "test/business_activity_test.rb",
+     "test/event_coordinator_test.rb",
+     "test/event_handler_test.rb",
+     "test/event_namespace_test.rb",
+     "test/event_path_segment_test.rb",
+     "test/event_test.rb",
+     "test/map_test.rb",
+     "test/message_mapper_test.rb",
+     "test/test_activity_models.rb",
+     "test/test_helper.rb",
+     "test/timeline_test.rb",
+     "test/wonkavision_test.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<activesupport>, [">= 2.3"])
+      s.add_development_dependency(%q<shoulda>, ["= 2.10.3"])
+    else
+      s.add_dependency(%q<activesupport>, [">= 2.3"])
+      s.add_dependency(%q<shoulda>, ["= 2.10.3"])
+    end
+  else
+    s.add_dependency(%q<activesupport>, [">= 2.3"])
+    s.add_dependency(%q<shoulda>, ["= 2.10.3"])
+  end
+end
+