From b0c40d11da54b290893ef41e188ce0c8fca54f9c Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Fri, 2 Jan 2009 21:53:54 +0000
Subject: [PATCH] Remove t/Graphics

svn path=/bioperl-live/branches/branch-1-6/; revision=15280
---
 t/Graphics/Pictogram.t | 49 -------------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 t/Graphics/Pictogram.t

diff --git a/t/Graphics/Pictogram.t b/t/Graphics/Pictogram.t
deleted file mode 100644
index 35e2bbeab..000000000
--- a/t/Graphics/Pictogram.t
+++ /dev/null
@@ -1,49 +0,0 @@
-# -*-Perl-*- Test Harness script for Bioperl
-# $Id$
-
-use strict;
-
-BEGIN {
-    use lib '.';
-    use Bio::Root::Test;
-    
-    test_begin(-tests => 5,
-			   -requires_modules => [qw(Bio::Graphics::Pictogram SVG)]);
-	
-	use_ok('Bio::SeqIO');
-	use_ok('Bio::Matrix::PSM::IO');
-}
-
-
-my $file = test_input_file('pictogram.fa');
-my $sio = Bio::SeqIO->new(-file=>$file,-format=>'fasta');
-my @seq;
-while(my $seq = $sio->next_seq){
-  push @seq, $seq;
-}
-my $picto = Bio::Graphics::Pictogram->new(-width=>"800",
-                                          -fontsize=>"80",
-                                          -plot_bits=>1,
-                                          -color=>{'A'=>'red',
-                                                   'G'=>'blue',
-                                                   'C'=>'green',
-                                                   'T'=>'magenta'});
-isa_ok $picto,"Bio::Graphics::Pictogram";
-
-my $svg = $picto->make_svg(\@seq);
-ok $svg->xmlify;
-
-my $psmIO =  Bio::Matrix::PSM::IO->new(-format=>'meme', 
-                                   -file=> test_input_file('meme.dat'));
-$picto = Bio::Graphics::Pictogram->new(-width=>"800",
-                                          -normalize=>1,
-                                          -fontsize=>"80",
-                                          -plot_bits=>1,
-                                          -color=>{'A'=>'red',
-                                                   'G'=>'blue',
-                                                   'C'=>'green',
-                                                   'T'=>'magenta'});
-
-my $psm = $psmIO->next_psm;
-$svg = $picto->make_svg($psm);
-ok $svg->xmlify;
-- 
2.11.4.GIT