fnordmetric 0.3.2 → 0.5.0

data/Gemfile

@@ -4,10 +4,16 @@ gem "mongoid", "~> 2.2.0"
 gem "mongo", "~> 1.4.0"
 gem "bson_ext", "~> 1.4.0"
 gem "sinatra", "~> 1.2.6"
+gem "redis", "~> 2.2.2"
+gem "eventmachine"
+gem "em-hiredis"
 gem "json"
 gem "haml"
 gem "rack"
 gem "rack-test"
+gem "yajl-ruby", :git => "git://github.com/brianmario/yajl-ruby.git"
+gem "thin"
+
 
 group :development do  
   gem "delorean", ">= 0" 

data/Gemfile.lock

@@ -1,3 +1,9 @@
+GIT
+  remote: git://github.com/brianmario/yajl-ruby.git
+  revision: eef5c48be81b6404af66da3f185ec9301e5214d8
+  specs:
+    yajl-ruby (1.1.0)
+
 GEM
   remote: http://rubygems.org/
   specs:
@@ -13,11 +19,16 @@ GEM
     bson_ext (1.4.0)
     builder (3.0.0)
     chronic (0.6.4)
+    daemons (1.1.4)
     delorean (1.1.0)
       chronic
     diff-lcs (1.1.3)
+    em-hiredis (0.1.0)
+      hiredis (~> 0.3.0)
+    eventmachine (0.12.10)
     git (1.2.5)
     haml (3.1.2)
+    hiredis (0.3.2)
     i18n (0.6.0)
     jeweler (1.5.2)
       bundler (~> 1.0.0)
@@ -35,6 +46,7 @@ GEM
     rack-test (0.6.0)
       rack (>= 1.0)
     rake (0.9.2)
+    redis (2.2.2)
     rspec (2.6.0)
       rspec-core (~> 2.6.0)
       rspec-expectations (~> 2.6.0)
@@ -47,6 +59,10 @@ GEM
     sinatra (1.2.6)
       rack (~> 1.1)
       tilt (>= 1.2.2, < 2.0)
+    thin (1.2.11)
+      daemons (>= 1.0.9)
+      eventmachine (>= 0.12.6)
+      rack (>= 1.0.0)
     tilt (1.3.2)
     tzinfo (0.3.29)
 
@@ -57,6 +73,8 @@ DEPENDENCIES
   bson_ext (~> 1.4.0)
   bundler (~> 1.0.0)
   delorean
+  em-hiredis
+  eventmachine
   haml
   jeweler (~> 1.5.2)
   json
@@ -64,6 +82,9 @@ DEPENDENCIES
   mongoid (~> 2.2.0)
   rack
   rack-test
+  redis (~> 2.2.2)
   rspec (~> 2.6.0)
   shoulda
   sinatra (~> 1.2.6)
+  thin
+  yajl-ruby!

data/Procfile

@@ -1,2 +1 @@
-app:  bundle exec ruby zoe_app.rb
-switchboard:  bundle exec ruby zoe_switchboard.rb
+server:  bundle exec ruby server.rb

data/VERSION

@@ -1 +1 @@
-0.3.2
+0.5.0

data/_spec/app_spec.rb

