rddd-monitor 0.1.0

data/.rvmrc

@@ -0,0 +1 @@
+rvm gemset use ruby-1.9.3-p194@sniffer-monitor --create

data/Gemfile

@@ -0,0 +1,27 @@
+source "http://rubygems.org"
+
+gem 'rake'
+gem 'sinatra'
+gem 'json'
+gem 'rddd'
+gem 'unicorn'
+gem 'daemons'
+gem 'airbrake'
+gem 'pony'
+gem 'newrelic_rpm'
+gem 'couchrest'
+
+group :development do
+  gem 'capistrano'
+  gem 'capistrano-unicorn'
+  gem 'capistrano_colors'
+  gem 'rvm-capistrano'
+  gem 'shotgun'
+end
+
+group :test do
+  gem 'shoulda-matchers'
+  gem 'rspec'
+  gem 'rack-test', :require => "rack/test"
+  gem 'mocha'
+end

data/Gemfile.lock

@@ -0,0 +1,116 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    activesupport (3.2.9)
+      i18n (~> 0.6)
+      multi_json (~> 1.0)
+    airbrake (3.1.6)
+      builder
+      girl_friday
+    builder (3.1.4)
+    capistrano (2.13.5)
+      highline
+      net-scp (>= 1.0.0)
+      net-sftp (>= 2.0.0)
+      net-ssh (>= 2.0.14)
+      net-ssh-gateway (>= 1.1.0)
+    capistrano-unicorn (0.1.6)
+      capistrano
+    capistrano_colors (0.5.5)
+    connection_pool (0.9.2)
+    couchrest (1.1.3)
+      mime-types (~> 1.15)
+      multi_json (~> 1.0)
+      rest-client (~> 1.6.1)
+    daemons (1.1.9)
+    diff-lcs (1.1.3)
+    girl_friday (0.11.1)
+      connection_pool (~> 0.9.0)
+      rubinius-actor
+    highline (1.6.15)
+    i18n (0.6.1)
+    json (1.6.1)
+    kgio (2.7.4)
+    mail (2.5.2)
+      i18n (>= 0.4.0)
+      mime-types (~> 1.16)
+      treetop (~> 1.4.8)
+    metaclass (0.0.1)
+    mime-types (1.19)
+    mocha (0.13.0)
+      metaclass (~> 0.0.1)
+    multi_json (1.3.7)
+    net-scp (1.0.4)
+      net-ssh (>= 1.99.1)
+    net-sftp (2.0.5)
+      net-ssh (>= 2.0.9)
+    net-ssh (2.2.2)
+    net-ssh-gateway (1.1.0)
+      net-ssh (>= 1.99.1)
+    newrelic_rpm (3.5.2.17)
+    polyglot (0.3.3)
+    pony (1.4)
+      mail (> 2.0)
+    rack (1.4.1)
+    rack-protection (1.2.0)
+      rack
+    rack-test (0.6.2)
+      rack (>= 1.0)
+    raindrops (0.10.0)
+    rake (0.9.5)
+    rddd (0.1.4)
+    rest-client (1.6.7)
+      mime-types (>= 1.16)
+    rspec (2.12.0)
+      rspec-core (~> 2.12.0)
+      rspec-expectations (~> 2.12.0)
+      rspec-mocks (~> 2.12.0)
+    rspec-core (2.12.0)
+    rspec-expectations (2.12.0)
+      diff-lcs (~> 1.1.3)
+    rspec-mocks (2.12.0)
+    rubinius-actor (0.0.2)
+      rubinius-core-api
+    rubinius-core-api (0.0.1)
+    rvm-capistrano (1.2.7)
+      capistrano (>= 2.0.0)
+    shotgun (0.9)
+      rack (>= 1.0)
+    shoulda-matchers (1.4.1)
+      activesupport (>= 3.0.0)
+    sinatra (1.3.3)
+      rack (~> 1.3, >= 1.3.6)
+      rack-protection (~> 1.2)
+      tilt (~> 1.3, >= 1.3.3)
+    tilt (1.3.3)
+    treetop (1.4.12)
+      polyglot
+      polyglot (>= 0.3.1)
+    unicorn (4.4.0)
+      kgio (~> 2.6)
+      rack
+      raindrops (~> 0.7)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  airbrake
+  capistrano
+  capistrano-unicorn
+  capistrano_colors
+  couchrest
+  daemons
+  json
+  mocha
+  newrelic_rpm
+  pony
+  rack-test
+  rake
+  rddd
+  rspec
+  rvm-capistrano
+  shotgun
+  shoulda-matchers
+  sinatra
+  unicorn

