From 5c2dc22d99eb69bab6aa2444046e04033abfa184 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@illinois.edu>
Date: Sat, 7 Dec 2019 11:41:09 -0600
Subject: [PATCH] sort was based on object memory location (which is not
 consistent per run); sort on node ID for consistent results

---
 t/Tree/TreeStatistics.t | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)
 mode change 100644 => 100755 t/Tree/TreeStatistics.t

diff --git a/t/Tree/TreeStatistics.t b/t/Tree/TreeStatistics.t
old mode 100644
new mode 100755
index 63afb8778..30e84bc74
--- a/t/Tree/TreeStatistics.t
+++ b/t/Tree/TreeStatistics.t
@@ -25,9 +25,11 @@ my $node = $tree->find_node(-id => 'N14');
 my @bs_trees = (1) x 10; # earmark the memory but clone the tree in the next loop
 # Alter the the trees so that they end up with less
 # than 100% support
+
 for(my $bsTreeIndex=0; $bsTreeIndex < @bs_trees; $bsTreeIndex+=1){
+
   $bs_trees[$bsTreeIndex] = $tree->clone;
-  my @bsLeaf = sort grep{$_->is_Leaf} $bs_trees[$bsTreeIndex]->get_nodes;
+  my @bsLeaf = sort {$a->id <=> $b->id } grep{$_->is_Leaf} $bs_trees[$bsTreeIndex]->get_nodes;
   # Mix the first node with the $bsTreeIndex node
   my $leafIndex = $bsTreeIndex % int(scalar(@bsLeaf)/2); # only messing with 1/2 the leaves
   my($name1,$name2) = ($bsLeaf[0]->id, $bsLeaf[$leafIndex]->id);
@@ -40,36 +42,36 @@ for(my $bsTreeIndex=0; $bsTreeIndex < @bs_trees; $bsTreeIndex+=1){
   $bsLeaf[-1]        ->id($name4);
   $bsLeaf[$leafIndex]->id($name3);
 
-  #diag $bs_trees[$bsTreeIndex]->as_text("newick");
+  diag $bs_trees[$bsTreeIndex]->as_text("newick");
 }
 
 my $stats = Bio::Tree::Statistics->new();
 is $stats->cherries($tree), 8, 'cherries';
 is $stats->cherries($tree, $node), 4, 'cherries';
 
-subtest 'transfer-bootstrap-expectation (experimental)' => sub{
+subtest 'assess_bootstrap' => sub{
   plan tests=>15;
-  my %expectation = (''=>100, N1=>27, N2=>82, N3=>64, N4=>82, N5=>82, N8=>82, N6=>82, N7=>82, N9=>100, N10=>91, N11=>100, N12=>9, N13=>55, N14=>82);
-  my $bs_tree  = $stats->transfer_bootstrap_expectation(\@bs_trees, $tree);
+  my %expectation = (''=>100, N1=>20, N2=>80, N3=>20, N4=>80, N5=>80, N8=>80, N6=>60, N7=>20, N9=>100, N10=>80, N11=>100, N12=>9, N13=>55, N14=>20);
+  my $bs_tree  = $stats->assess_bootstrap(\@bs_trees, $tree);
   my @node = sort $bs_tree->get_nodes;
   for(my $i=0;$i<@node;$i++){
     next if($node[$i]->is_Leaf);
-    is $node[$i]->bootstrap , $expectation{$node[$i]->id}, "Testing TBE for node ".$node[$i]->id;
+    is $node[$i]->bootstrap, $expectation{$node[$i]->id}, "Testing bootstrap for node ".$node[$i]->id;
   }
 };
 
-subtest 'assess_bootstrap' => sub{
+subtest 'transfer-bootstrap-expectation (experimental)' => sub{
   plan tests=>15;
-  my %expectation = (''=>100, N1=>20, N2=>80, N3=>20, N4=>80, N5=>80, N8=>80, N6=>60, N7=>20, N9=>100, N10=>80, N11=>100, N12=>9, N13=>55, N14=>20);
-  my $bs_tree  = $stats->assess_bootstrap(\@bs_trees, $tree);
+  my %expectation = (''=>100, N1=>27, N2=>82, N3=>64, N4=>82, N5=>82, N8=>82, N6=>82, N7=>82, N9=>100, N10=>91, N11=>100, N12=>9, N13=>55, N14=>82);
+  my $bs_tree  = $stats->transfer_bootstrap_expectation(\@bs_trees, $tree);
   my @node = sort $bs_tree->get_nodes;
   for(my $i=0;$i<@node;$i++){
     next if($node[$i]->is_Leaf);
-    #print STDERR $node[$i]->id ."=>". $node[$i]->bootstrap.", ";next;
-    is $node[$i]->bootstrap, $expectation{$node[$i]->id}, "Testing bootstrap for node"
+    is $node[$i]->bootstrap , $expectation{$node[$i]->id}, "Testing TBE for node ".$node[$i]->id;
   }
 };
 
+
 # traits
 my $key = $tree->add_trait(test_input_file('traits.tab'), 4);
 is $key, undef, 'read traits'; # exceeded column number
-- 
2.11.4.GIT