1use Bio::Phylo::IO 'parse'; 2use Test::More tests => 1; 3use strict; 4use warnings; 5 6my $tree = parse( 7 -format => 'newick', 8 -string => do { local $/ = undef; <DATA> } 9)->first; 10my $string1 = $tree->to_newick; 11my $string2 = $tree->remove_unbranched_internals->to_newick; 12ok( $string1 ne $string2, '1: remove unbranched internals' ); 13__DATA__ 14(Aplysia,(((Schistosoma-NUM3,Caenorhabditis-NUM3),((((Saccharomyces-NUM2,Dictyostelium,(Pneumocystis,Schizosaccharomyces-NUM2)),(Drosophila-NUM2,Caenorhabditis-NUM2,Petrosia,Petrobiona,(Schistosoma-NUM2,Nematostella),(Chondrosia,Asbestopluma),(Crassostrea,(Mus-NUM2,Danio)),(Monosiga_ovata,Monosiga_brevicollis-NUM2),(Beroe,Rhabdocalyptus),(Eunicella,Funiculina))),((Caenorhabditis-NUM4,Schistosoma-NUM4,(Mus-NUM4,(Monosiga_brevicollis-NUM4,Drosophila-NUM4))),(Schizosaccharomyces-NUM4,Saccharomyces-NUM4))),(Schizosaccharomyces-NUM3,Saccharomyces-NUM3))))); 15