[Bioperl-guts-l] bioperl-live/t NetPhos.t,1.14,1.15

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jun 14 09:13:26 EDT 2007


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

Modified Files:
	NetPhos.t 
Log Message:
fixed skipping

Index: NetPhos.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/NetPhos.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** NetPhos.t	13 Apr 2007 19:24:16 -0000	1.14
--- NetPhos.t	14 Jun 2007 13:13:23 -0000	1.15
***************
*** 50,63 ****
  ok $tool = Bio::Tools::Analysis::Protein::NetPhos->new(-verbose =>$verbose);
  $tool->timeout(15);
  ok $tool->run ( {seq=>$seq, threshold=>0.9} );
! if ($tool->status eq 'TERMINATED_BY_ERROR') {
! 	skip "Running of the tool was terminated by an error, probably network/ NetPhos server error", 3;
! }
! my @res = $tool->result('Bio::SeqFeatureI');
! unless (@res) {
! 	skip "Didn't get any results from NetPhos server, probable network/server error", 3;
  }
- #new tests her in v 1.2
- ok my $raw = $tool->result('');
- ok my $parsed = $tool->result('parsed');
- is $parsed->[0][1], '0.934';
--- 50,66 ----
  ok $tool = Bio::Tools::Analysis::Protein::NetPhos->new(-verbose =>$verbose);
  $tool->timeout(15);
+ 
  ok $tool->run ( {seq=>$seq, threshold=>0.9} );
! SKIP: {
! 	if ($tool->status eq 'TERMINATED_BY_ERROR') {
! 		skip "Running of the tool was terminated by an error, probably network/ NetPhos server error", 3;
! 	}
! 	my @res = $tool->result('Bio::SeqFeatureI');
! 	unless (@res) {
! 		skip "Didn't get any results from NetPhos server, probable network/server error", 3;
! 	}
! 	#new tests her in v 1.2
! 	ok my $raw = $tool->result('');
! 	ok my $parsed = $tool->result('parsed');
! 	is $parsed->[0][1], '0.934';
  }



More information about the Bioperl-guts-l mailing list