fnordmetric 0.3.2 → 0.5.0

data/spec/context_spec.rb

@@ -0,0 +1,42 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+describe FnordMetric::Context do
+
+  before(:all) do
+    @redis = Redis.new
+    @redis_wrap = RedisWrap.new(@redis)
+  end
+
+  before(:each) do
+    @redis.keys("fnordmetrictest*").each { |k| @redis.del(k) }  
+  end
+
+  it "should fetch a gauge by key"
+  it "should fetch a gauge by gauge"
+  it "should raise an error if unable to fetch a gauge"
+
+  it "should expose the current session_key" do
+    ns = FnordMetric::Namespace.new(
+      :myns_253,
+      :redis_prefix => "fnordmetrictest"      
+    )
+    ns.opt_event(:fnordbar, {}) do
+      session_key.should == "145d3f6dee1a770e3a3c550b3993dc81"
+    end
+    ns.ready!(@redis_wrap).announce(
+      :_eid => "35r2423",
+      :_time => Time.now.to_i, 
+      :_type => "fnordbar", 
+      :_session => "sess213"
+    )
+  end
+
+  it "should instance-eval the handler on call" do 
+    Thread.current["fnord_123"] = false
+    my_block = proc{ Thread.current["fnord_123"] = "35r25" }   
+    context = FnordMetric::Context.new({}, my_block)
+    context.call({}, nil)
+    Thread.current["fnord_123"].should == "35r25"
+  end
+
+end

data/spec/dashboard_spec.rb

@@ -3,12 +3,10 @@ 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 = FnordMetric::Dashboard.new(:title => 'My Foobar Dashboard')
     dashboard.title.should == 'My Foobar Dashboard'
   end
 
@@ -18,50 +16,12 @@ describe FnordMetric::Dashboard do
   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
+    pending("fix this")
+    #dashboard = FnordMetric::Dashboard.new(:title => 'My!F00bar-.Dash_board'){ |dash| }
+    #FnordMetric.metric(:my_metric, :sum => :my_field)
+    #idget = FnordMetric.widget(:my_widget, :metrics => :my_metric, :title => "My Widget", :type => :timeline)
+    #dashboard.add_widget(widget)
+    #dashboard.widgets.first.should == widget
   end
 
 end

data/spec/event_spec.rb

@@ -1,46 +1,127 @@
 require ::File.expand_path('../spec_helper.rb', __FILE__)
 
-include FnordMetric
+describe FnordMetric::Event do
 
-describe "event" do
+  include FnordMetric
 
-  before(:each) do
-    Event.destroy_all
-  end
+  before(:all) do
+    @now = Time.utc(1992,01,13,5,23,23).to_i   
+    @redis = Redis.new
+    @redis_wrap = RedisWrap.new(@redis)
 
-  it "should track an event" do
-    event = Event.track!('_referral', :foobar => "fnord")
-    Event.last[:type].should == "_referral"
-    Event.last[:foobar].should == "fnord"
-  end
+    @namespace = "fnordmetric-test-ns123" 
+    @timeline = "#{@namespace}-timeline"
 
-  it "should track an event via the proxy method" do
-    FnordMetric.track('blubb', :foo => "bar")
-    FnordMetric::Event.last.foo.should == "bar"
+    @opts = {         
+      :namespace_prefix => "#{@namespace}",
+      :redis_prefix => "fnordmetric-test",
+      :redis => @redis
+    }  
   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
+  describe "finding events" do
 
-  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
+    before(:each) do        
+      @redis.keys("fnordmetric-test-*").each { |k| @redis.del(k) }     
+    end
 
