From 8af87ebbaded1de241e3efe902a72558367e8632 Mon Sep 17 00:00:00 2001
From: yrutschle <git1@rutschle.net>
Date: Wed, 7 Jul 2021 19:56:17 +0200
Subject: [PATCH] report errors as E instead of M, and consolidate restarts as
 simplified roman numerals

---
 t_load | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t_load b/t_load
index d7102fe..8131605 100755
--- a/t_load
+++ b/t_load
@@ -130,7 +130,7 @@ sub client {
             my $e_l = length $expected;
             $fd_out->autoflush;
             my $error = "";
-            $error = "M" if $r ne $expected;
+            $error = "E" if $r ne $expected;
             print $fd_out ("$client_id\t$r_l\t$error\n");
             ($? = 1, die "$service got [$r] expected [$expected]\n") if ($r ne $expected);
             if (rand(1) < $stop_client_probability) {
@@ -245,6 +245,10 @@ if (!fork) {
             my ($curr_rcv) = ${$data{$client_id}}[0] + $r_l;;
             $error //= "";
             my ($curr_error) = "${$data{$client_id}}[1]$error";
+            # Consolidate into... roman numerals!
+            $curr_error =~ s/D{10}/X/;
+            $curr_error =~ s/X{10}/C/;
+            $curr_error =~ s/C{10}/M/;
 
             $data{$client_id} = [ $r_l + $curr_rcv, "$curr_error$error" ];