parameterized verbose flag

svn path=/bioperl-run/branches/branch-1-0-0/; revision=13028
bioperl · Mar 11, 2002 · 3528f4c · 3528f4c
1 parent 8a5f874
commit 3528f4c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/Clustalw.t b/t/Clustalw.t
@@ -27,9 +27,9 @@ END {
 }
 
 ok(1);
-
+my $verbose = -1;
 my @params = ('ktuple' => 2, 'matrix' => 'BLOSUM', 
-	      -verbose => -1);
+	      -verbose => $verbose);
 my  $factory = Bio::Tools::Run::Alignment::Clustalw->new(@params);
 
 ok $factory->isa('Bio::Tools::Run::Alignment::Clustalw');