-  it "should save integer data" do
-    event = Event.track!('_test', :num => 23)
-    Event.last.num.should == 23
-  end
+    it "should find all events" do
+      create_event("242342", {:_type => "foo", :_time => @now})
+      create_event("453484", {:_type => "foo", :_time => @now})
+      Event.all(@opts).length.should == 2
+    end
+
+    it "should find all events and return event objects" do
+      create_event("434454", {:_type => "foo", :_time => @now})
+      Event.all(@opts).first.should be_a(FnordMetric::Event)
+    end
+
+    it "should find all events and returnevent objects with time" do
+      create_event("352234", {:_type => "Fn0rd", :blah => :blubb, :_time => @now})
+      events = Event.all(@opts) 
+      events.first.time.to_i.should == @now
+    end
+
+    it "should find an event and return a event object" do
+      create_event("756753", {:_type => "Fn0rd", :_time => @now})
+      event = Event.find("756753", @opts)
+      event.should be_a(FnordMetric::Event)
+      event.type.should == "Fn0rd"
+    end
+
+    it "should find an event and return a event object with data" do
+      create_event("53454", {:_type => "Fn0rd", :blah => :blubb, :_time => @now})
+      event = Event.find("53454", @opts)  
+      event.data(:blah).should == "blubb"
+    end
+
+    it "should find an event and return a event object with id" do
+      create_event("5262435", {:_type => "Fn0rd", :blah => :blubb, :_time => @now})
+      event = Event.find("5262435", @opts) 
+      event.id.should == "5262435"
+    end
+
+    it "should find all in the correct order" do
+      create_event("5645642", {:_type => "foo", :_time => @now-17})
+      create_event("2342366", {:_type => "foo", :_time => @now-23})
+      create_event("3452345", {:_type => "foo", :_time => @now-42})
+      create_event("6345345", {:_type => "foo", :_time => @now-5})
+      Event.all(@opts).length.should == 4
+      Event.all(@opts)[0].id.should == "6345345"
+      Event.all(@opts)[1].id.should == "5645642"
+      Event.all(@opts)[2].id.should == "2342366"
+      Event.all(@opts)[3].id.should == "3452345"
+    end
+
+    it "should find all events since a given time, including that exact time" do
+      create_event("3452345", {:_type => "foo", :_time => @now-42})
+      create_event("2342366", {:_type => "foo", :_time => @now-23})
+      create_event("5645642", {:_type => "foo", :_time => @now-17})
+      create_event("6345345", {:_type => "foo", :_time => @now-5})
+      Event.all(@opts).length.should == 4
+      Event.all(@opts.merge(:since => @now-42)).length.should == 4
+      Event.all(@opts.merge(:since => @now-23)).length.should == 3
+      Event.all(@opts.merge(:since => @now-22)).length.should == 2
+      Event.all(@opts.merge(:since => @now-17)).length.should == 2
+      Event.all(@opts.merge(:since => @now-16)).length.should == 1
+      Event.all(@opts.merge(:since => @now-5)).length.should == 1
+    end
+
+    it "should find a maximum number of events" do
+      create_event("3452345", {:_type => "foo", :_time => @now-42})
+      create_event("2342366", {:_type => "foo", :_time => @now-23})
+      create_event("5645642", {:_type => "foo", :_time => @now-17})
+      create_event("6345345", {:_type => "foo", :_time => @now-5})
+      Event.all(@opts).length.should == 4
+      Event.all(@opts.merge(:limit => 2)).length.should == 2
+      Event.all(@opts.merge(:limit => 2)).first.id.should == "6345345"
+      Event.all(@opts.merge(:limit => 2)).last.id.should == "5645642"
+    end
+
+    it "should find all events by type" do
+      namespace = Namespace.new(:ns123, :redis_prefix => "fnordmetric-test")
+      namespace.ready!(@redis_wrap).announce(
+        :_type => "fn0rd",
+        :_time => @now
+      )
+      namespace.ready!(@redis_wrap).announce(
+        :_type => "f00bar",
+        :_time => @now
+      )
+      namespace.ready!(@redis_wrap).announce(
+        :_type => "fn0rd",
+        :_time => @now
+      )
+      Event.by_type('fn0rd', @opts).length.should == 2
+      Event.by_type('f00bar', @opts).length.should == 1
+    end
+
+    def create_event(event_id, event_data)
+      @redis_wrap.zadd(@timeline, event_data.delete(:_time), event_id)
+      @redis.set("fnordmetric-test-event-#{event_id}", event_data.to_json)        
+    end
 
