### ----------------------------------------------------
### -- Algorithm::MinMaxHeap
### -- Licenses: Artistic-2.0
### -- Authors: Itsuki Toyota
### -- File: t/07-clear.t
### ----------------------------------------------------
use v6;
use Test;
use Algorithm::MinMaxHeap;

{
    my $heap = Algorithm::MinMaxHeap[Int].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;
    $heap.clear();
    is $heap.nodes.elems, 0;
}

done-testing;


