bio-graphics 1.2 → 1.4

data/test/unit/test_creation.rb

@@ -3,7 +3,8 @@ require File.dirname(__FILE__) + '/../../lib/bio-graphics'
 
 class TestPanel < Test::Unit::TestCase
   def test_panel_creation
-    panel = Bio::Graphics::Panel.new(1000, 500, false, 0, 1000)
+    panel = Bio::Graphics::Panel.new(1000, :width => 500, :clickable => false,
+                                     :display_range => 0..1000)
     assert_equal(1000, panel.length)
     assert_equal(500, panel.width)
     assert_equal(false, panel.clickable)
@@ -14,7 +15,8 @@ class TestPanel < Test::Unit::TestCase
   end
   
   def test_panel_creation_out_of_boundaries
-    panel = Bio::Graphics::Panel.new(1000, 500, false, -7, 5000)
+    panel = Bio::Graphics::Panel.new(1000, :width => 500, :clickable => false,
+                                     :display_range => -7..5000)
     assert_same(0, panel.display_start)
     assert_same(1000, panel.display_stop)
   end
@@ -22,30 +24,58 @@ class TestPanel < Test::Unit::TestCase
 end
 
 class TestTrack < Test::Unit::TestCase
-	def setup
-    @panel = Bio::Graphics::Panel.new(1000, 500, false, 0, 1000)
+  def setup
+    @panel = Bio::Graphics::Panel.new(1000, :width => 500, :clickable => false,
+                                      :display_range => 0..1000)
   end
 
   def test_track_creation
-    track = @panel.add_track('test_track', [1,0,0], 'generic')
+    track = @panel.add_track('test_track', :label => false, :glyph => :generic, :colour => [1,0,0])
     assert_equal('test_track', track.name)
-    assert_equal([1,0,0], track.feature_colour)
-    assert_equal('generic', track.feature_glyph)
+    assert_equal([1,0,0], track.colour)
+    assert_equal(:generic, track.glyph)
     assert_equal(1, @panel.tracks.length)
     assert_equal(0, track.features.length)
   end
 end
 
+class TestRuler < Test::Unit::TestCase
+  def test_scaling_factor
+    panel = Bio::Graphics::Panel.new(1000, :width => 600, :display_range => 0..1000)
+    ruler = Bio::Graphics::Ruler.new(panel)
+    assert_equal(1,ruler.scaling_factor(5,1000/600))
+    assert_equal(2,ruler.scaling_factor(5,1000/500))
+    assert_equal(1,ruler.scaling_factor(5,500/500))
+  end
+
+  def test_drawing
+    panel = Bio::Graphics::Panel.new(375, :display_range => 100..370, :width => 600)
+    ruler = Bio::Graphics::Ruler.new(panel)
+
+    assert_equal(270.0/600.0,panel.rescale_factor)
+    assert_equal(1,ruler.scaling_factor)
+    assert_equal(5,ruler.minor_tick_distance)
+    assert_equal(50,ruler.major_tick_distance)
+    assert_equal(100,ruler.first_tick_position)
+    
+    i = 0
+    ruler.first_tick_position.step(panel.display_stop, ruler.minor_tick_distance) do |tick|
+      assert(i*ruler.min_pixels_per_tick,(tick - panel.display_start) / panel.rescale_factor)
+      i += 1
+    end    
+  end
+end
+
 class TestFeature < Test::Unit::TestCase
   def setup
-    @panel = Bio::Graphics::Panel.new(1000, 500, false, 0, 1000)
-    @track = @panel.add_track('test_track', [1,0,0], 'generic')
+    @panel = Bio::Graphics::Panel.new(1000, :width => 500)
+    @track = @panel.add_track('test_track', :label => false, :glyph => :generic, :colour => [1,0,0])
   end
   
   def test_feature_creation
-    feature = @track.add_feature('test_feature', '123..456')
+    feature = @track.add_feature(Bio::Feature.new('type', '123..456'), :label => 'test_feature')
     assert_equal('test_feature', feature.name)
-    assert_equal(123, feature.location[0].from)
-    assert_equal(456, feature.location[-1].to)
+    assert_equal(123, feature.locations[0].from)
+    assert_equal(456, feature.locations[-1].to)
   end
-end
+end

data/test/unit/test_custom_glyph.rb