-  it "should save float data" do
-    event = Event.track!('_test', :num => 42.5)
-    Event.last.num.should == 42.5
   end
-  
+
+
 end

data/spec/gauge_modifiers_spec.rb

@@ -0,0 +1,276 @@
+require ::File.expand_path('../spec_helper.rb', __FILE__)
+
+describe FnordMetric::GaugeModifiers do
+
+  before(:all) do    
+    @now = Time.utc(1992,01,13,5,23,23).to_i    
+    @redis = Redis.new
+    @redis_wrap = RedisWrap.new(@redis)
+  end
+
+  before(:each) do
+    @redis.keys("fnordmetrics-myns*").each { |k| @redis.del(k) }  
+  end
+
+  describe "increment non-progressive gauges" do
+
+    it "should increment a non-progressive gauge by 1" do
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_234-10"
+      @redis.hset(gauge_key, "695280200", "12")  
+      create_gauge_context({
+        :key => "mygauge_234", 
+        :tick => 10,
+      }, proc{ 
+        incr(:mygauge_234, 1)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "13"
+    end
+
+    it "should increment a non-progressive gauge by 5" do
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_224-10"
+      @redis.hset(gauge_key, "695280200", "18")  
+      create_gauge_context({
+        :key => "mygauge_224", 
+        :tick => 10,
+      }, proc{ 
+        incr(:mygauge_224, 5)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "23"
+    end
+
+    it "should increment a non-progressive gauge by event_value" do
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_253-10"
+      @redis.hset(gauge_key, "695280200", "11")  
+      create_gauge_context({
+        :key => "mygauge_253", 
+        :tick => 10,
+      }, proc{ 
+        incr(:mygauge_253, data[:myval].to_i)  
+      }).tap do |context|      
+        event = { :_time => @now, :myval => "25" }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "36"
+    end
+
+  end
+  
+
+  describe "increment progressive gauges" do
+
+    it "should increment a progressive gauge by 1" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_123-10"
+      @redis.hset(gauge_key, "695280200", "23")  
+      @redis.set(gauge_key+"-head",  "23")  
+      create_gauge_context({
+        :key => "mygauge_123", 
+        :tick => 10,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_123, 1)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "24"
+      @redis.get(gauge_key+"-head").should == "24"
+    end
+
+    it "should increment a progressive gauge by 5" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_125-10"
+      @redis.hset(gauge_key, "695280200", "22")  
+      @redis.set(gauge_key+"-head",  "22")  
+      create_gauge_context({
+        :key => "mygauge_125", 
+        :tick => 10,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_125, 5)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "27"
+      @redis.get(gauge_key+"-head").should == "27"
+    end
+
+    it "should increment a progressive gauge by 1 and copy head" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_128-10"    
+      @redis.hdel(gauge_key, "695280200")
+      @redis.set(gauge_key+"-head", "17")  
+      create_gauge_context({
+        :key => "mygauge_128", 
+        :tick => 10,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_128, 3)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "20"
+      @redis.get(gauge_key+"-head").should == "20"
+    end
+
+    it "should increment a progressive gauge by 5 and copy head" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_121-10"    
+      @redis.hdel(gauge_key, "695280200")
+      @redis.set(gauge_key+"-head", "19")  
+      create_gauge_context({
+        :key => "mygauge_121", 
+        :tick => 10,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_121, 6)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "25"
+      @redis.get(gauge_key+"-head").should == "25"
+    end
+
+    it "should raise an error if incr is called on a 3d gauge" do
+      create_gauge_context({
+        :key => "mygauge_167", 
+        :tick => 10,
+        :three_dimensional => true
+      }, proc{ 
+        incr(:mygauge_167, 1)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        lambda{
+          context.call(event, @redis_wrap)
+        }.should raise_error(RuntimeError)
+      end
+    end
+
+  end
+
+  describe "increment uniquely by session_key" do
+
+    it "should increment_unique a non-progressive gauge" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_963-10"    
+      @redis.hset(gauge_key, "695280200", "54")
+      @redis.set(gauge_key+"-695280200-sessions-count", 5)
+      create_gauge_context({
+        :key => "mygauge_963", 
+        :unique => true,
+        :tick => 10
+      }, proc{ 
+        incr(:mygauge_963, 30)  
+      }).tap do |context|      
+        event = { :_time => @now, :_session_key => "mysesskey" }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "84"
+      @redis.get(gauge_key+"-695280200-sessions-count").should == "6"
+      @redis.smembers(gauge_key+"-695280200-sessions").should == ["mysesskey"]
+    end
+
+    it "should not increment_unique a non-progressive gauge if session is known" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_966"    
+      @redis.hset(gauge_key, "695280200", "54")
+      @redis.set(gauge_key+"-695280200-sessions-count", 5)
+      @redis.sadd(gauge_key+"-695280200-sessions", "mysesskey")
+      create_gauge_context({
+        :key => "mygauge_966", 
+        :unique => true,
+        :tick => 10
+      }, proc{ 
+        incr(:mygauge_966, 30)  
+      }).tap do |context|      
+        event = { :_time => @now, :_session_key => "mysesskey" }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "54"
+      @redis.get(gauge_key+"-695280200-sessions-count").should == "5"
+      @redis.smembers(gauge_key+"-695280200-sessions").should == ["mysesskey"]
+    end
+
+    it "should not increment_unique a non-progressive gauge w/o session" do
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_966"    
+      @redis.hset(gauge_key, "695280200", "54")
+      @redis.set(gauge_key+"-695280200-sessions-count", 5)
+      create_gauge_context({
+        :key => "mygauge_966", 
+        :unique => true,
+        :tick => 10
+      }, proc{ 
+        incr(:mygauge_966, 30)  
+      }).tap do |context|      
+        event = { :_time => @now }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "54"
+      @redis.get(gauge_key+"-695280200-sessions-count").should == "5"
+      @redis.smembers(gauge_key+"-695280200-sessions").should == []
+    end
+
+
+    it "should increment_unique a non-progressive gauge" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_963-10"    
+      @redis.hset(gauge_key, "695280200", "54")
+      @redis.set(gauge_key+"-progressive-sessions-count", 5)
+      create_gauge_context({
+        :key => "mygauge_963", 
+        :tick => 10,
+        :unique => true,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_963, 30)  
+      }).tap do |context|      
+        event = { :_time => @now, :_session_key => "mysesskey" }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "84"
+      @redis.get(gauge_key+"-progressive-sessions-count").should == "6"
+      @redis.smembers(gauge_key+"-progressive-sessions").should == ["mysesskey"]
+    end
+
+    it "should not increment_unique a non-progressive gauge if session is known" do  
+      gauge_key = "fnordmetrics-myns-gauge-mygauge_966"    
+      @redis.hset(gauge_key, "695280200", "54")
+      @redis.set(gauge_key+"-progressive-sessions-count", 5)
+      @redis.sadd(gauge_key+"-progressive-sessions", "mysesskey")
+      create_gauge_context({
+        :key => "mygauge_966", 
+        :tick => 10,
+        :unique => true,
+        :progressive => true
+      }, proc{ 
+        incr(:mygauge_966, 30)  
+      }).tap do |context|      
+        event = { :_time => @now, :_session_key => "mysesskey" }
+        context.call(event, @redis_wrap)
+      end
+      @redis.hget(gauge_key, "695280200").should == "54"
+      @redis.get(gauge_key+"-progressive-sessions-count").should == "5"
+      @redis.smembers(gauge_key+"-progressive-sessions").should == ["mysesskey"]
+    end
+
+  end
+
+  it "should increment a field on a three-dimensional gauge by 1"
+  it "should increment a field on a three-dimensional gauge by 5"
+  it "should raise an error if incr_field is called on a 2d gauge"
+
+private
+
+  def create_gauge_context(opts, block)
+    gauge = FnordMetric::Gauge.new({
+      :key_prefix => "fnordmetrics-myns"
+    }.merge(opts))      
+    FnordMetric::Context.new({
+      :gauges => { opts[:key].intern => gauge }
+    }, block) 
+  end
+
+
+end