Stricter ethd CI

Author: yorickdowne

.github/test-ethd-config.exp

@@ -20,100 +20,132 @@ proc address {} {
     send "0xDccf8451070a86183eE70D330C4c43b686E9CF86\t\r"
 }
 
+proc expect_or_fail {pattern procname {t ""}} {
+    set old_timeout $::timeout
+    if {$t ne ""} {
+        set ::timeout $t
+    }
+    expect {
+        $pattern {
+            $procname
+	}
+        timeout {
+            puts "Timeout waiting for: $pattern"
+            exit 1
+        }
+        eof {
+            puts "Unexpected EOF while waiting for: $pattern"
+            exit 1
+        }
+    }
+    set ::timeout $old_timeout
+}
+
+proc expect_optional {pattern procname {t ""}} {
+    set old_timeout $::timeout
+    if {$t ne ""} {
+        set ::timeout $t
+    }
+    expect {
+        $pattern {
+            $procname
+        }
+        timeout {}
+        eof {
+            puts "Unexpected EOF while waiting for optional: $pattern"
+            exit 1
+        }
+    }
+    set ::timeout $old_timeout
+}
+
+proc expect_eof {{t ""}} {
+    set old_timeout $::timeout
+    if {$t ne ""} {
+        set ::timeout $t
+    }
+    expect {
+        eof {}
+        timeout {
+            if {$t ne ""} {
+                puts "Timeout waiting for EOF"
+                exit 1
+            }
+        }
+    }
+    set ::timeout $old_timeout
+}
+
 proc default-deployment {} {
-    global spawn_id
-    expect "Select Network"
-    accept_default
+    expect_or_fail "Select Network" accept_default
 
-    expect "Select deployment type"
-    accept_default
+    expect_or_fail "Select deployment type" accept_default
 
-    expect "Select consensus client"
-    accept_default
+    expect_or_fail "Select consensus client" accept_default
 
-    expect "Select execution client"
-    accept_default
+    expect_or_fail "Select execution client" accept_default
 }
 
 proc all-defaults {} {
-    global spawn_id
     default-deployment
 
-    expect "Configure CL checkpoint sync URL"
-    accept_default
+    expect_or_fail "Configure CL checkpoint sync URL" accept_default
 
-    expect "MEV Boost"
-    yes
+    expect_or_fail "MEV Boost" yes
 
-    expect "Relays list"
-    accept_default
+    expect_or_fail "Relays list" accept_default
 
-    expect "Grafana"
-    yes
+    expect_optional "MEV Build Factor" yes 120
 
-    expect "Configure rewards address"
-    address
+    expect_or_fail "Grafana" yes
 
-    expect "Configure Graffiti"
-    accept_default
+    expect_or_fail "Configure rewards address" address
 
-    expect "Default Graffiti"
-    yes
+    expect_or_fail "Configure Graffiti" accept_default
 
-    expect EOF
+    expect_or_fail "Default Graffiti" yes
+
+    expect_eof 300
 }
 
 proc no-mev {} {
-    global spawn_id
     default-deployment
 
-    expect "Configure CL checkpoint sync URL"
-    accept_default
+    expect_or_fail "Configure CL checkpoint sync URL" accept_default
 
-    expect "MEV Boost"
-    no
+    expect_or_fail "MEV Boost" no
 
-    expect "Grafana"
-    yes
+    expect_or_fail "Grafana" yes
 
-    expect "Configure rewards address"
-    address
+    expect_or_fail "Configure rewards address" accept_default
 
-    expect "Configure Graffiti"
-    accept_default
+    expect_or_fail "Configure Graffiti" accept_default
 
-    expect "Default Graffiti"
-    yes
+    expect_or_fail "Default Graffiti" yes
 
-    expect EOF
+    expect_eof 300
 }
 
 proc no-grafana {} {
-    global spawn_id
     default-deployment
 
-    expect "Configure CL checkpoint sync URL"
-    accept_default
+    expect_or_fail "Configure CL checkpoint sync URL" accept_default
+
+    expect_or_fail "MEV Boost" yes
 
-    expect "MEV Boost"
-    yes
+    expect_or_fail "Relays list" accept_default
 
-    expect "Relays list"
-    accept_default
+    expect_optional "MEV Build Factor" yes
 
-    expect "Grafana"
-    no
+    expect_or_fail "Grafana" no
 
-    expect "Configure rewards address"
-    address
+    expect_or_fail "Configure rewards address" accept_default
 
-    expect "Configure Graffiti"
-    accept_default
+    expect_or_fail "Configure Graffiti" accept_default
 
-    expect "Default Graffiti"
-    yes
+    expect_or_fail "Default Graffiti" yes
 
-    expect EOF
+    expect_eof 300
 }
 
 set timeout 5
@@ -124,7 +156,6 @@ if {$argc > 0} {
     set action [lindex $argv 0]
     switch -- $action {
         "all-defaults" all-defaults
-        "no-checkpoint" no-checkpoint
         "no-mev" no-mev
         "no-grafana" no-grafana
         default  { puts "Unknown action: $action"; exit 1 }