You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8 lines
367 B
8 lines
367 B
(* on suppose que notre framework de test contient une fonction assert_equal qui lève une exception si ses deux paramètres sont différents *)
|
|
|
|
let test_max_in_list () =
|
|
|
|
assert_equal 0 (max_in_list [0]);
|
|
assert_equal 73 (max_in_list [73]);
|
|
assert_equal 3 (max_in_list [0; 1; 2; 3]);
|
|
assert_equal 1357 (max_in_list [549; 0; 1; 2; 64; 1035; 1357; 10; 1345])
|
|
|