pierre/Ustagammon
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Activity

Moteur : videau de l'ordinateur comme ComputerTurn, match après une partie, Match ID d'un match

Browse Source 
Fenêtre de marché et double facultatif à 0 pli (play.c), réponse au
double, règle de Crawford automatique ; commandes double, take et
aftergame d'engine-cli, matchid étendu aux matchs.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Pierre MARTIN
2026-11-09 18:42:35 +01:00
co-authored by Claude Opus 5.5
parent 71bff4def1
commit c0f827c5ba
4 changed files with 393 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_engine.sh
+56
View File
@@ -259,6 +259,62 @@ grep -qF '"analysed": false, "cube": null, "equity_loss": 0, "skill": "none"' \
<<<"$($cli analysecube "$course" "$(valeur match_id "$($cli matchid 2 1)")" no_double)" \
|| echouer "analysecube, videau chez l'adversaire : pas d'analyse attendue"
# 7. Match et videau de l'ordinateur (étape 1c).
# Match ID d'un match : longueur, score et Crawford relus à l'identique.
sortie="$($cli matchid 1 -1 5 4 2 1)"
grep -qF '"match_length": 5, "score": [4, 2], "cube_value": 1, "cube_owner": -1, "player_on_roll": 0, "crawford": true, "jacoby": false' \
<<<"$sortie" || echouer "matchid d'un match mal codé : $sortie"
[ "$(valeur match_id "$sortie")" = "$(valeur match_id "$($cli matchid 1 -1 5 4 2 1)")" ] \
|| echouer "matchid d'un match : pas reproductible"
attendre_erreur usage matchid 1 -1 3 3 0 0
attendre_erreur usage matchid 1 -1 3 0 0 2
# Le match après une partie (règle de Crawford de gnubg, play.c).
apres() {
local id
id="$(valeur match_id "$($cli matchid 1 -1 "$1" "$2" "$3" "$4")")"
$cli aftergame "$id" "$5" "$6"
}
while read -r longueur s0 s1 drapeau gagnant points attendu; do
sortie="$(apres "$longueur" "$s0" "$s1" "$drapeau" "$gagnant" "$points")"
grep -qF "$attendu" <<<"$sortie" \
|| echouer "aftergame $longueur $s0-$s1 crawford $drapeau, $gagnant gagne $points : $sortie"
done <<-'EOF'
3 0 0 0 0 2 {"score": [2, 0], "match_over": false, "crawford": true}
3 0 0 0 1 1 {"score": [0, 1], "match_over": false, "crawford": false}
3 1 1 0 0 1 {"score": [2, 1], "match_over": false, "crawford": true}
3 2 0 1 1 1 {"score": [2, 1], "match_over": false, "crawford": false}
3 2 0 1 0 1 {"score": [3, 0], "match_over": true, "crawford": false}
3 2 1 0 1 1 {"score": [2, 2], "match_over": false, "crawford": false}
3 2 1 0 1 4 {"score": [2, 5], "match_over": true, "crawford": false}
5 3 3 0 1 1 {"score": [3, 4], "match_over": false, "crawford": true}
5 4 3 0 1 1 {"score": [4, 4], "match_over": false, "crawford": false}
EOF
grep -qF '{"score": [2, 0], "match_over": false, "crawford": false}' \
<<<"$($cli aftergame "$libre_j0" 0 2)" || echouer "aftergame en partie libre"
attendre_erreur invalid_result aftergame "$libre_j0" 2 1
attendre_erreur invalid_result aftergame "$libre_j0" 0 0
# L'ordinateur double (ComputerTurn de gnubg) : course gagnée, double et
# passe ; partie Crawford, videau inaccessible ; position perdue, hors de la
# fenêtre de marché.
grep -qF '"available": true, "market_window": true, "double": true, "decision": "DOUBLE_PASS"' \
<<<"$($cli --level 2ply double "$course" "$libre_j0")" || echouer "double en course gagnée"
grep -qF '"available": false, "market_window": false, "double": false, "decision": null' \
<<<"$($cli --level 2ply double "$depart" "$crawford")" || echouer "double en partie Crawford"
perdue="$(valeur swapped_position_id "$($cli position "$course" "$libre_j0")")"
grep -qF '"available": true, "market_window": false, "double": false, "decision": null' \
<<<"$($cli --level beginner double "$perdue" "$libre_j0")" || echouer "double hors fenêtre de marché"
grep -qF '"double": false' <<<"$($cli --level 2ply double "$depart" "$libre_j0")" \
|| echouer "double à la position de départ"
# L'ordinateur répond au double : passe en course perdue, prend au départ.
grep -qF '"take": false, "decision": "DOUBLE_PASS"' \
<<<"$($cli --level 2ply take "$course" "$libre_j0")" || echouer "take en course perdue"
grep -qF '"take": true' <<<"$($cli --level beginner take "$depart" "$libre_j0")" \
|| echouer "take au départ"
attendre_erreur usage double "$depart" "$libre_j0"
# Chance : même jet, même chance ; ordre des dés indifférent.
[ "$($cli luck "$milieu" "$milieu_mid" 64 | sed 's/"dice": \[[0-9], [0-9]\]//')" \
= "$($cli luck "$milieu" "$milieu_mid" 46 | sed 's/"dice": \[[0-9], [0-9]\]//')" ] \