Value of will not always be 1, depends on value of BIOPERLDEBUG

bioperl · Oct 9, 2011 · 7975b61 · 7975b61
1 parent d6dede0
commit 7975b61
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/Hmmer.t b/t/Hmmer.t
@@ -86,7 +86,7 @@ SKIP: {
    @params = ('HMM'=>$hmmout,'program'=>'hmmbuild', -verbose => $verbose, -quiet => $quiet);
    $factory = Bio::Tools::Run::Hmmer->new(@params);
    isa_ok $factory, 'Bio::Tools::Run::Hmmer';
-   is $factory->quiet, 1;
+   is $factory->quiet, $quiet;
    my $aln_file = test_input_file('cysprot.msf');
    my $aio = Bio::AlignIO->new(-file=>$aln_file,-format=>'msf');
    my $aln = $aio->next_aln;