[Bioperl-guts-l] bioperl-live/t WrapperBase.t,1.2,1.3

Christopher John Fields cjfields at dev.open-bio.org
Thu Jan 18 12:52:00 EST 2007


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

Modified Files:
	WrapperBase.t 
Log Message:
remove comments; cleanup() should now work (fingers crossed)

Index: WrapperBase.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/WrapperBase.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** WrapperBase.t	18 Jan 2007 17:45:34 -0000	1.2
--- WrapperBase.t	18 Jan 2007 17:51:58 -0000	1.3
***************
*** 48,51 ****
--- 48,52 ----
  
  # tempdir
+ 
  $obj->save_tempfiles(0);
  my $tmpdir = $obj->tempdir();
***************
*** 55,62 ****
  close($test);
  
! # can't get cleanup() to work! $tmpdir only gets deleted on script exit,
! # regardless of last value of save_tempfiles...
  $obj->cleanup();
- #(undef $obj doesn't work either)
  ok ! -d $tmpdir, 'following cleanup() with save_tempfiles unset, tempdir was deleted';
  
--- 56,62 ----
  close($test);
  
! # cleanup
! 
  $obj->cleanup();
  ok ! -d $tmpdir, 'following cleanup() with save_tempfiles unset, tempdir was deleted';
  



More information about the Bioperl-guts-l mailing list