open Td5;;

let l = [5; 3; 9; 0; 5; 0];;
let sorted = [0; 0; 3; 5; 5; 9];;

assert (insertion_sort l = sorted);;
assert (selection_sort l = sorted);;
assert (fusion_sort l = sorted);;