gerbilcharts 0.5.9 → 0.6.8

data/test/test_negatives.rb

@@ -1,39 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-class TestLines  < Test::Unit::TestCase
-
-   attr_reader  :test_vector_tm1
-   attr_reader  :test_vector_tm2
-   attr_reader  :mod1, :mod2, :modbucket1
-  
-   def setup
-     @test_vector_tm3 = []
-     tbeg = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
-     sbeg = tbeg
-     sec_inc = 50
-     
-	 range = (-7000..+4000)
-     for i in (0..20)
-      @test_vector_tm3 << [sbeg + i*sec_inc, range.min + range.count * rand() ]
-     end
-
-  
-    @mod3 = GerbilCharts::Models::TimeSeriesGraphModel.new("udldev Print Server")
-    @mod3.add_tuples @test_vector_tm3
-  
-    @modgroup = GerbilCharts::Models::GraphModelGroup.new("Hosts")
-    @modgroup.add(@mod3)
-    
-   end
-  
-  # test a line chart
-  def test_line_1
- 
-    mychart = GerbilCharts::Charts::AreaChart.new( :width => 350, :height => 200, :style => 'inline:brushmetal.css',
-												   :enabletimetracker => true )
-    mychart.setmodelgroup(@modgroup)
-    mychart.render('/tmp/neg_linechart1.svg')
-    
-  end   
-   
-end

data/test/test_noob.rb

@@ -1,86 +0,0 @@
-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::SquareLineChart.new( :width => 350, :height => 200, :style => 'inline:brushmetal.css',
-						   :circle_data_points => true, :scaling_y => :auto,
-						   :javascripts => ['/tmp/gerbil.js','/tmp/prototype.js'] )
-
-    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 => 'inline:brushmetal.css',
-						       :scaling_y => :auto, :auto_tooltips => true ,
-		                		       :javascripts => ['/tmp/gerbil.js' , '/tmp/prototype.js' ],
-		                   		       :filter => 'LikeButton'  )
-	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', :auto_tooltips => true)
-	mybarchart.modelgroup=modelgroup
-    mybarchart.render('/tmp/n_daily_traffic_bar.svg')
-
-
-	# demo stacked area
-    mysachart = GerbilCharts::Charts::StackedAreaChart.new( :width => 450, :height => 200, :style => 'inline:brushmetal.css',
-							    :scaling_y => :auto, :auto_tooltips => true ,
- 		                		         :javascripts => ['/tmp/gerbil.js' , '/tmp/prototype.js' ])
-	mysachart.modelgroup=modelgroup
-    mysachart.render('/tmp/n_daily_traffic_sa.svg')
-
-
-  end   
-
- 
-   
-end
-
-

data/test/test_pie.rb

@@ -1,43 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require 'trafgen'
-
-# 	test pie chart 
-class TestPie < Test::Unit::TestCase
-
-
-  # test  sales figures of 3 sales people
-  # show in a pie chart 
-  def test_monthly_sales
- 
-
-    modelgroup = GerbilCharts::Models::SimpleTimeSeriesModelGroup.new( 
-				   :title => "Sales figures",
-				   :timeseries  =>  (1..6).collect { |month| Time.local(2008,month) },
-				   :models =>       [ ["Bruce", 1,  10, 18, 28, 80,  1340.7890]
-						      #["Rex"  , 112,22, 45, 70, 218, 3098.98]
-						     # ["Sharmila", 112,22, 45, 70, 218, 245] 
-						      #["Wasim", 112,22, 45, 70, 218, 145], 
-						     # ["Buzo" , 0,  23, 25, 40, 18,  59], 
-						      #["Vipin", 145,112, 22, 45, 18, 70],
-						     # ["label", 145,112, 22, 45, 18, 240],
-						     # ["9th item ", 145,112, 22, 45, 18, 45],
-						     # ["Others ", 145,112, 22, 45, 18, 15],
-						     # ["VIVEK", 145,112, 22, 45, 18, 170]
-									]
-				 )
-
-    mychart = GerbilCharts::Charts::PieChart.new( :width => 350, :height => 200, 
-				:style => 'inline:brushmetal.css', :auto_tooltips => true ,
-				:javascripts => ['/tmp/gerbil.js' , '/tmp/prototype.js' ],
-				:filter => 'LikeButton' 
-				)
-    mychart.modelgroup=modelgroup
-    mychart.render("/tmp/pie_monthly_sales.svg")
-  end   
-   
- 
-   
-end
-
-

data/test/test_ranges.rb

