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