[Bioperl-guts-l] bioperl-run/t Genewise.t,1.11,1.12

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-run/t
In directory pub.open-bio.org:/tmp/cvs-serv3727/t

Modified Files:
	Genewise.t 
Log Message:
debugging info


Index: Genewise.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/Genewise.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Genewise.t	30 Sep 2005 00:36:17 -0000	1.11
--- Genewise.t	30 Sep 2005 00:40:24 -0000	1.12
***************
*** 25,29 ****
  
  ok(1);
! my $verbose = -1;
  my @params = ('-verbose' => $verbose, 
  	      'silent' => 1, 
--- 25,29 ----
  
  ok(1);
! my $verbose = $ENV{BIOPERLDEBUG} ? 1 : -1;
  my @params = ('-verbose' => $verbose, 
  	      'silent' => 1, 
***************
*** 32,36 ****
  my  $factory = Bio::Tools::Run::Genewise->new(@params);
  my $version = $factory->version;
! warn("version is $version\n");
  ok $factory->isa('Bio::Tools::Run::Genewise');
  unless ($factory->executable) {
--- 32,36 ----
  my  $factory = Bio::Tools::Run::Genewise->new(@params);
  my $version = $factory->version;
! warn("version is $version\n") if $verbose > 0;
  ok $factory->isa('Bio::Tools::Run::Genewise');
  unless ($factory->executable) {