gerbilcharts 0.0.3

data/test/test_Scratch.rb

@@ -0,0 +1,21 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestScratch < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+
+  def test_1
+    
+    g=GerbilCharts::SVGDC::SVGDC.new(300,200)
+    g.circle(40,50,20, :id => "What" )
+    g.render( :file => "/tmp/Scratch1.svg")
+
+  end
+  
+end
+

data/test/test_charts.rb

@@ -0,0 +1,119 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestCharts < Test::Unit::TestCase
+
+   attr_reader  :test_vector_tm1
+   attr_reader  :test_vector_tm2
+   attr_reader  :mod1, :mod2, :modbucket1
+  
+   def setup
+     @test_vector_tm1 = []
+     @test_vector_tm2 = []
+     @test_vector_tm3 = []
+     tbeg = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
+     sbeg = tbeg
+     sec_inc = 1000
+     
+     for i in (0..20)
+      @test_vector_tm1 << [sbeg + i*sec_inc, i*sec_inc*1000 ]
+      @test_vector_tm2 << [sbeg + i*sec_inc, i*sec_inc*1200 ]
+      @test_vector_tm3 << [sbeg + i*sec_inc, i*sec_inc*1000*rand() ]
+    end
+
+    @mod1 = GerbilCharts::Models::TimeSeriesGraphModel.new("External Gateway")
+    @mod1.add_tuples @test_vector_tm1
+  
+    @mod2 = GerbilCharts::Models::TimeSeriesGraphModel.new("209.216.22.220")
+    @mod2.add_tuples @test_vector_tm2
+  
+    @mod3 = GerbilCharts::Models::TimeSeriesGraphModel.new("udldev Print Server")
+    @mod3.add_tuples @test_vector_tm3
+  
+    @modgroup = GerbilCharts::Models::GraphModelGroup.new("Hosts")
+    @modgroup.add(@mod1)
+    @modgroup.add(@mod2)
+    @modgroup.add(@mod3)
+    
+    setup_bucketized_models()
+
+   end
+  
+  def setup_bucketized_models
+    # bucketized models
+     modbucket1 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new("Out Bw",60)
+     tbeg = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
+     sbeg = tbeg
+     
+     #second with some gaps
+    sbeg = tbeg
+    test_vector_bucket_1 = []
+    test_vector_bucket_1 << [sbeg + 60, 1000 ]
+    test_vector_bucket_1 << [sbeg + 120, 1000 ]
+    test_vector_bucket_1 << [sbeg + 180, 1000 ]
+    test_vector_bucket_1 << [sbeg + 239, 1000 ]
+    test_vector_bucket_1 << [sbeg + 295, 1000 ]
+    test_vector_bucket_1 << [sbeg + 296, 1000 ]
+    test_vector_bucket_1 << [sbeg + 297, 5000 ]
+    test_vector_bucket_1 << [sbeg + 298, 1000 ]
+    test_vector_bucket_1 << [sbeg + 360, 1000 ]
+    test_vector_bucket_1 << [sbeg + 420, 1000 ]
+    test_vector_bucket_1 << [sbeg + 480, 1000 ]
+    test_vector_bucket_1 << [sbeg + 530, 1000 ]
+    test_vector_bucket_1 << [sbeg + 604, 1000 ]
+    test_vector_bucket_1 << [sbeg + 800, 1000 ]
+    modbucket1.add_tuples(test_vector_bucket_1)
+    
+     #second with some gaps
+    modbucket2 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new("In Bw",60)
+    sbeg = tbeg
+    test_vector_bucket_2 = []
+    test_vector_bucket_2 << [sbeg + 10, 1800 ]
+    test_vector_bucket_2 << [sbeg + 20, 2600 ]
+    test_vector_bucket_2 << [sbeg + 22, 1000 ]
+    test_vector_bucket_2 << [sbeg + 60, 1000 ]
+    test_vector_bucket_2 << [sbeg + 120, 1900 ]
+    test_vector_bucket_2 << [sbeg + 180, 700 ]
+    test_vector_bucket_2 << [sbeg + 240, 5000 ]
+    test_vector_bucket_2 << [sbeg + 301, 1000 ]
+    test_vector_bucket_2 << [sbeg + 350, 1000 ]
+    test_vector_bucket_2 << [sbeg + 420, 100 ]
+    test_vector_bucket_2 << [sbeg + 470, 500 ]
+    test_vector_bucket_2 << [sbeg + 540, 1000 ]
+    modbucket2.add_tuples(test_vector_bucket_2)
+
+    @modgroupbucketized = GerbilCharts::Models::GraphModelGroup.new("Bandwidth")
+    @modgroupbucketized .add(modbucket1)
+    @modgroupbucketized .add(modbucket2)
+    
+  end
+  
+
+  # test a line chart
+  def test_line_1
+ 
+    mychart = GerbilCharts::Charts::LineChart.new( :width => 350, :height => 200, :style => 'brushmetal.css')
+    mychart.setmodelgroup(@modgroup)
+    mychart.render('/tmp/c_linechart1.svg')
+    
+  end   
+   
+  # test a bar chart
+  def test_bar_1
+ 
+    mychart = GerbilCharts::Charts::BarChart.new( :width => 300, :height => 150, :style => 'brushmetal.css')
+    mychart.setmodelgroup(@modgroup)
+    mychart.render('/tmp/c_barchart1.svg')
+    
+  end   
+   
+  # test a area chart
+  def test_stacked_area_1
+ 
+    mychart = GerbilCharts::Charts::StackedAreaChart.new( :width => 350, :height => 200, :style => 'brushmetal.css')
+    mychart.setmodelgroup(@modgroupbucketized)
+    mychart.render('/tmp/c_sachart1.svg')
+    
+  end   
+   
+end
+