@@ -0,0 +1,50 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../../lib/bio-graphics'
+
+module Bio::Graphics::Glyph
+  class Bio::Graphics::Glyph::CustomTestGlyph < Bio::Graphics::Glyph::Common
+    
+    def draw
+      @feature_context.move_to(self.left_pixel,0)
+      @feature_context.line_to(self.right_pixel,Bio::Graphics::FEATURE_HEIGHT)
+      @feature_context.move_to(self.right_pixel,0)
+      @feature_context.line_to(self.left_pixel,Bio::Graphics::FEATURE_HEIGHT)
+      @feature_context.close_path.stroke
+    end
+  end
+end
+
+class TestCustomGlyph < Test::Unit::TestCase
+  def test_draw
+    panel = Bio::Graphics::Panel.new(500, :width => 250, :clickable => false,
+                                     :display_range => 0..1000)
+    track = panel.add_track('test_track', :label => false, :glyph => :custom_test_glyph, :colour => [0,0,1])
+    track.add_feature(Bio::Feature.new('type', '123..456'), :label => 'test_feature')
+    
+    panel.draw('output.png')
+    system("display output.png & sleep 2 && kill $!")
+    File.delete('output.png')
+  end
+end
+
+class TestCustomGlyphInFile < Test::Unit::TestCase
+  def setup
+    system("cp custom_glyph_in_file.rb ../../lib/bio/graphics/glyphs/")
+    require File.dirname(__FILE__) + '/../../lib/bio/graphics/glyphs/custom_glyph_in_file.rb'
+  end
+  
+  def test_draw
+    panel = Bio::Graphics::Panel.new(500, :width => 250, :clickable => false,
+                                     :display_range => 0..1000)
+    track = panel.add_track('test_track', :label => false, :glyph => :custom_test_glyph_in_file, :colour => [0,0,1])
+    track.add_feature(Bio::Feature.new('type', '123..456'), :label =>'test_feature')
+
+    panel.draw('output.png')
+    system("display output.png & sleep 2 && kill $!")
+    File.delete('output.png')
+  end
+  
+  def teardown
+    File.delete(File.dirname(__FILE__) + '/../../lib/bio/graphics/glyphs/custom_glyph_in_file.rb')
+  end
+end

data/test/unit/test_draw.rb

