pulse_meter_visualizer 0.4.11

data/spec/pulse_meter/visualize/dsl/page_spec.rb

@@ -0,0 +1,62 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Page do
+  let(:interval){ 100 }
+  let(:sensor_name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(sensor_name, :ttl => 1000, :interval => interval) }
+  let(:title) { "page title" }
+  let(:page){ PulseMeter::Visualize::DSL::Page.new(title) }
+
+  describe '.new' do
+    it "should initialize title and widgets" do
+      p = page.to_data  
+      p.title.should == title
+      p.widgets.should == []
+    end
+  end
+
+  [:area, :line, :table, :pie, :gauge].each do |widget_type|
+
+    describe "##{widget_type}" do
+      it "should add #{widget_type} widget initialized by args to widgets" do
+        page.send(widget_type, :some_widget_name, sensor: sensor_name, width: 7)
+        w = page.to_data.widgets.first
+        w.width.should == 7
+        w.title.should == "some_widget_name"
+        w.sensors.first.name.should == sensor_name
+      end
+      
+      it "should add #{widget_type} widget initialized by block" do
+        page.send(widget_type, :some_widget_name) do |w|
+          w.sensor(sensor_name)
+          w.sensor(sensor_name)
+          w.title "foo_widget"
+          w.width 7
+        end
+        w = page.to_data.widgets.first
+        w.type.should == widget_type.to_s
+        w.width.should == 7
+        w.title.should == "foo_widget"
+        w.sensors.size.should == 2
+        w.sensors.first.name.should == sensor_name
+        w.sensors.last.name.should == sensor_name
+      end
+    end
+  
+  end
+
+  describe "#title" do
+    it "should set page title" do
+      page.title "Foo Title"
+      page.to_data.title.should == 'Foo Title'
+    end
+  end
+
+  describe "#to_data" do
+    it "should convert DSL data to Visualize::Page" do
+      page.to_data.should be_kind_of(PulseMeter::Visualize::Page)
+    end
+  end
+
+end
+

data/spec/pulse_meter/visualize/dsl/sensor_spec.rb

@@ -0,0 +1,30 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Sensor do
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+
+  describe '.new' do
+    it "should save passed name and create Visualize::Sensor with it" do
+      described_class.new(name).to_data.name.to_s.should == name
+    end
+  end
+
+  describe '#process_args' do
+    it "should pass args transparently to Visualize::Sensor" do
+      s = described_class.new(name)
+      s.process_args color: :red
+      s.to_data.color.to_s.should == 'red'
+    end
+  end
+
+  describe '#to_data' do
+    # actually tested above
+    it "should convert dsl data to sensor" do
+      described_class.new(name).to_data.should be_kind_of(PulseMeter::Visualize::Sensor)
+    end
+  end
+
+end
+

data/spec/pulse_meter/visualize/dsl/widget_spec.rb

@@ -0,0 +1,6 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widget do
+  it_should_behave_like "dsl widget"
+end
+

data/spec/pulse_meter/visualize/dsl/widgets/area_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widgets::Area do
+  it_should_behave_like "dsl widget"
+
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+  
+  let(:widget_name){ "some_widget" }
+  let(:w){ described_class.new(widget_name)  }
+
+  describe "#to_data" do
+    it "should produce PulseMeter::Visualize::Widgets::Area class" do
+      w.to_data.should be_kind_of(PulseMeter::Visualize::Widgets::Area)
+    end
+  end
+
+  describe "#values_label" do
+    it "should set values_label" do
+      w.values_label "some y-axis legend"
+      w.to_data.values_label.should == "some y-axis legend"
+    end
+  end
+
+  describe "#show_last_point" do
+    it "should set show_last_point" do
+      w.show_last_point true
+      w.to_data.show_last_point.should be_true
+    end
+  end
+
+  describe "#timespan" do
+    it "should set timespan" do
+      w.timespan 5
+      w.to_data.timespan.should == 5
+    end
+    it "should raise exception if timespan is negative" do
+      expect{ w.timespan(-1) }.to raise_exception(PulseMeter::Visualize::DSL::BadWidgetTimeSpan)
+    end
+  end
+
+end
+

data/spec/pulse_meter/visualize/dsl/widgets/gauge_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widgets::Gauge do
+  it_should_behave_like "dsl widget"
+
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+  
+  let(:widget_name){ "some_widget" }
+  let(:w){ described_class.new(widget_name)  }
+
+  describe "#to_data" do
+    it "should produce PulseMeter::Visualize::Widgets::Gauge class" do
+      w.to_data.should be_kind_of(PulseMeter::Visualize::Widgets::Gauge)
+    end
+  end
+
+end
+
+
+