data/test/test_gerbilcharts.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestGerbilcharts < Test::Unit::TestCase
+
+  def setup
+  end
+  
+  def test_truth
+    assert true
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,2 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/gerbilcharts'

data/test/test_models.rb

@@ -0,0 +1,118 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestModels < Test::Unit::TestCase
+
+  def setup
+	# test vector 
+	@tvector = []
+	@tvector << [ Time.local(1973,"Apr",2,8,30,0), 0 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,10), 0.5 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,11), 18 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,15), 911 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,18), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,19), 80 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,20), 98 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,45), 1002 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,58), 3014 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,31,0), 1002 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,0), 88 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,20), 882]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,21), 3015 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,36,0), 10 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,46,0), 1 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,0), 2 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,1), 3 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,5), 4 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,50,0), 59 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,58,0), 188 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,00,17), 4017 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,20,18), 18 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,40,20), 10 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,13,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,14,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,15,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,17,7), 100 ]
+
+
+  end
+  
+  # Test model simple
+  def test_model_simple
+  	m = GerbilCharts::Models::GraphModel.new("TestModelName")
+	assert m.name == "TestModelName"
+  end
+
+
+  # Test timeseries graph model
+  def test_timeseries_1
+  	p "--- Testing basic timeseries  model --- "
+   
+	# load this into a timeseries model
+	mod = GerbilCharts::Models::TimeSeriesGraphModel.new("TestModel1")
+	@tvector.each do |tpl|
+		mod.add (tpl[0],tpl[1])
+	end
+
+	#dbg_print_model(mod)
+
+	# crop over than 9:00 AM
+	mod.crop_older(Time.local(1973,"Apr",2,9,00,00))
+
+	#dbg_print_model(mod)
+  end
+
+  def dbg_print_model(mod)
+
+	# test various things about the model
+	rx,ry = mod.ranges
+	p "range x = #{rx} y = #{ry}"
+
+    # round ranges
+	rx,ry = mod.round_ranges
+	p "round range x = #{rx} y = #{ry}"
+
+	# labels
+	p "Labels are :"
+	p "First = #{rx.format_min_value}"
+	rx.each_label do |v,s|
+		p "v = #{v} s=#{s}"
+	end
+  end
+
+  # testing the bucketized timeseries 
+  # with bucket size 5 mins 
+  def test_bucketized_1
+  	p "--- Testing bucketized model --- "
+
+ 	# bucketized with  sec buckets
+	mod = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new("TestModel2",5 * 60)
+	@tvector.each do |tpl|
+		mod.add (tpl[0],tpl[1])
+	end
+
+	dbg_print_model(mod)
+
+	# print data points
+	mod.each_tuple do |x,y|
+		p "bkt #{Time.at(x)} = #{y}"
+	end
+  end
+
+  # test simple timeseries
+  def test_simple_group_1
+
+	p "Testing simple timeseries model group helper"
+
+    modelgroup = GerbilCharts::Models::SimpleTimeSeriesModelGroup.new( :title => "Sales figures",
+				   :timeseries  =>  (1..6).collect { |month| Time.local(2008,month) },
+				   :models =>       [ ["Bruce", 1, 10, 18, 28, 80,  122],
+									  ["Rex"  , 12,22, 45, 70, 218, 109], 
+									  ["Buzo" , 0, 23, 25, 40, 18,  59] 
+									]
+				 )
+	modelgroup.each_model { |mod| dbg_print_model(mod) }
+
+  end
+
+
+end