@@ -0,0 +1,211 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../../lib/bio-graphics'
+
+class TestPanel < Test::Unit::TestCase
+  def setup
+    @generated_pictures = Array.new
+  end
+  
+  def test_draw_showcase
+    my_panel = Bio::Graphics::Panel.new(500, :width => 1000)
+    
+    generic_track = my_panel.add_track('generic', :label => false)
+    line_track = my_panel.add_track('line', :label => false, :glyph => :line, :colour => [0,0,1])
+    line_with_handles_track = my_panel.add_track('line with handles', :label => false, :glyph => :line_with_handles, :colour => [0,0,1])
+    directed_track = my_panel.add_track('directed', :label => false, :glyph => :directed_generic, :colour => [0,1,0])
+    triangle_track = my_panel.add_track('triangle', :label => false, :glyph => :triangle, :colour => [1,0,0])
+    dot_track = my_panel.add_track('dot', :label => false, :glyph => :dot, :colour => [0,1,1])
+    spliced_track = my_panel.add_track('spliced', :label => false, :glyph => :spliced, :colour => [1,0,0])
+    directed_spliced_track = my_panel.add_track('directed_spliced', :label => false, :glyph => :directed_spliced, :colour => [1,0,1])
+    
+    generic_track.add_feature(Bio::Feature.new('clone', '250..375'), :label => 'clone1', :link => 'http://www.newsforge.com')
+    generic_track.add_feature(Bio::Feature.new('clone', '54..124'), :label => 'clone2', :link => 'http://www.thearkdb.org')
+    generic_track.add_feature(Bio::Feature.new('clone', '100..449'), :label => 'clone3', :link => 'http://www.google.com')
+    
+    line_track.add_feature(Bio::Feature.new('primer', 'complement(200..320)'), :label => 'primer1')
+    line_track.add_feature(Bio::Feature.new('primer', '355..480'), :label => 'primer2', :link => 'http://www.zdnet.co.uk')
+
+    line_with_handles_track.add_feature(Bio::Feature.new('primer', 'complement(200..320)'), :label => 'primer1')
+    line_with_handles_track.add_feature(Bio::Feature.new('primer', '355..480'), :label => 'primer2', :link => 'http://www.zdnet.co.uk')
+    
+    directed_track.add_feature(Bio::Feature.new('marker', '50..60'), :label => 'marker1', :link => 'http://www.google.com')
+    directed_track.add_feature(Bio::Feature.new('marker','complement(80..120)'), :label => 'marker2', :link => 'http://www.sourceforge.net')
+    
+    triangle_track.add_feature(Bio::Feature.new('marker', '56'), :label => 'snp1')
+    triangle_track.add_feature(Bio::Feature.new('marker', '103'), :label => 'snp2', :link => 'http://digg.com')
+    
+    dot_track.add_feature(Bio::Feature.new('marker', '56'), :label => 'thing1')
+    dot_track.add_feature(Bio::Feature.new('marker', '57'), :label => 'thing3')
+    dot_track.add_feature(Bio::Feature.new('marker', '114'), :label => 'thing2', :link => 'http://digg.com')
+
+    spliced_track.add_feature(Bio::Feature.new('gene','join(34..52,109..183)'), :label => 'gene1', :link => 'http://news.bbc.co.uk')
+    spliced_track.add_feature(Bio::Feature.new('gene','complement(join(170..231,264..299,350..360,409..445))'), :label => 'gene2')
+    spliced_track.add_feature(Bio::Feature.new('gene','join(134..152,209..283)'), :label => 'gene3')
+    
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','join(34..52,109..183)'), :label => 'gene4', :link => 'http://www.vrtnieuws.net')
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','complement(join(170..231,264..299,350..360,409..445))'), :label => 'gene5', :link => 'http://bioinformatics.roslin.ac.uk')
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','join(134..152,209..283)'), :label => 'gene6')
+    
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+    
+    my_panel.draw(output_file)
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+
+  def test_outside_border
+    my_panel = Bio::Graphics::Panel.new(500, :width => 1000, :display_range => 100..400)
+    
+    spliced_track = my_panel.add_track('spliced', :label => false, :glyph => :spliced, :colour => [1,0,0])
+    directed_spliced_track = my_panel.add_track('directed_spliced', :label => false, :glyph => :directed_spliced, :colour => [1,0,1])
+
+    spliced_track.add_feature(Bio::Feature.new('gene','join(34..52,109..183)'), :label => 'gene1',:link => 'http://news.bbc.co.uk')
+    spliced_track.add_feature(Bio::Feature.new('gene','complement(join(170..231,264..299,350..360,409..445))'), :label => 'gene2')
+    spliced_track.add_feature(Bio::Feature.new('gene','join(134..152,209..283)'), :label => 'gene3')
+    
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','join(34..52,109..183)'), :label => 'gene4', :link => 'http://www.vrtnieuws.net')
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','complement(join(170..231,264..299,350..360,409..445))'), :label => 'gene5', :link => 'http://bioinformatics.roslin.ac.uk')
+    directed_spliced_track.add_feature(Bio::Feature.new('gene','join(134..152,209..283)'), :label => 'gene6')
+    
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+    
+    my_panel.draw(output_file)
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+  
+  def test_arkdb_features
+    my_panel = Bio::Graphics::Panel.new(4173015, :width => 600, :vertical => true)
+    
+    #Create and configure tracks
+    scaffold_track = my_panel.add_track('scaffold', :label => false)
+    marker_track = my_panel.add_track('marker', :label => true)
+    clone_track = my_panel.add_track('clone', :label => false)
+    
+    scaffold_track.colour = [1,0,0]
+    marker_track.colour = [0,1,0]
+    marker_track.glyph = :triangle
+    clone_track.colour = [0,0,1]
+    
+    # Add data to tracks
+    File.open(File.dirname(__FILE__) + '/data.txt').each do |line|
+      line.chomp!
+      accession, type, start, stop = line.split(/\t/)
+      if type == 'scaffold'
+        if start.nil?
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', '1..4173015'), :label => accession)
+        else
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', start + '..' + stop), :label => accession, :link => 'http://www.google.com')
+        end
+          
+      elsif type == 'marker'
+        marker_track.add_feature(Bio::Feature.new('marker', ((start.to_i + stop.to_i)/2).to_s), :label => accession, :link => 'http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=' + accession)
+      elsif type == 'clone'
+        clone_track.add_feature(Bio::Feature.new('clone', start + '..' + stop), :label => accession)
+      end
+    end
+
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+
+    my_panel.draw(output_file)
+
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+
+  def test_subregion
+    my_panel = Bio::Graphics::Panel.new(4173015, :display_range => 2500000..3500000, :width => 600)
+    
+    #Create and configure tracks
+    scaffold_track = my_panel.add_track('scaffold', :label => false)
+    marker_track = my_panel.add_track('marker', :label => true)
+    clone_track = my_panel.add_track('clone', :label => false)
+    
+    scaffold_track.colour = [1,0,0]
+    marker_track.colour = [0,1,0]
+    marker_track.glyph = :triangle
+    clone_track.colour = [0,0,1]
+    
+    # Add data to tracks
+    File.open(File.dirname(__FILE__) + '/data.txt').each do |line|
+      line.chomp!
+      accession, type, start, stop = line.split(/\t/)
+      if type == 'scaffold'
+        if start.nil?
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', '1..4173015'), :label => accession)
+        else
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', start + '..' + stop), :label => accession, :link => 'http://www.google.com')
+        end
+          
+      elsif type == 'marker'
+        marker_track.add_feature(Bio::Feature.new('marker', ((start.to_i + stop.to_i)/2).to_s), :label => accession, :link => 'http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=' + accession)
+      elsif type == 'clone'
+        clone_track.add_feature(Bio::Feature.new('clone', start + '..' + stop), :label => accession)
+      end
+    end
+
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+
+    my_panel.draw(output_file)
+
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+
+  def test_subfeatures
+    my_panel = Bio::Graphics::Panel.new(500, :width => 600)
+    
+    track = my_panel.add_track('mrna')
+    
+    track.colour = [1,0,0]
+    track.glyph = :spliced
+    
+    # Add data to tracks
+    utr5 = Bio::Feature.new('utr', '100..150')
+    cds = Bio::Feature.new('cds', 'join(150..225, 250..275, 310..330)')
+    utr3 = Bio::Feature.new('utr', '330..375')
+
+    transcript = Bio::Feature.new('transcript', 'join(100..225, 250..275, 310..375)', [], nil, [utr5, cds, utr3])
+    
+    transcript_graphic = track.add_feature(transcript, :label => 'my_transcript')
+    transcript_graphic.glyph = { 'utr' => :line, 'cds' => :spliced }
+    
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+
+    my_panel.draw(output_file)
+
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+  
+  def test_feature_specific_colouring
+    my_panel = Bio::Graphics::Panel.new(375, :display_range => 100..370, :width => 600)
+    
+    track = my_panel.add_track('mrna')
+    
+    track.colour = [1,0,0]
+    track.glyph = :spliced
+    
+    # Add data to tracks
+    track.add_feature(Bio::Feature.new('cds', 'join(100..200, 225..350)'), :label => 'red_spliced')
+    track.add_feature(Bio::Feature.new('cds', 'join(100..200, 225..350)'), :label => 'green_spliced', :colour => [0,1,0])
+    track.add_feature(Bio::Feature.new('cds', 'join(100..200, 225..350)'), :label => 'blue_generic', :colour => [0,0,1])
+    
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    @generated_pictures.push(output_file)
+
+    my_panel.draw(output_file)
+
+    system("display " + output_file + "& sleep 2 && kill $!")
+  end
+  
+  def teardown
+    @generated_pictures.each do |p|
+      File.delete(p)
+    end
+  end
+end