@@ -0,0 +1,178 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+include Rack::Test::Methods
+
+describe "app" do
+
+  before(:each) do
+    FnordMetric::Event.destroy_all
+  end
+
+  def app
+    @app ||= FnordMetric::App
+  end
+
+  it "should redirect to the default dashboard" do
+  	get "/"
+  	last_response.status.should == 302
+  	last_response.location.should == "http://example.org/dashboard/default"
+  end
+
+  it "should render the dashboard" do
+    FnordMetric.dashboard("Deine Mama"){|dash|}
+  	get "/dashboard/default"
+  	last_response.status.should == 200
+    last_response.body.should include("Deine Mama")
+  end
+
+  it "should render the right dashboard" do
+    FnordMetric.dashboard("Deine Mama"){|dash|}
+    FnordMetric.dashboard("My Dashboard"){|dash|}
+    get "/dashboard/DeineMama"
+    last_response.status.should == 200
+    last_response.body.should include("Deine Mama")
+    get "/dashboard/MyDashboard"
+    last_response.status.should == 200
+    last_response.body.should include("My Dashboard")
+  end
+
+  it "should track an event without auth" do
+  	post "/events", :type => "myevent", :fnord => "foobar"
+  	last_response.status.should == 200
+  	FnordMetric::Event.last.type.should == "myevent"
+  	FnordMetric::Event.last.fnord.should == "foobar"
+  end
+
+  it "should return 400 if no type is provided" do
+  	post "/events", :fnord => "foobar"
+  	last_response.status.should == 400  	
+  	last_response.body.should == "please specify the event_type"
+  end
+
+  it "should track an event in the past" do
+  	my_time = (Time.now-3.years).to_i
+  	post "/events", :type => "myevent", :time => my_time
+  	last_response.status.should == 200
+  	FnordMetric::Event.last.type.should == "myevent"
+  	FnordMetric::Event.last.time.should == my_time
+  end
+
+  it "should track an event with integer data" do
+  	post "/events", :type => "myevent", :blubb => "123"
+  	last_response.status.should == 200
+  	FnordMetric::Event.last.type.should == "myevent"
+  	FnordMetric::Event.last.blubb.should == 123
+  end
+  
+  it "should track an event with float data" do
+  	post "/events", :type => "myevent", :blubb => "42.23"
+  	last_response.status.should == 200
+  	FnordMetric::Event.last.type.should == "myevent"
+  	FnordMetric::Event.last.blubb.should == 42.23
+  end
+
+
+  describe "metrics api" do
+
+    before(:each) do
+      FnordMetric::Event.destroy_all
+      FnordMetric.metric('my_event_count', :count => true, :types => [:my_event_type])
+      FnordMetric.track('my_event_type', :time => 33.hours.ago)
+      FnordMetric.track('my_event_type', :time => 32.hours.ago)
+      FnordMetric.track('my_event_type', :time => 29.hours.ago)
+      FnordMetric.track('my_event_type', :time => 27.hours.ago)
+      FnordMetric.track('my_event_type', :time => 26.hours.ago)
+      FnordMetric.track('my_event_type', :time => 13.hours.ago)
+      FnordMetric.track('my_event_type', :time => 12.hours.ago)
+      FnordMetric.track('my_event_type', :time => 2.hours.ago)      
+      FnordMetric.track('my_event_type', :time => 3.hours.ago)  
+    end
+
+    it "should return the right answer for: /metric/:name" do      
+      get "/metric/my_event_count"
+      JSON.parse(last_response.body)["value"].to_i.should == 9      
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp" do      
+      get "/metric/my_event_count", :at => 18.hours.ago.to_i.to_s
+      JSON.parse(last_response.body)["value"].to_i.should == 5
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp" do      
+      get "/metric/my_event_count", :at => "#{30.hours.ago.to_i}-#{20.hours.ago.to_i}"
+      JSON.parse(last_response.body)["value"].to_i.should == 3
+    end   
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"].length.should == 6
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"][0].first.should == 34.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][0].last.should == 3
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"][1].first.should == 28.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][1].last.should == 2
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"][2].first.should == 22.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][2].last.should == 0
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"][3].first.should == 16.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][3].last.should == 2
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i, :delta => true
+      JSON.parse(last_response.body)["values"][5].first.should == 4.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][5].last.should == 2
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"].length.should == 6
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"][0].first.should == 34.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][0].last.should == 0
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"][1].first.should == 28.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][1].last.should == 3
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"][2].first.should == 22.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][2].last.should == 5
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"][3].first.should == 16.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][3].last.should == 5
+    end
+
+    it "should return the right answer for: /metric/:name?at=timestamp-timstamp&tick=seconds" do
+      get "/metric/my_event_count", :at => "#{34.hours.ago.to_i}-#{1.hour.ago.to_i}", :tick => 6.hours.to_i
+      JSON.parse(last_response.body)["values"][5].first.should == 4.hours.ago.to_i
+      JSON.parse(last_response.body)["values"][5].last.should == 7
+    end
+
+  end
+ 
+end

data/_spec/dashboard_spec.rb

