[Bioperl-guts-l] bioperl-live/t AlignIO.t,1.77,1.78

Senduran Balasubramaniam sendu at dev.open-bio.org
Wed Jun 27 06:27:41 EDT 2007


Update of /home/repository/bioperl/bioperl-live/t
In directory dev.open-bio.org:/tmp/cvs-serv27541/t

Modified Files:
	AlignIO.t 
Log Message:
corrected in/outfile problem

Index: AlignIO.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/AlignIO.t,v
retrieving revision 1.77
retrieving revision 1.78
diff -C2 -d -r1.77 -r1.78
*** AlignIO.t	27 Jun 2007 10:16:37 -0000	1.77
--- AlignIO.t	27 Jun 2007 10:27:39 -0000	1.78
***************
*** 286,291 ****
  
  # CLUSTAL
  $strout = Bio::AlignIO->new(
!    '-file' => ">".test_output_file(), 
  			      '-format' => 'clustalw');
  $status = $strout->write_aln($aln);
--- 286,292 ----
  
  # CLUSTAL
+ my $outfile = test_output_file();
  $strout = Bio::AlignIO->new(
!    '-file' => ">$outfile", 
  			      '-format' => 'clustalw');
  $status = $strout->write_aln($aln);
***************
*** 293,297 ****
  undef $strout;
  $str = Bio::AlignIO->new(
!    '-file'=> test_input_file("testout.clustal"), 
  			   '-format' => 'clustalw');
  $aln = $str->next_aln($aln);
--- 294,298 ----
  undef $strout;
  $str = Bio::AlignIO->new(
!    '-file'=> $outfile, 
  			   '-format' => 'clustalw');
  $aln = $str->next_aln($aln);



More information about the Bioperl-guts-l mailing list