@@ -1,169 +0,0 @@
-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
-
-  def test_negative_range
-
-    r = GerbilCharts::Models::RawRange.new
-  	[-11000,19920,20001].each do |v|
-		r.update v
-	end
-
-	rr = GerbilCharts::Models::RoundRange.new(r)
-	assert_equal(rr.rmax,50000)
-	assert_equal(rr.rmin,-20000)
-	assert_equal(rr.lmax,25000,"checking ideal label interval")
-
-	r.update(-18000)
-	rr = GerbilCharts::Models::RoundRange.new(r)
-	assert_equal(rr.lmax,25000,"checking ideal label interval for a 100K interval")
-
-  end
-
-  def test_long_time_range
-
-    r = GerbilCharts::Models::RawRange.new
-    tbase = Time.local(1973,"Apr",2,8,30,0)
-	r.update tbase
-	r.update(tbase+100000)
-
-	rr = GerbilCharts::Models::RoundTimeRange.new(r)
-
-	rr.each_label do |v,s|
-		p "v = #{v} s=#{s}"
-	end
-
-  end
-
-
-end

data/test/test_render_string.rb

@@ -1,38 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require 'trafgen'
-
-# test if render to string works correctly
-class TestRenderString  < Test::Unit::TestCase
-
-
-  # test  sales figures of 3 sales people
-  # use a simple timeseries model 
-  # output to string finally
-  def test_string_render
- 
-    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
-
-	strout =  mychart.render_string
-
-	# a large enough string (basic test a large enough string generated)
-	assert strout.size > 1000 
-
-	# the string SVG is present in the out (very basic test)
-	assert strout.match("SVG")
-  end   
-
-end
-

data/test/test_sa.rb

@@ -1,88 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require './trafgen'
-
-# tests some easy to use mods
-# 	newbies enter here
-class TestChartsNoob < Test::Unit::TestCase
-
-  def setup
-
-     @test_vectors = { 
-	 			"eth0"=>  [100, 200, 4000,4001, 2001, 2999,8000, 19000,38000,3173000, 78000,1200,1000010] ,
-	 			"wlan0"=> [600,1200,84000,14001,22001,2209,48000,1900, 3800,  873000,478000,1121200,4000010] ,
-				}
-
-	 @tbegin = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
-     @tend = @tbegin + 10000     # for more than 1 hour 
-     #@tend = @tbegin + 4000     # for more than 1 hour 
-     #@tend = @tbegin + 22*86400     # for more than 1 hour 
-  end
-
-  def mk_models1
-	modelarr = []
-	 @test_vectors.each_pair do |k,v|
-			tb = @tbegin.clone
-			mod  = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( k, 300 )
-			v.each do | val |
-				mod.add(tb,val)
-				tb = tb + 300
-			end
-			modelarr << mod 
-	end
-	modelarr 
-  end
-
-  def mk_models2
-
-	# between 200K and 6M
-	%w(eth0 eth1 eth2 wlan0 wlan1 br0:1 bridge0:2).collect do |n|
-			mk_mod(n,200000,6000000)
-	end
-
-  end
-
-  def mk_mod(name,min,max)
-	model1 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new(name, 300 )
-	TimeSeriesDataGenerator.new(@tbegin,@tend,300,min, max).each_tuple do |t,v|
-		model1.add(t,v)
-	end
-	return model1
-  end
-
-
-
-  # test  daily traffic
-  def test_daily_traf_1
- 
-
-	modelarr = []
-	#modelarr = mk_models2
-	modelarr << mk_mod("fixed-11",11000000,11000000)
-	modelarr << mk_mod("fixed-3",  3000000, 3000000)
-
-	refmod = mk_mod("ref", 60000000, 75000000)
-
-	# modelgroup 
-    modelgroup = GerbilCharts::Models::GraphModelGroup.new( "External Traffic")
-	modelarr.each { |m| modelgroup.add(m) }
-	#modelgroup.ref_model=refmod
-
-	# stacked area
-    mysachart = GerbilCharts::Charts::StackedAreaChart.new( :width => 750, :height => 400, 
-								:style => 'inline:brushmetal.css',
- 		                	    :javascripts => ['/tmp/gerbil.js' , '/tmp/prototype.js' ],
-								:toolhrefs => [ ["View Trends", "/trends"], 
-												["Retro analysis", "/retro"],
-												]  )
-	mysachart.modelgroup=modelgroup
-    mysachart.render('/tmp/n_daily_traffic_sa.svg')
-
-
-  end   
-
- 
-   
-end
-
-