@@ -0,0 +1,67 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+describe FnordMetric::Dashboard do
+
+  before(:each) do
+    FnordMetric::Event.destroy_all
+    FnordMetric.reset_metrics
+  end
+
+  it "should remember it's title" do
+    dashboard = FnordMetric::Dashboard.new(:title => 'My Foobar Dashboard'){ |dash| }
+    dashboard.title.should == 'My Foobar Dashboard'
+  end
+
+  it "should build a token" do
+    dashboard = FnordMetric::Dashboard.new(:title => 'My!F00bar-.Dash_board'){ |dash| }
+    dashboard.token.should == 'MyF00barDash_board'
+  end
+
+  it "should add a widget" do
+    dashboard = FnordMetric::Dashboard.new(:title => 'My!F00bar-.Dash_board'){ |dash| }
+    FnordMetric.metric(:my_metric, :sum => :my_field)
+    widget = FnordMetric.widget(:my_widget, :metrics => :my_metric, :title => "My Widget", :type => :timeline)
+    dashboard.add_widget(widget)
+    dashboard.widgets.first.should == widget
+  end
+
+  it "should add a widget by name" do
+    dashboard = FnordMetric::Dashboard.new(:title => 'My!F00bar-.Dash_board'){ |dash| }
+    FnordMetric.metric(:my_metric, :sum => :my_field)
+    widget = FnordMetric.widget(:my_widget, :metrics => :my_metric, :title => "My Widget", :type => :timeline)
+    dashboard.add_widget(:my_widget)
+    dashboard.widgets.first.should == widget
+  end
+
+  it "should add the report on init (and to all widgets)" do
+    FnordMetric.metric(:my_metric, :sum => :my_field)
+    report = FnordMetric.report(:range => (4.days.ago..Time.now))
+    dashboard = FnordMetric::Dashboard.new(:title => 'My Foobar Dashboard', :report => report){ |dash|       
+      dash.add_widget FnordMetric.widget(:my_widget, :metrics => :my_metric, :title => "My Widget", :type => :timeline)
+    }
+    dashboard.report.should == report
+    dashboard.widgets.last.report.should == report
+  end
+
+  it "should add the report after init (and to all widgets)" do
+    FnordMetric.metric(:my_metric, :sum => :my_field)
+    report = FnordMetric.report(:range => (4.days.ago..Time.now))
+    dashboard = FnordMetric::Dashboard.new(:title => 'My Foobar Dashboard'){ |dash| 
+      dash.add_widget FnordMetric.widget(:my_widget, :metrics => :my_metric, :title => "My Widget", :type => :timeline)
+    }
+    dashboard.report.should == nil
+    dashboard.add_report(report)
+    dashboard.report.should == report
+    dashboard.widgets.last.report.should == report
+  end
+    
+  it "should call the config block" do
+   block_called = false
+   FnordMetric::Dashboard.new(:title => 'My Dashboard') do |dash|
+      block_called = true
+      dash.should be_a(FnordMetric::Dashboard)
+    end
+    block_called.should be_true
+  end
+
+end

data/_spec/event_spec.rb

@@ -0,0 +1,46 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+include FnordMetric
+
+describe "event" do
+
+  before(:each) do
+    Event.destroy_all
+  end
+
+  it "should track an event" do
+    event = Event.track!('_referral', :foobar => "fnord")
+    Event.last[:type].should == "_referral"
+    Event.last[:foobar].should == "fnord"
+  end
+
+  it "should track an event via the proxy method" do
+    FnordMetric.track('blubb', :foo => "bar")
+    FnordMetric::Event.last.foo.should == "bar"
+  end
+
+  it "should access info like a 'ostruct' object" do
+    event = Event.track!('_referral', :foobar => "fnord")
+    Event.last.type.should == "_referral"
+    Event.last.foobar.should == "fnord"
+  end
+
+  it "should insert a data point in the past" do
+    my_time = 23.minutes.ago
+    event = Event.track!('_referral', :foobar => "fnord", :time => my_time)
+    Event.last[:type].should == "_referral"
+    Event.last[:foobar].should == "fnord"
+    Event.last[:time].should == my_time.to_i
+  end
+
+  it "should save integer data" do
+    event = Event.track!('_test', :num => 23)
+    Event.last.num.should == 23
+  end
+
+  it "should save float data" do
+    event = Event.track!('_test', :num => 42.5)
+    Event.last.num.should == 42.5
+  end
+  
+end

data/_spec/widget_spec.rb

