gerbilcharts 0.5.9 → 0.6.8

data/test/test_Scratch.rb

@@ -1,21 +0,0 @@
-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_bar.rb

@@ -1,39 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require 'trafgen'
-
-# 	test pie chart 
-class TestBar < 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,  140],
-						      ["Rex"  , 112,22, 45, 70, 218, 309], 
-						      ["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],
-						      ["covad11.covad.nc.us", 145,112, 22, 45, 18, 240],
-						      ["very very very long name 9th item ", 145,112, 22, 45, 18, 45],
-						      ["192.168.201.200 ", 145,112, 22, 45, 18, 15],
-						      ["192.168.201.200 ", 145,112, 22, 45, 18, 15],
-						      ["Others ", 145,112, 22, 45, 18, 15],
-						      ["VIVEK", 145,112, 22, 45, 18, 170]
-									]
-				 )
-   mychart = GerbilCharts::Charts::BarChart.new( :width => 300, :height => 200, 
-					:style => 'inline:brushmetal.css', :auto_tooltips => true ,
-					:javascripts => ['/tmp/gerbil.js', '/tmp/prototype.js'],
-					:filter => 'LikeButton' 
-				       	        )
-    mychart.modelgroup=modelgroup
-    mychart.render('/tmp/bar_monthly_sales.svg')
-  end   
-end
-
-

data/test/test_bubble.rb

@@ -1,52 +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
-
-
-  # alerts 
-  def test_alerts
- 
-    mychart = GerbilCharts::Charts::BubbleChart.new( :width => 650, :height => 200, 
-														 :style => 'inline:brushmetal.css', 
-						   							    :javascripts => ['inline:/tmp/gerbil.js','inline:/tmp/prototype.js'] )
-
-
-	tend = Time.now
-	tbegin = tend - 3600*24
-
-	model1 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( "eth0", 3600 )
-	TimeSeriesDataGenerator.new(tbegin,tend,300,1000, 5000 ).each_tuple do |t,v|
-		model1.add(t,v)
-	end
-
-	model2 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( "wan1", 3600 )
-	TimeSeriesDataGenerator.new(tbegin,tend,300,2, 20).each_tuple do |t,v|
-		model2.add(t,v)
-	end
-
-	model3 = GerbilCharts::Models::BucketizedTimeSeriesGraphModel.new( "fiber0", 3600 )
-	TimeSeriesDataGenerator.new(tbegin,tend,1800,0, 10).each_tuple do |t,v|
-		model3.add(t,v)
-	end
-
-    modelgroup = GerbilCharts::Models::GraphModelGroup.new( "External Traffic")
-	modelgroup.add model2
-	modelgroup.add model1
-	modelgroup.add model3
-
-
-	mychart.modelgroup=modelgroup
-
-    mychart.render('/tmp/n_bubble.svg')
-    
-  end   
-   
-
-   
-end
-
-

data/test/test_charts.rb

@@ -1,122 +0,0 @@
-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', :auto_tooltips=> true,
-					:javascripts => {'/tmp/gerbil.js' => false, '/tmp/prototype.js' => false , '/tmp/scriptaculous.js' => false}
-					)
-    mychart.setmodelgroup(@modgroupbucketized)
-    mychart.render('/tmp/c_sachart1.svg')
-    
-  end   
-   
-end
-

data/test/test_conversation.rb

@@ -1,34 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require 'trafgen'
-
-# test conversation bar chart 
-class TestConversation < Test::Unit::TestCase
-
-  def test_monthly_sales
-    modelgroup = GerbilCharts::Models::MatrixModel.new("Conversation Ring Chart")
-   
-    modelgroup.add("192.168.1.25","192.168.1.20",500)
-    modelgroup.add("192.168.1.25","192.168.1.21",7500)
-    modelgroup.add("192.168.1.25","192.168.1.22",6500)
-    modelgroup.add("192.168.1.25","192.168.1.23",5500)
-    modelgroup.add("192.168.1.25","192.168.1.24",4500)
-    modelgroup.add("192.168.1.25","192.168.1.26",10500)
-    modelgroup.add("192.168.1.25","192.168.1.27",500)
-    modelgroup.add("192.168.1.25","192.168.1.28",2500)
-    modelgroup.add("192.168.1.25","192.168.1.29",3500)
-    modelgroup.add("192.168.1.25","192.168.1.30",500) 
-
-    modelgroup.calc_matrix   
-
-    mychart = GerbilCharts::Charts::ConversationRing.new( :width => 450, :height => 250,
-                                                     :style => 'inline:brushmetal.css', :auto_tooltips => true ,
-                                                     :javascripts => ['/tmp/gerbil.js', '/tmp/prototype.js'],
-                                                     :filter => 'LikeButton'
-                                                   )
- 
-    mychart.modelgroup = modelgroup
-    mychart.render('/tmp/con_monthly_sales.svg')
-
-  end   
-end

