scripts-reco

git clone git://bebou.netlib.re/scripts-reco

Log | Files | Refs | README |

commit 6f1e503526457bde548ba33a7b24a9ba3f98d719
parent 118cae42e8b1618aa53c9f4756426eb109be9b2d
Auteurice: Arthur Pons <arthur.pons@unistra.fr>
Date:   Wed, 19 Mar 2025 13:16:20 +0100

Mise en accord du test pad et clavier

Utilise plus de code en commun. Seulement deux tests qui le font donc je
copie/colle. Un troisième et je facto.

Diffstat:
M
tests/clavier
 | 
14
+++++++++++---
M
tests/pad
 | 
8
+++-----

2 files changed, 14 insertions(+), 8 deletions(-)
diff --git a/tests/clavier b/tests/clavier
@@ -1,11 +1,15 @@
+# Clavier
+informer "Il va falloir appuyer sur toutes les touches du clavier de gauche à droite, de haut en bas"
+
 update_layout() {
-	cat "$disposition" | sed -E "1,$i s/(.*)/\x1b[92m\1\x1b[0m/" |
+	[ "$i" = "0" ] && filter="cat" || filter='sed -E "1,$i s/(.*)/\x1b[92m\1\x1b[0m/"'
+	eval < "$disposition" "$filter" |
 		paste - - - - | column -ts'	'
 }
 
-disposition=$(find clavier -type f -name '*.kbd' | fzy)
 command -V mawk > /dev/null && awk_inter="mawk -W interactive" || awk_inter="stdbuf -i0 -o0 gawk"
 
+disposition=$(find clavier -type f -name '*.kbd' | fzy)
 [ ! -p "$tmpdir/kbd_fifo" ] && mkfifo $tmpdir/kbd_fifo
 stdbuf -i0 -o0 xev | $awk_inter '
 	/^Key(Press|Release)/ {type=$1}
@@ -18,6 +22,10 @@ while read key;do
 	ps -q "$awk_pid" > /dev/null || break
 	printf "verification de $key, ligne $i\n"
 	while read entered;do
-		[ "$entered" = "$key" ] && { echo "oui";i=$(($i+1));break; } || echo "non"
+		if [ "$entered" = "$key" ];then
+			echo "oui";i=$(($i+1));break;
+		else
+			printf "reçu : %s, voulu : %s\n" "$entered" "$key"
+		fi
 	done < $tmpdir/kbd_fifo
 done < "$disposition"
diff --git a/tests/pad b/tests/pad
@@ -1,11 +1,9 @@
 # pad
+informer "Il va falloir appuyer sur toutes les touches du pad"
 
 update_layout() {
-	if [ "$i" = "0" ];then
-		cat "$disposition"
-	else
-		cat "$disposition" | sed -E "1,$i s/(.*)/\x1b[92m\1\x1b[0m/"
-	fi
+	[ "$i" = "0" ] && filter="cat" || filter='sed -E "1,$i s/(.*)/\x1b[92m\1\x1b[0m/"'
+	eval < "$disposition" "$filter"
 }
 
 command -V mawk > /dev/null && awk_inter="mawk -W interactive" || awk_inter="stdbuf -i0 -o0 gawk"