test quelle_roue

src/tests.ml

@@ -182,6 +182,16 @@ let rec test_make_liste_index n =
 test_make_liste_index 27;;
 (*Test quelle_roue l c index_init*)
 printf "      Fonction [quelle_roue l c i]\n";;
+let rec test_quelle_roue n =
+    if n>0 then (
+        printf "roue avec laquelle il est plus rapide de traduire '%c' dans la liste de toutes les roues....." (List.nth roue (27-n));
+        if (quelle_roue list_test_roues (List.nth roue (27-n)) 0) = (27-n)
+        then (printf "fait\n"; test_quelle_roue (n-1))
+        else (raise InvalidTest)
+    ) else ( printf "\n");;
+
+test_quelle_roue 27;;
+
 
 (*test tourner_list c n i l *)
 printf "      Fonction [tourner_list c n i l]\n";;