data/test/test_embed_styles.rb

@@ -1,35 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-class TestLines  < Test::Unit::TestCase
-
-   attr_reader  :mod1, :mod2, :modbucket1
-  
-   def setup
-     @test_vector_tm1 = []
-     tbeg = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
-     sbeg = tbeg
-     sec_inc = 50
-     
-     for i in (0..20)
-      @test_vector_tm1 << [sbeg + i*sec_inc, i*sec_inc*250*rand() ]
-    end
-
-    @mod1 = GerbilCharts::Models::TimeSeriesGraphModel.new("External Gateway")
-    @mod1.add_tuples @test_vector_tm1
-  
-    @modgroup = GerbilCharts::Models::GraphModelGroup.new("Hosts")
-    @modgroup.add(@mod1)
-
-   end
-  
-
-  # test a line chart
-  def test_line_1
- 
-    mychart = GerbilCharts::Charts::AreaChart.new( :width => 450, :height => 250, :style => 'embed:brushmetal.css')
-    mychart.setmodelgroup(@modgroup)
-    mychart.render('/tmp/embed_style.svg')
-    
-  end   
-   
-end

data/test/test_gerbilcharts.rb

@@ -1,11 +0,0 @@
-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

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

data/test/test_lines.rb

@@ -1,46 +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_tm1 = []
-     @test_vector_tm3 = []
-     tbeg = Time.local( 1978, "jun", 5, 9, 10, 0, 0)
-     sbeg = tbeg
-     sec_inc = 50
-     
-     for i in (0..20)
-      @test_vector_tm1 << [sbeg + i*sec_inc, i*sec_inc*250*rand() ]
-      @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
-  
-    @mod3 = GerbilCharts::Models::TimeSeriesGraphModel.new("udldev Print Server")
-    @mod3.add_tuples @test_vector_tm3
-  
-    @modgroup = GerbilCharts::Models::GraphModelGroup.new("Hosts")
-    @modgroup.add(@mod3)
-    @modgroup.add(@mod1)
-    
-
-   end
-  
-
-  # test a line chart
-  def test_line_1
- 
-    mychart = GerbilCharts::Charts::AreaChart.new( :width => 750, :height => 250, 
-				:javascripts => ['inline:gerbil.js' ],
-				:auto_tooltips => false, :style => 'inline:brushmetal.css' )
-    mychart.setmodelgroup(@modgroup)
-    mychart.render('/tmp/sq_linechart1.svg')
-    
-  end   
-   
-end

data/test/test_matrix.rb

@@ -1,34 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper.rb'
-
-require 'trafgen'
-
-# test conversation bar chart 
-class TestMatrix < Test::Unit::TestCase
-
-  def test_monthly_sales
-    modelgroup = GerbilCharts::Models::MatrixModel.new("Traffic Matrix")
-
-    modelgroup.add("192.168.1.25","192.168.1.20",12500)
-    modelgroup.add("192.168.1.26","192.168.1.21",7500)
-    modelgroup.add("192.168.1.25","192.168.1.22",6500)
-    modelgroup.add("192.168.1.27","192.168.1.23",5500)
-    modelgroup.add("192.168.1.28","192.168.1.24",4500)
-    modelgroup.add("192.168.1.29","192.168.1.26",10500)
-    modelgroup.add("192.168.1.25","192.168.1.27",500)
-    modelgroup.add("192.168.1.25","192.168.1.28",2500)
-    modelgroup.add("192.168.1.30","192.168.1.29",3500)
-    modelgroup.add("192.168.1.52","192.168.1.30",500)
-
-    modelgroup.calc_matrix   
-
-    mychart = GerbilCharts::Charts::MatrixChart.new( :width => 1000, :height => 400,
-                                                     :style => 'inline:brushmetal.css', :auto_tooltips => true ,
-                                                     :javascripts => ['/tmp/gerbil.js', '/tmp/prototype.js'],
-                                                     :filter => 'LikeButton'
-                                                   )
- 
-    mychart.modelgroup = modelgroup
-    mychart.render('/tmp/matrix_monthly_sales.svg')
-
-  end   
-end

data/test/test_models.rb

@@ -1,118 +0,0 @@
-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