From a5ca17dd6906f2643ca76aedcfb550c40fdbbac5 Mon Sep 17 00:00:00 2001
From: Brian Osborne <briano@bioteam.net>
Date: Fri, 1 Jul 2011 14:05:42 -0400
Subject: [PATCH] Add test for RPS-BLAST algorithm

---
 t/SearchIO/blast.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/SearchIO/blast.t b/t/SearchIO/blast.t
index 120aa422d..651fefd2d 100644
--- a/t/SearchIO/blast.t
+++ b/t/SearchIO/blast.t
@@ -8,7 +8,7 @@ BEGIN {
     use lib '.';
     use Bio::Root::Test;
 
-    test_begin(-tests => 1352);
+    test_begin(-tests => 1354);
 
     use_ok('Bio::SearchIO');
 }
@@ -1261,6 +1261,8 @@ my $parser = Bio::SearchIO->new(
 );
 
 $r = $parser->next_result;
+is( $r->algorithm,                           'RPS-BLAST(BLASTP)');
+is( $r->algorithm_version,                   '2.2.4 [Aug-26-2002]');
 is( $r->algorithm_reference,                 undef );
 is( $r->query_name,                          'gi|1786183|gb|AAC73113.1|' );
 is( $r->query_gi,                            1786183 );
-- 
2.11.4.GIT