data/test/unit/test_imagemap.rb

@@ -0,0 +1,134 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../../lib/bio-graphics'
+
+class TestImageMap < Test::Unit::TestCase
+  def setup
+    @generated_files = Array.new
+    
+    @horizontal_imagemap = <<END_OF_STRING
+<html>
+<body>
+<map name="image_map" border="1">
+<area shape="rect" coords="209.075452640357 82 252.5194373852 92" href="http://www.google.com"/>
+<area shape="rect" coords="253.957390519804 82 451.51613401821 92" href="http://www.google.com"/>
+<area shape="rect" coords="132.966578121574 137 142.966578121574 147" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049788"/>
+<area shape="rect" coords="135.392018720278 167 145.392018720278 177" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00033347"/>
+<area shape="rect" coords="181.068633829497 197 191.068633829497 207" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049753"/>
+<area shape="rect" coords="205.969047559139 227 215.969047559139 237" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049743"/>
+<area shape="rect" coords="217.47799253058 257 227.47799253058 267" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00050962"/>
+<area shape="rect" coords="430.77140269086 137 440.77140269086 147" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049746"/>
+</map>
+<img border='1' src='./test_horizontal_imagemap.png' usemap='#image_map' />
+</body>
+</html>
+END_OF_STRING
+    
+    @vertical_imagemap = <<END_OF_STRING
+<html>
+<body>
+<map name="image_map" border="1">
+<area shape="rect" coords="82 347.4805626148 92 390.924547359643" href="http://www.google.com"/>
+<area shape="rect" coords="82 148.48386598179 92 346.042609480196" href="http://www.google.com"/>
+<area shape="rect" coords="137 457.033421878426 147 467.033421878426" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049788"/>
+<area shape="rect" coords="167 454.607981279722 177 464.607981279722" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00033347"/>
+<area shape="rect" coords="197 408.931366170503 207 418.931366170503" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049753"/>
+<area shape="rect" coords="227 384.030952440861 237 394.030952440861" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049743"/>
+<area shape="rect" coords="257 372.52200746942 267 382.52200746942" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00050962"/>
+<area shape="rect" coords="137 159.22859730914 147 169.22859730914" href="http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=ARKMKR00049746"/>
+</map>
+<img border='1' src='./test_vertical_imagemap.png' usemap='#image_map' />
+</body>
+</html>
+END_OF_STRING
+  end
+  
+  def test_horizontal_imagemap
+    my_panel = Bio::Graphics::Panel.new(4173015, :width => 600, :clickable => true)
+    
+    #Create and configure tracks
+    scaffold_track = my_panel.add_track('scaffold', :label => false)
+    marker_track = my_panel.add_track('marker', :label => true)
+    clone_track = my_panel.add_track('clone', :label => false)
+    
+    scaffold_track.colour = [1,0,0]
+    marker_track.colour = [0,1,0]
+    marker_track.glyph = :triangle
+    clone_track.colour = [0,0,1]
+    
+    # Add data to tracks
+    File.open(File.dirname(__FILE__) + '/data.txt').each do |line|
+      line.chomp!
+      accession, type, start, stop = line.split(/\t/)
+      if type == 'scaffold'
+        if start.nil?
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', '1..4173015'), :label => accession)
+        else
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', start + '..' + stop), :label => accession, :link => 'http://www.google.com')
+        end
+          
+      elsif type == 'marker'
+        marker_track.add_feature(Bio::Feature.new('marker', ((start.to_i + stop.to_i)/2).to_s), :label => accession, :link => 'http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=' + accession)
+      elsif type == 'clone'
+        clone_track.add_feature(Bio::Feature.new('clone', start + '..' + stop), :label => accession)
+      end
+    end
+
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    html_file = output_file.sub(/\.png$/, '.html')
+    @generated_files.push(output_file)
+    @generated_files.push(html_file)
+
+    my_panel.draw(output_file)
+    
+    assert_equal(@horizontal_imagemap, File.read(html_file))
+  end
+
+  def test_vertical_imagemap
+    my_panel = Bio::Graphics::Panel.new(4173015, :width => 600, :clickable => true, :vertical => true)
+    
+    #Create and configure tracks
+    scaffold_track = my_panel.add_track('scaffold', :label => false)
+    marker_track = my_panel.add_track('marker', :label => true)
+    clone_track = my_panel.add_track('clone', :label => false)
+    
+    scaffold_track.colour = [1,0,0]
+    marker_track.colour = [0,1,0]
+    marker_track.glyph = :triangle
+    clone_track.colour = [0,0,1]
+    
+    # Add data to tracks
+    File.open(File.dirname(__FILE__) + '/data.txt').each do |line|
+      line.chomp!
+      accession, type, start, stop = line.split(/\t/)
+      if type == 'scaffold'
+        if start.nil?
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', '1..4173015'), :label => accession)
+        else
+          scaffold_track.add_feature(Bio::Feature.new('scaffold', start + '..' + stop), :label => accession, :link => 'http://www.google.com')
+        end
+          
+      elsif type == 'marker'
+        marker_track.add_feature(Bio::Feature.new('marker', ((start.to_i + stop.to_i)/2).to_s), :label => accession, :link => 'http://www.thearkdb.org/arkdb/do/getMarkerDetail?accession=' + accession)
+      elsif type == 'clone'
+        clone_track.add_feature(Bio::Feature.new('clone', start + '..' + stop), :label => accession)
+      end
+    end
+
+    # And draw
+    output_file = File.dirname(__FILE__) + '/' + @method_name + '.png'
+    html_file = output_file.sub(/\.png$/, '.html')
+    @generated_files.push(output_file)
+    @generated_files.push(html_file)
+
+    my_panel.draw(output_file)
+    
+    assert_equal(@vertical_imagemap, File.read(html_file))
+  end
+  
+  def teardown
+    @generated_files.each do |p|
+      File.delete(p)
+    end
+  end
+end