From cc5bd33c617b5b428f65bb2fb89b66bb808f3604 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Wikle=20DUBARD?= <loic97429@gmail.com>
Date: Sat, 4 May 2019 15:12:23 +0200
Subject: [PATCH] test quelle_roue

---
 src/.tests.ml.swo | Bin 20480 -> 24576 bytes
 src/tests.ml      |  10 ++++++++++
 2 files changed, 10 insertions(+)

diff --git a/src/.tests.ml.swo b/src/.tests.ml.swo
index 16f2b38f9a012e7c1505f9246b4b151d71156b3d..89ca5458329f843b672681f3b1002ec4f31f6591 100644
GIT binary patch
delta 583
zcmb8sO-lkn7zglY(_YBT6^$s0hNx7s(o007BxDdM)g^+0Slum!MYnYgI%(&y7v|Q<
zj!^`$rwXDk(6vrs9qQ7hPf-2M0z39FKZe<PUSPIZ7K*n5O9YnY;%s6xNC=T=Xa8=s
zG}KM9g-Fk4jl<)Ci<ujTVC5DuE{yX<vD4XD%|&$8Ho7vm#oaOcasyEeWz{z0+&O(+
zxV93VKtDX-rVIs0LISGUUZ~!kgYW0ug1v%nm*4|0c)$&B0#OPS2ti$Fnx>~S#yaZ{
zeTNx~oC!hWzrp>{zK&Xvk~7ve^NOk}YkD@X@JKXet3N*tyZ@XYqn-v9;I00iNu)Dr
zOGz?Ss#UPG%FvH#YCgwwNlVKL!!mS9&Zl*Sc?OdnCQF$d-<a*?rP;8fZW7C|5HF5&
zneQ{Atsu!nFE+eETkW-ff5fMQ=mRQn2B)wGtFQtQaKUFg(LF4}0tBELp6&Ps3os8;
X;DQ6pDZ%$VBD2Z*YBR%;Ba1*^lQN6*

delta 242
zcmZoTz}T>WQ6b47%+puFLeG!^2m}}y9`>G%S)wMzkiyKsP?VovGI62GMwfm3jLegn
z1$-G@CkG0MbN>4e0b!E`1;jUZ2-N8F@&R?*F+z-Roh<0EyZ$;01H%p=ZUy2NAWjEj
zQy?}0Vksbg1GL}<5U&SfEg;qeVoo4_z{J3?3y8IVSQCgffLIiW-vCX|1mZLx2HOO3
mFai_+K~ZL2Nt%L^EeLG(a$L)}Sw8Lo<78t^iOnBe1h@gw7Bs{F

diff --git a/src/tests.ml b/src/tests.ml
index e2460cd..9774036 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";;
-- 
GitLab