diff --git a/src/.tests.ml.swo b/src/.tests.ml.swo
index 16f2b38f9a012e7c1505f9246b4b151d71156b3d..89ca5458329f843b672681f3b1002ec4f31f6591 100644
Binary files a/src/.tests.ml.swo and b/src/.tests.ml.swo differ
diff --git a/src/tests.ml b/src/tests.ml
index e2460cdacbbd9e345632c2890cdd6e123eaa7da2..97740365c6643e418c45ec1af738cb0ff569a93d 100644
--- a/src/tests.ml
+++ b/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";;