data/test/test_noob.rb

@@ -0,0 +1,81 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+require 'trafgen'
+
+# tests some easy to use mods
+# 	newbies enter here
+class TestChartsNoob < Test::Unit::TestCase
+
+
+  # test  sales figures of 3 sales people
+  # use a simple timeseries model 
+  def test_monthly_sales
+ 
+    mychart = GerbilCharts::Charts::LineChart.new( :width => 350, :height => 200, :style => 'brushmetal.css',
+												   :circle_data_points => true )
+
+    modelgroup = GerbilCharts::Models::SimpleTimeSeriesModelGroup.new( 
+				   :title => "Sales figures",
+				   :timeseries  =>  (1..6).collect { |month| Time.local(2008,month) },
+				   :models =>       [ ["Bruce", 1,  10, 18, 28, 80,  122],
+									  ["Rex"  , 112,22, 45, 70, 218, 309], 
+									  ["Buzo" , 0,  23, 25, 40, 18,  59] 
+									]
+				 )
+
+	mychart.modelgroup=modelgroup
+
+    mychart.render('/tmp/n_monthly_sales.svg')
+    
+  end   
+   
+  # test  daily traffic
+  def test_daily_traf_1
+ 
+    mychart = GerbilCharts::Charts::ImpulseChart.new( :width => 450, :height => 200, :style => 'brushmetal.css')
+
+	tend = Time.now
+	tbegin = tend - 3600*24
+
+	model1 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( "eth0", 3600 )
+	TimeSeriesDataGenerator.new(tbegin,tend,300,200000, 6000000).each_tuple do |t,v|
+		model1.add(t,v)
+	end
+
+	model2 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( "wan1", 3600 )
+	TimeSeriesDataGenerator.new(tbegin,tend,300,200000, 6000000).each_tuple do |t,v|
+		model2.add(t,v)
+	end
+
+    modelgroup = GerbilCharts::Models::GraphModelGroup.new( "External Traffic")
+	modelgroup.add model2
+	modelgroup.add model1
+
+	mychart.modelgroup=modelgroup
+    mychart.render('/tmp/n_daily_traffic.svg')
+    
+	# demo resuses the model in a different view (an area chart this time)
+    myareachart = GerbilCharts::Charts::AreaChart.new( :width => 450, :height => 200, :style => 'brushmetal.css')
+	myareachart.modelgroup=modelgroup
+    myareachart.render('/tmp/n_daily_traffic_area.svg')
+
+
+	# demo to reuse the model ina bar
+    mybarchart = GerbilCharts::Charts::BarChart.new( :width => 450, :height => 200, :style => 'brushmetal.css')
+	mybarchart.modelgroup=modelgroup
+    mybarchart.render('/tmp/n_daily_traffic_bar.svg')
+
+
+	# demo stacked area
+    mysachart = GerbilCharts::Charts::StackedAreaChart.new( :width => 450, :height => 200, :style => 'brushmetal.css')
+	mysachart.modelgroup=modelgroup
+    mysachart.render('/tmp/n_daily_traffic_sa.svg')
+
+
+  end   
+
+ 
+   
+end
+
+

data/test/test_ranges.rb