@@ -0,0 +1,107 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+describe FnordMetric::Widget do
+
+  before(:each) do
+    FnordMetric::Event.destroy_all
+  end
+
+  it "should remembe it's own title" do
+    widget = FnordMetric::Widget.new(:title => "My Widget")
+    widget.title.should == "My Widget"
+  end
+
+  it "should add the report on init" do
+  	FnordMetric.metric(:my_metric, :sum => :my_field)
+  	report = FnordMetric.report(:range => (4.days.ago..Time.now))
+  	widget = FnordMetric::Widget.new(:report => report)
+  	widget.report.should == report
+  end
+ 
+  it "should add the report after init" do
+  	FnordMetric.metric(:my_metric, :sum => :my_field)
+  	report = FnordMetric.report(:range => (4.days.ago..Time.now))
+  	widget = FnordMetric::Widget.new
+  	widget.report.should be_nil
+  	widget.add_report(report)
+  	widget.report.should == report
+  end
+
+  it "should define a new widget when given two metric-token" do
+    FnordMetric.metric(:first_metric, :count => :true)
+    FnordMetric.metric(:second_metric, :count => :true)
+    widget = FnordMetric::Widget.new(:metrics => [:first_metric, :second_metric], :title => "My Widget", :type => :timeline)
+    widget.metrics.length.should == 2
+    widget.metrics.first.should be_a(FnordMetric::CountMetric)
+    widget.metrics.first.token.should == :first_metric
+    widget.metrics.last.should be_a(FnordMetric::CountMetric)
+    widget.metrics.last.token.should == :second_metric
+  end
+
+  it "should define a new widget when given two metrics" do
+    my_metrics = [
+      FnordMetric.metric(:first_metric, :count => :true),
+      FnordMetric.metric(:second_metric, :count => :true)
+    ]
+    widget = FnordMetric::Widget.new(:metrics => my_metrics, :title => "My Widget", :type => :timeline)
+    widget.metrics.length.should == 2
+    widget.metrics.first.should be_a(FnordMetric::CountMetric)
+    widget.metrics.first.token.should == :first_metric
+    widget.metrics.last.should be_a(FnordMetric::CountMetric)
+    widget.metrics.last.token.should == :second_metric
+  end
+
+  it "should return the right ticks for 1h intervals" do
+    t = Time.now
+    widget = FnordMetric::Widget.new(:range => (t-2.days)..t, :tick => 1.hour)
+    widget.ticks.length.should == 49
+    ranges_should_match! widget.ticks.first, ((t-48.hours)..(t-47.hours))
+    ranges_should_match! widget.ticks.last, (t..(t+1.hour))
+  end
+
+  it "should generate a default range for daily graphs" do
+    widget = FnordMetric::Widget.new(:tick => 1.day)
+    Delorean.time_travel_to(Time.utc(1992,01,13,18,23,23)) do
+      widget.default_range.first.should == Time.utc(1991,12,15,00,00,00)
+      widget.default_range.last.should == Time.utc(1992,1,13,23,59,59)
+    end
+  end
+
+  it "should generate ticks with default range for daily graphs" do
+    widget = FnordMetric::Widget.new(:tick => 1.day)
+    Delorean.time_travel_to(Time.utc(1992,01,13,18,23,23)) do
+      widget.ticks.length.should == 30
+      widget.ticks.first.first.utc.should == Time.utc(1991,12,15,00,00,00)
+      widget.ticks.first.last.utc.should == Time.utc(1991,12,16,00,00,00)
+      widget.ticks.last.first.utc.should == Time.utc(1992,1,13,0,0,0)
+      widget.ticks.last.last.utc.should == Time.utc(1992,1,14,0,0,0)
+    end
+  end
+
+  it "should generate a default range for hourly graphs" do
+    widget = FnordMetric::Widget.new(:tick => 1.hour)
+    Delorean.time_travel_to(Time.utc(1992,01,13,18,23,23)) do
+      widget.default_range.first.should == Time.utc(1992,1,12,19,00,00)
+      widget.default_range.last.should == Time.utc(1992,1,13,18,59,59)
+    end
+  end
+
+  it "should generate a default range for hourly graphs" do
+    widget = FnordMetric::Widget.new(:tick => 1.hour)
+    Delorean.time_travel_to(Time.utc(1992,01,13,18,23,23)) do
+      widget.ticks.length.should == 24
+      widget.ticks.first.first.utc.should == Time.utc(1992,1,12,19,00,00)
+      widget.ticks.first.last.utc.should == Time.utc(1992,1,12,20,00,00)
+      widget.ticks.last.first.utc.should == Time.utc(1992,1,13,18,0,0)
+      widget.ticks.last.last.utc.should == Time.utc(1992,1,13,19,00,00)
+    end
+  end
+
+private
+  
+  def ranges_should_match!(a, b)
+    (a.first.to_i - b.first.to_i).should == 0
+    (a.last.to_i - b.last.to_i).should == 0
+  end
+
+end