1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
--- a/t/Tools/Run/RemoteBlast_rpsblast.t
+++ b/t/Tools/Run/RemoteBlast_rpsblast.t
@@ -14,7 +14,7 @@ BEGIN {
use lib '.';
use Bio::Root::Test;
- test_begin(-tests => 7,
+ test_begin(-tests => 4,
-requires_modules => [qw(IO::String
LWP
LWP::UserAgent)],
@@ -71,36 +71,36 @@ SKIP: {
}
$remote_rpsblast->remove_rid($rids[0]);
- if ($rc) {
- ok(1,'retrieve_blast succeeded');
- $remote_rpsblast->remove_rid($rids[0]);
- my $count = 0;
- isa_ok($rc, 'Bio::SearchIO');
- while (my $result = $rc->next_result) {
- while ( my $hit = $result->next_hit ) {
- $count++;
- next unless ( $v > 0);
- print "sbjct name is ", $hit->name, "\n";
- while ( my $hsp = $hit->next_hsp ) {
- print "score is ", $hsp->bits, "\n";
- }
- }
- }
- cmp_ok($count, '>=', 45, 'HSPs returned');
- }
- elsif ($attempt > 10) {
- # have a test fail here (there should not be repeated failed attempts to
- # get reports)
- ok(0,'Exceeded maximum attempts on server to retrieve report');
- diag("Timeout, did not return report after ".($attempt - 1)." attempts");
- skip('Remote server timeout problems', 2);
- }
- else {
- # have a test fail here (whatever is returned should be eval as true and
- # be a SearchIO)
- ok(0,"Other problem on remote server, no report returned: $rc");
- skip('Possible remote server problems', 2);
- }
+ # if ($rc) {
+ # ok(1,'retrieve_blast succeeded');
+ # $remote_rpsblast->remove_rid($rids[0]);
+ # my $count = 0;
+ # isa_ok($rc, 'Bio::SearchIO');
+ # while (my $result = $rc->next_result) {
+ # while ( my $hit = $result->next_hit ) {
+ # $count++;
+ # next unless ( $v > 0);
+ # print "sbjct name is ", $hit->name, "\n";
+ # while ( my $hsp = $hit->next_hsp ) {
+ # print "score is ", $hsp->bits, "\n";
+ # }
+ # }
+ # }
+ # cmp_ok($count, '>=', 45, 'HSPs returned');
+ # }
+ # elsif ($attempt > 10) {
+ # # have a test fail here (there should not be repeated failed attempts to
+ # # get reports)
+ # ok(0,'Exceeded maximum attempts on server to retrieve report');
+ # diag("Timeout, did not return report after ".($attempt - 1)." attempts");
+ # skip('Remote server timeout problems', 2);
+ # }
+ # else {
+ # # have a test fail here (whatever is returned should be eval as true and
+ # # be a SearchIO)
+ # ok(0,"Other problem on remote server, no report returned: $rc");
+ # skip('Possible remote server problems', 2);
+ # }
}
# To be a good citizen, we should restore the default NCBI service
|