data/spec/pulse_meter/visualize/dsl/widgets/line_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widgets::Line do
+  it_should_behave_like "dsl widget"
+
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+  
+  let(:widget_name){ "some_widget" }
+  let(:w){ described_class.new(widget_name)  }
+
+  describe "#to_data" do
+    it "should produce PulseMeter::Visualize::Widgets::Area class" do
+      w.to_data.should be_kind_of(PulseMeter::Visualize::Widgets::Line)
+    end
+  end
+
+  describe "#values_label" do
+    it "should set values_label" do
+      w.values_label "some y-axis legend"
+      w.to_data.values_label.should == "some y-axis legend"
+    end
+  end
+
+  describe "#show_last_point" do
+    it "should set show_last_point" do
+      w.show_last_point true
+      w.to_data.show_last_point.should be_true
+    end
+  end
+
+  describe "#timespan" do
+    it "should set timespan" do
+      w.timespan 5
+      w.to_data.timespan.should == 5
+    end
+    it "should raise exception if timespan is negative" do
+      expect{ w.timespan(-1) }.to raise_exception(PulseMeter::Visualize::DSL::BadWidgetTimeSpan)
+    end
+  end
+
+end
+

data/spec/pulse_meter/visualize/dsl/widgets/pie_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widgets::Pie do
+  it_should_behave_like "dsl widget"
+
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+  
+  let(:widget_name){ "some_widget" }
+  let(:w){ described_class.new(widget_name)  }
+
+  describe "#to_data" do
+    it "should produce PulseMeter::Visualize::Widgets::Pie class" do
+      w.to_data.should be_kind_of(PulseMeter::Visualize::Widgets::Pie)
+    end
+  end
+
+  describe "#values_label" do
+    it "should set values_label" do
+      w.values_label "some y-axis legend"
+      w.to_data.values_label.should == "some y-axis legend"
+    end
+  end
+
+  describe "#show_last_point" do
+    it "should set show_last_point" do
+      w.show_last_point true
+      w.to_data.show_last_point.should be_true
+    end
+  end
+
+end
+
+

data/spec/pulse_meter/visualize/dsl/widgets/table_spec.rb

@@ -0,0 +1,36 @@
+require 'spec_helper'
+
+describe PulseMeter::Visualize::DSL::Widgets::Table do
+  it_should_behave_like "dsl widget"
+
+  let(:interval){ 100 }
+  let(:name) { "some_sensor" }
+  let!(:sensor){ PulseMeter::Sensor::Timelined::Max.new(name, :ttl => 1000, :interval => interval) }
+  
+  let(:widget_name){ "some_widget" }
+  let(:w){ described_class.new(widget_name)  }
+
+  describe "#to_data" do
+    it "should produce PulseMeter::Visualize::Widgets::Area class" do
+      w.to_data.should be_kind_of(PulseMeter::Visualize::Widgets::Table)
+    end
+  end
+
+  describe "#show_last_point" do
+    it "should set show_last_point" do
+      w.show_last_point true
+      w.to_data.show_last_point.should be_true
+    end
+  end
+
+  describe "#timespan" do
+    it "should set timespan" do
+      w.timespan 5
+      w.to_data.timespan.should == 5
+    end
+    it "should raise exception if timespan is negative" do
+      expect{ w.timespan(-1) }.to raise_exception(PulseMeter::Visualize::DSL::BadWidgetTimeSpan)
+    end
+  end
+end
+

data/spec/pulse_meter/visualize/layout_spec.rb

@@ -0,0 +1,54 @@
+require "spec_helper"
+
+describe PulseMeter::Visualize::Layout do
+  let(:layout) do
+    l = PulseMeter::Visualize::DSL::Layout.new
+    l.page "page1" do |p|
+      p.line "w1"
+      p.line "w2"
+      p.gchart_options({a: 1})
+    end
+    l.page "page2" do |p|
+      p.line "w3"
+      p.line "w4"
+    end
+    l.to_data
+  end
+
+  describe "#page_infos" do
+    it "should return list of page infos with ids" do
+      layout.page_infos.should == [
+        {title: "page1", id: 1, gchart_options: {a: 1}},
+        {title: "page2", id: 2, gchart_options: {}}
+      ]
+    end
+  end
+
+  describe "#options" do
+    it "should return layout options" do
+      ldsl = PulseMeter::Visualize::DSL::Layout.new
+      ldsl.use_utc true
+      ldsl.gchart_options({a: 1})
+      l = ldsl.to_data
+      l.options.should == {use_utc: true, gchart_options: {a: 1}}
+    end
+  end
+
+  describe "#widget" do
+    it "should return data for correct widget" do
+      w = layout.widget(1, 0)
+      w.should include(id: 1, title: "w3")
+      w = layout.widget(0, 1, timespan: 123)
+      w.should include(id: 2, title: "w2")
+    end
+  end
+
+  describe "#widgets" do
+    it "should return data for correct widgets of a page" do
+      datas = layout.widgets(1)
+      datas[0].should include(id: 1, title: "w3")
+      datas[1].should include(id: 2, title: "w4")
+    end
+  end
+
+end

