Merge pull request #9 from titsuki/fix-clone

Fix a clone method

Author: titsuki

lib/Algorithm/MinMaxHeap.pm6

@@ -104,6 +104,10 @@ method clear() {
     @!nodes = ();
 }
 
+method clone {
+    nextwith(:type($.type.clone), :nodes(@.nodes.clone))
+}
+
 method !bubble-up($index) {
     if (self!is-minlevel($index)) {
 	if (self!has-parent($index) and (@!nodes[$index] minmaxheap-cmp @!nodes[self!find-parent($index)] == Order::More)) {

t/08-clone.t

@@ -0,0 +1,26 @@
+use v6;
+use Test;
+use Algorithm::MinMaxHeap;
+
+{
+    my $heap = Algorithm::MinMaxHeap.new();
+    $heap.insert(0);
+    $heap.insert(1);
+    $heap.insert(2);
+    $heap.insert(3);
+    $heap.insert(4);
+    $heap.insert(5);
+    $heap.insert(6);
+    $heap.insert(7);
+    $heap.insert(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 === Int, True;
+}
+
+done-testing;