@@ -0,0 +1,135 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestRanges < Test::Unit::TestCase
+
+  def setup
+	# test vector 
+	@tvector = []
+	@tvector << [ Time.local(1973,"Apr",2,8,30,0), 0 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,10), 0.5 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,11), 18 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,15), 911 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,18), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,19), 80 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,20), 98 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,45), 1002 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,30,58), 3014 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,31,0), 1002 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,0), 88 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,20), 882]
+	@tvector << [ Time.local(1973,"Apr",2,8,32,21), 3015 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,36,0), 10 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,46,0), 1 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,0), 2 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,1), 3 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,47,5), 4 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,50,0), 59 ]
+	@tvector << [ Time.local(1973,"Apr",2,8,58,0), 188 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,00,17), 4017 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,20,18), 18 ]
+	@tvector << [ Time.local(1973,"Apr",2,9,40,20), 10 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,13,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,14,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,15,7), 100 ]
+	@tvector << [ Time.local(1973,"Apr",2,10,17,7), 100 ]
+
+  end
+  
+  # test raw range - simple version
+  def test_raw_range_1
+    r = GerbilCharts::Models::RawRange.new
+
+  	[10,20,10,0,0,1001,19920,882991.22].each do |v|
+		r.update v
+	end
+
+	r.min_max do |mn,mx|
+    	assert mn==0
+		assert mx==882991.22
+	end
+  end
+
+  # test - various methods
+  def test_raw_range_2
+    r = GerbilCharts::Models::RawRange.new
+  	[10,20,10,0,0,1001,19920,20001].each do |v|
+		r.update v
+	end
+
+	# update from another range
+	r2 = GerbilCharts::Models::RawRange.new
+	r2.update(-10)
+	r2.update 20002
+	r.update_r r2
+
+	# check if updated correctly
+	assert r.rmax == 20002
+	assert r.rmin == -10 
+
+	# check scaling 
+	fv = r.scale_factor(20002)
+	assert_in_delta(fv,1,0.001)
+	fv = r.scale_factor(10000)
+	assert_in_delta(fv,0.5,0.001)
+
+	# check if reset works
+	r.reset
+	assert_nil(r.rmax)
+	assert_nil(r.rmin)
+  end
+
+  # test round range
+  def test_round_range_1
+    r = GerbilCharts::Models::RawRange.new
+  	[10,20,10,0,0,1001,19920,20001].each do |v|
+		r.update v
+	end
+
+	rr = GerbilCharts::Models::RoundRange.new(r)
+	assert_equal(rr.rmax,50000)
+	assert_equal(rr.rmin,0)
+	assert_equal(rr.lmax,10000,"checking ideal label interval")
+
+	r.update(50001)
+	rr = GerbilCharts::Models::RoundRange.new(r)
+	assert_equal(rr.rmax,100000)
+	assert_equal(rr.lmax,25000,"checking ideal label interval for a 100K interval")
+
+  end
+
+  # test time hours
+  def test_round_time_range_1
+    r = GerbilCharts::Models::RawRange.new
+    tbase = Time.local(1973,"Apr",2,8,30,0)
+	
+	@tvector.each do |t|
+		r.update t[0]
+	end
+
+	rr = GerbilCharts::Models::RoundTimeRange.new(r)
+	rr.each_label do |v,s|
+	#	p "v = #{v} s=#{s}"
+	end
+	assert_equal(rr.rdelta,7200)   # 3 hr range
+	assert_equal(rr.ldelta,1800)   # label every 30 mins 
+
+	# add a 4 hr gap  (9hr range + 2 hr labels)
+	r.update( @tvector.last[0] + 4*3600)
+	rr = GerbilCharts::Models::RoundTimeRange.new(r)
+	rr.each_label do |v,s|
+	#	p "v = #{v} s=#{s}"
+	end
+	assert_equal(rr.rdelta,6*3600)
+	assert_equal(rr.ldelta,2*3600)
+
+	# add a new 10hr gap
+	r.update( @tvector.last[0] + 10*3600)
+	rr = GerbilCharts::Models::RoundTimeRange.new(r)
+	rr.each_label do |v,s|
+	#	p "v = #{v} s=#{s}"
+	end
+	assert_equal(rr.rdelta,43200)
+	assert_equal(rr.ldelta,10800)
+  end
+
+end