Fixed wrong lives_and test syntax in fastq test

bioperl · Feb 28, 2012 · c2eecf4 · c2eecf4
1 parent 65261c6
commit c2eecf4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/SeqIO/fastq.t b/t/SeqIO/fastq.t
@@ -424,11 +424,11 @@ for my $example (sort keys %error) {
 
 # fastq
 
-my $in = Bio::SeqIO->new(-format    => "fastq",
+my $in = Bio::SeqIO->new(-format    => 'fastq',
                          -file      => test_input_file('fastq', 'zero_qual.fastq'),
-                         -verbose   => 2);  #strictest level
+                         -verbose   => 2);  # strictest level
 
 lives_and {my $seq = $in->next_seq;
-           is($seq->seq, 'G');}, 'edge case; single 0 in quality fails';
+           is($seq->seq, 'G');} 'edge case; single 0 in quality fails';