Merge pull request #11 from titsuki/fix-clone

Fix a clone method to handle Comparable role

Author: titsuki

lib/Algorithm/MinMaxHeap.pm6

@@ -105,7 +105,7 @@ method clear() {
 }
 
 method clone {
-    nextwith(:type($.type.clone), :nodes(@.nodes.clone))
+    nextwith(:type($!type.WHAT), :nodes(@.nodes.clone))
 }
 
 method !bubble-up($index) {

t/08-clone.t

@@ -23,4 +23,45 @@ use Algorithm::MinMaxHeap;
     is $clone-heap.type === Int, True;
 }
 
+{
+    my class State {
+	also does Algorithm::MinMaxHeap::Comparable[State];
+	has Int $.value;
+	has $.payload;
+	submethod BUILD(:$!value) { }
+	method compare-to(State $s) {
+    	    if (self.value == $s.value) {
+    		return Order::Same;
+    	    }
+    	    if (self.value > $s.value) {
+    		return Order::More;
+    	    }
+    	    if (self.value < $s.value) {
+    		return Order::Less;
+    	    }
+    	}
+    }
+    
+    my $heap = Algorithm::MinMaxHeap.new(type => Algorithm::MinMaxHeap::Comparable);
+
+    $heap.insert(State.new(value => 0));
+    $heap.insert(State.new(value => 1));
+    $heap.insert(State.new(value => 2));
+    $heap.insert(State.new(value => 3));
+    $heap.insert(State.new(value => 4));
+    $heap.insert(State.new(value => 5));
+    $heap.insert(State.new(value => 6));
+    $heap.insert(State.new(value => 7));
+    $heap.insert(State.new(value => 8));
+
+    is $heap.nodes.elems, 9;
+
+    my $clone-heap = $heap.clone;
+    is $clone-heap.nodes, $heap.nodes;
+    $heap.clear();
+    is $clone-heap.nodes.elems, 9;
+    is $clone-heap.type === Algorithm::MinMaxHeap::Comparable, True;
+}
+
+
 done-testing;