Permalink
Browse files

carry over test fixes from trunk

svn path=/bioperl-live/branches/branch-1-6/; revision=15388
  • Loading branch information...
1 parent e6f8aae commit 20bb293b20b1c63fec99b385b4e698c5daee3e26 cjfields committed Jan 16, 2009
Showing with 380 additions and 375 deletions.
  1. +2 −1 Bio/DB/MeSH.pm
  2. +378 −374 t/SearchIO/blastxml.t
View
@@ -264,8 +264,9 @@ sub result {
my ($id) = m|Unique ID</TH><TD>(.*?)</TD>|i;
my ($name) = m|MeSH Heading</TH><TD>([^<]+)|i;
my ($desc) = m|Scope Note</TH><TD>(.*?)</TD>|is;
+ $self->throw("No description returned: $_") unless defined $desc;
$desc =~ s/<.*?>//sg;
- $desc =~ s/\n/ /g;
+ $desc =~ s/\n/ /g;
my $term = Bio::Phenotype::MeSH::Term->new(-id => $id,
-name => $name,
Oops, something went wrong. Retry.

0 comments on commit 20bb293

Please sign in to comment.