data/delivery/events_controller.rb

@@ -0,0 +1,7 @@
+require 'services/register_event_service'
+
+class EventsController < Sinatra::Base
+  post '/register_event' do
+    RegisterEventService.new(params[:event]).execute
+  end
+end

data/domain/models/event.rb

@@ -0,0 +1,72 @@
+require 'storage'
+require 'rddd/aggregate_root'
+
+class Event < Rddd::AggregateRoot
+  attr_accessor :name, :user, :time, :params
+
+  finder :all
+  finder :by_name
+  finder :by_user
+end
+
+class EventFactory
+  def self.build(attrs)
+    Event.new(attrs[:id]).tap do |event|
+      event.name = attrs[:name]
+      event.user = attrs[:user]
+      event.time = attrs[:time]
+      event.params = attrs[:params]
+    end
+  end
+end
+
+class EventRepository
+  def db
+    @db ||= Storage.instance.build('monitor')
+  end
+
+  def create(event)
+    event_id = event.id
+
+    update(event)
+    db.add_to_list("events", event_id)
+    db.add_to_list("events-#{event.name}", event_id)
+    db.add_to_list("user-events-#{event.user}", event_id)
+  end
+
+  def all
+    db.get_list('events').map do |item|
+      find(item)
+    end
+  end
+
+  def by_name(name)
+    db.get_list("events-#{name}").map do |item|
+      find(item)
+    end
+  end
+
+  def by_user(user)
+    db.get_list("events-#{user}").map do |item|
+      find(item)
+    end
+  end
+
+  def find(id)
+    EventFactory.build(db.get(id))
+  end
+
+  def update(event)
+    attrs = {
+      :id => event.id,
+      :name => event.name.to_sym,
+      :user => event.user,
+      :time => event.time,
+      :params => event.params
+    }
+
+    event_id = event.id
+
+    db.set(event_id, attrs)
+  end
+end

data/domain/services/register_event_service.rb

@@ -0,0 +1,16 @@
+require 'id_generator'
+require 'models/event'
+require 'rddd/service'
+
+class RegisterEventService < Rddd::Service
+  def execute
+    event = Event.new(IdGenerator.build)
+
+    event.time = Time.now
+    [:name, :user, :params].each do |attribute|
+      event.send :"#{attribute}=", @attributes[attribute]
+    end
+
+    event.create
+  end
+end

data/spec/domain/models/event_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+require 'models/event'
+require 'rddd/aggregate_root'
+
+describe Event do
+  it { should have_finder(:all).to(EventRepository) }
+
+  it { should have_finder(:by_name).to(EventRepository) }
+    
+  it { should have_finder(:by_user).to(EventRepository) }
+
+  describe 'Event' do
+    subject { Event }
+
+    it { subject.ancestors.should include(Rddd::AggregateRoot) }
+  end
+
+  let(:id) { stub('id') }
+
+  subject { Event.new(id) }
+
+  it { should have_accessor :name }
+
+  it { should have_accessor :user }
+
+  it { should have_accessor :time }
+
+  it { should have_accessor :params }
+end

data/spec/domain/services/register_action_service_spec.rb

@@ -0,0 +1,42 @@
+require 'spec_helper'
+require 'services/register_event_service'
+
+describe RegisterEventService do
+  let(:service) { RegisterEventService.new(attributes) }
+
+  let(:event) { stub('event') }
+
+  let(:time) { stub('time') }
+
+  subject { service.execute }
+
+  let(:user) { stub('user') }
+
+  let(:params) { stub('params') }
+
+  let(:attributes) do
+    {
+      :name => :account_created,
+      :user => user,
+      :params => params
+    }
+  end
+
+  let(:id) { stub('id') }
+
+  before do
+    IdGenerator.expects(:build).returns(id)
+
+    Event.expects(:new).with(id).returns(event)
+
+    event.expects(:name=).with(:account_created)
+
+    Time.expects(:now).returns(time)
+    event.expects(:time=).with(time)
+    event.expects(:user=).with(user)
+    event.expects(:params=).with(params)
+    event.expects(:create)
+  end
+
+  it { should_not be}
+end