data/spec/pulse_meter/visualize/page_spec.rb

@@ -0,0 +1,153 @@
+require "spec_helper"
+
+describe PulseMeter::Visualize::Page do
+  let(:interval){ 100 }
+  let!(:a_sensor){ PulseMeter::Sensor::Timelined::Counter.new(:a_sensor, :ttl => 1000, :interval => interval, annotation: 'A') }
+  let!(:b_sensor){ PulseMeter::Sensor::Timelined::Counter.new(:b_sensor, :ttl => 1000, :interval => interval, annotation: 'B') }
+
+  let(:type) { :some_type }
+  let(:widget_name){ "some_widget" }
+
+  let(:redraw_interval){5}
+  let(:values_label){'xxxx'}
+  let(:width){6}
+  let(:show_last_point){false}
+  let(:timespan){interval * 2}
+  let(:a_color){'#FF0000'}
+  let(:b_color){'#FFFF00'}
+
+  let(:interval_start){ Time.at((Time.now.to_i / interval) * interval) }
+  let(:page_title){"Dashboard"}
+
+
+  let(:page) do
+    p = PulseMeter::Visualize::DSL::Page.new(page_title)
+    p.pie(widget_name) do |w|
+      w.redraw_interval redraw_interval
+      w.values_label values_label
+      w.width width
+      w.show_last_point show_last_point
+      w.timespan timespan
+
+      w.sensor :a_sensor, color: a_color
+      w.sensor :b_sensor, color: b_color
+    end
+    p.line(widget_name) do |w|
+      w.redraw_interval redraw_interval
+      w.values_label values_label
+      w.width width
+      w.show_last_point show_last_point
+      w.timespan timespan
+
+      w.sensor :a_sensor, color: a_color
+      w.sensor :b_sensor, color: b_color
+    end
+    p.to_data
+  end
+
+  before(:each) do
+    Timecop.freeze(interval_start + 1) do
+      a_sensor.event(12)
+      b_sensor.event(33)
+    end
+    Timecop.freeze(interval_start + interval + 1) do
+      a_sensor.event(111)
+    end
+  end
+
+  describe "#widget_data" do
+
+    it "should generate correct data of single widget" do
+      Timecop.freeze(interval_start + 2 * interval - 1) do
+        page.widget_data(0)[:id].should == 1
+        page.widget_data(1)[:id].should == 2
+      end
+    end
+
+    it "should generate correct data of single widget" do
+      Timecop.freeze(interval_start + 2 * interval - 1) do
+        page.widget_data(0)[:series].should ==
+          {
+            data: [
+              [a_sensor.annotation, 12],
+              [b_sensor.annotation, 33]
+            ],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          }
+        page.widget_data(1)[:series].should ==
+          {
+            titles: [a_sensor.annotation, b_sensor.annotation],
+            rows: [[interval_start.to_i * 1000, 12, 33]],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          }
+      end
+
+      Timecop.freeze(interval_start + 2 * interval - 1) do
+        page.widget_data(0, timespan: 0)[:series].should ==
+          {
+            data: [
+              [a_sensor.annotation, 12],
+              [b_sensor.annotation, 33]
+            ],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          }
+        page.widget_data(1, timespan: 1)[:series].should ==
+          {
+            titles: [a_sensor.annotation, b_sensor.annotation],
+            rows: [],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          }
+
+      end
+
+
+    end
+  end
+
+  describe "#widget_datas" do
+    it "should generate correct ids for all widgets" do
+      Timecop.freeze(interval_start + 2 * interval - 1) do
+        page.widget_datas.map{|h| h[:id]}.should == [1,2]
+      end
+    end
+
+    it "should generate correct series data of all widgets" do
+      Timecop.freeze(interval_start + 2 * interval - 1) do
+
+        page.widget_datas.map{|h| h[:series]}.should == [
+          {
+            data: [
+              [a_sensor.annotation, 12],
+              [b_sensor.annotation, 33]
+            ],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          },
+          {
+            titles: [a_sensor.annotation, b_sensor.annotation],
+            rows: [[interval_start.to_i * 1000, 12, 33]],
+            options: [
+              {color: a_color},
+              {color: b_color}
+            ]
+          }
+        ]
+      end
+
+    end
+  end
+end