use Test::Differences::eq_or_diff (via Test::Most) to show difference…

…s; do we really need to match input exactly?
bioperl · Dec 1, 2011 · 35e0b5b · 35e0b5b
1 parent 245f557
commit 35e0b5b
Showing 1 changed file with 18 additions and 19 deletions.
diff --git a/t/Align/SimpleAlign.t b/t/Align/SimpleAlign.t
@@ -794,32 +794,31 @@ EOA
 
 ###### test with phylip
 
-    my $phy_fh = IO::String->new( <<EOF );
- 3   37
-seq1        AAAATGGGGG TGGT------ GGTACCT--- -------
-seq2        -----GGCGG TGGTGNNNNG GGTTCCCTNN NNNNNNN
-new         AAAATGGNGG TGGTN----N GGTNCCNTNN NNNNNNN
+    my $phylip_str = <<EOF;
+ 3 37
+seq1       AAAATGGGGG TGGT------ GGTACCT--- -------
+seq2       -----GGCGG TGGTGNNNNG GGTTCCCTNN NNNNNNN
+new        AAAATGGNGG TGGTN----N GGTNCCNTNN NNNNNNN
+
 EOF
 
+    my $phylip_masked = <<EOF;
+ 3 37
+seq1       AAAATGGGGG TGGT------ GGTACCT--- -------
+seq2       -----GGCGG TGGT?????? GGTTCCCTNN NNNNNNN
+new        AAAATGGNGG TGGT?----? GGTNCCNTNN NNNNNNN
+
+EOF
+
+    my $phy_fh = IO::String->new( $phylip_str );
+
     my $in = Bio::AlignIO->new( -fh => $phy_fh, -format => 'phylip' );
 
     $aln = $in->next_aln();
-    is( aln2str( $aln, 'phylip' ), <<EOU );
- 3 37
-seq1         AAAATGGGGG TGGT------ GGTACCT--- -------
-seq2         -----GGCGG TGGTGNNNNG GGTTCCCTNN NNNNNNN
-new          AAAATGGNGG TGGTN----N GGTNCCNTNN NNNNNNN
-
-EOU
+    eq_or_diff( aln2str( $aln, 'phylip' ), $phylip_str );
 
     $newaln = $aln->mask_columns(15,20,'?');
-    is( aln2str( $newaln,'phylip' ), <<EOU, 'align after looks ok' );
- 3 37
-seq1         AAAATGGGGG TGGT------ GGTACCT--- -------
-seq2         -----GGCGG TGGT?????? GGTTCCCTNN NNNNNNN
-new          AAAATGGNGG TGGT?----? GGTNCCNTNN NNNNNNN
-
-EOU
+    eq_or_diff( aln2str( $newaln,'phylip' ), $phylip_masked, 'align after looks ok' );
 }
 
 ######## SUBROUTINES