data/spec/integration/register_event_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+require 'sinatra'
+require 'rack/test'
+require 'events_controller'
+
+# setup test environment
+set :environment, :test
+set :run, false
+set :raise_errors, true
+set :logging, false
+
+def app
+  EventsController
+end
+
+describe EventsController do
+  include Rack::Test::Methods
+
+  before do
+  end
+
+  describe 'POST /' do
+    subject { last_response }
+
+    let(:event) do
+      {
+        :name => 'user_created',
+        :user => 'petr@ngneers.com',
+        :params => {:foo => 'bar'}
+      }
+    end
+
+    before { post '/register_event', :event => event }
+
+    it { should be_ok }
+
+    describe 'event' do
+      subject { Event.all.last }
+
+      its(:name) { should == :user_created }
+
+      its(:user) { should == 'petr@ngneers.com' }
+
+      its(:params) { should == {'foo' => 'bar'} }
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,81 @@
+ENV['RACK_ENV'] = 'test'
+
+dir = "#{File.dirname(__FILE__)}/../../lib/"
+$LOAD_PATH.unshift(dir) unless $LOAD_PATH.include?(dir)
+
+dir = "#{File.dirname(__FILE__)}/../domain/"
+$LOAD_PATH.unshift(dir) unless $LOAD_PATH.include?(dir)
+
+dir = "#{File.dirname(__FILE__)}/../delivery/"
+$LOAD_PATH.unshift(dir) unless $LOAD_PATH.include?(dir)
+
+require 'configuration'
+require 'rack/test'
+require 'couchdb/db'
+require 'core_ext/string'
+require 'inmemory_storage'
+require 'storage'
+require 'rddd'
+
+Configuration.instance.load("../config/#{ENV['RACK_ENV']}.yml")
+
+RSpec.configure do |config|
+  config.include Rack::Test::Methods
+
+  config.mock_framework = :mocha
+  config.color_enabled = true
+
+  # Use color not only in STDOUT but also in pagers and files
+  config.tty = true
+
+  # Use the specified formatter
+  config.formatter = :progress # :progress, :html, :textmate
+
+  config.before(:each) do
+    Storage.instance.strategy = InMemoryStrages
+  end
+
+  config.after(:each) do
+    Storage.instance.build('monitor').clear
+  end
+end
+
+RSpec::Matchers.define :have_finder do |method|
+  chain :to do |target|
+    @target = target
+  end
+
+  match do |subject|
+    @target.any_instance.expects(method).with(1)
+    subject.class.send(method, 1)
+
+    true
+  end
+end
+
+
+RSpec::Matchers.define :have_accessor do |method|
+  match do |subject|
+    subject.respond_to?(method) && \
+    subject.respond_to?("#{method}=")
+  end
+end
+
+def stub_as(responder_class, methods = {})
+  responder = create_responder(responder_class)
+  stub(responder_class.name.to_s, methods).responds_like(responder)
+end
+
+def create_responder(responder_class)
+  list = case responder_class.name
+  when 'Event' then []
+
+  else raise "Responder '#{responder_class.name}' not defined yet!"
+  end
+
+  responder_class.new(*create_args(list))
+end
+
+def create_args(list)
+  list.map {|arg| stub(arg.to_s) }
+end

metadata

@@ -0,0 +1,59 @@
+--- !ruby/object:Gem::Specification
+name: rddd-monitor
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Petr Janda
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-16 00:00:00.000000000 Z
+dependencies: []
+description: User inteligence.
+email:
+- petr@ngneers.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .rvmrc
+- Gemfile
+- Gemfile.lock
+- delivery/events_controller.rb
+- domain/models/event.rb
+- domain/services/register_event_service.rb
+- spec/domain/models/event_spec.rb
+- spec/domain/services/register_action_service_spec.rb
+- spec/integration/register_event_spec.rb
+- spec/spec_helper.rb
+homepage: ''
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: watchr
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: Monitoring tool for rDDD
+test_files:
+- spec/domain/models/event_spec.rb
+- spec/domain/services/register_action_service_spec.rb
+- spec/integration/register_event_spec.rb
+- spec/spec_helper.rb