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