From 91363128b5918a16a8426ca31b43927004d1535d Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Wed, 21 May 2025 17:13:55 +0200
Subject: [PATCH] try

---
 .../gdb.testsuite/gdb-test-multiple.exp       | 25 ++++++++++
 gdb/testsuite/gdb.testsuite/gdb.sh            | 47 +++++++++++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 gdb/testsuite/gdb.testsuite/gdb-test-multiple.exp
 create mode 100755 gdb/testsuite/gdb.testsuite/gdb.sh

diff --git a/gdb/testsuite/gdb.testsuite/gdb-test-multiple.exp b/gdb/testsuite/gdb.testsuite/gdb-test-multiple.exp
new file mode 100644
index 00000000000..ac0674ef20f
--- /dev/null
+++ b/gdb/testsuite/gdb.testsuite/gdb-test-multiple.exp
@@ -0,0 +1,25 @@
+set GDB $srcdir/$subdir/gdb.sh
+clean_restart
+
+gdb_test_multiple "command" "" -lbl {
+    -re "^command(?=\r\n)" {
+	verbose -log <COMMAND>
+	exp_continue
+    }
+    -re "^\r\nprefix foo(?=\r\n)" {
+	verbose -log <PREFIX-FOO>
+	exp_continue
+    }
+    -re "^\r\nprefix bar(?=\r\n)" {
+	verbose -log <PREFIX-BAR>
+	exp_continue
+    }
+    -re "^\r\nprefix (?=\r\n)" {
+	verbose -log <PREFIX>
+	exp_continue
+    }
+    -re -wrap "" {
+	verbose -log "<PROMPT>"
+	pass $gdb_test_name
+    }
+}
diff --git a/gdb/testsuite/gdb.testsuite/gdb.sh b/gdb/testsuite/gdb.testsuite/gdb.sh
new file mode 100755
index 00000000000..9c358f1a204
--- /dev/null
+++ b/gdb/testsuite/gdb.testsuite/gdb.sh
@@ -0,0 +1,47 @@
+#!/bin/sh
+
+while [ $# -gt 0 ]; do
+    case $1 in
+	--version)
+	    echo "gdb.sh"
+	    exit 0
+	    ;;
+	*)
+	    ;;
+    esac
+
+    shift
+done
+
+while true; do
+    echo -n "(gdb) "
+    read line
+
+    if [ "$line" = "set height 0" ]; then
+	continue
+    fi
+
+    if [ "$line" = "set width 0" ]; then
+	continue
+    fi
+
+    if [ "$line" = "dir" ]; then
+	echo -n "Reinitialize source path to empty? (y or n) "
+	read response
+	echo 'Source directories searched: $cdir:$cwd'
+	continue
+    fi
+
+    if [ "$line" = "dir /data/vries/gdb/src/gdb/testsuite/gdb.testsuite" ]; then
+	echo "Source directories searched: /data/vries/gdb/src/gdb/testsuite/gdb.testsuite:$cdir:$cwd"
+	continue
+    fi
+
+    if [ "$line" = "command" ]; then
+	echo "prefix foo"
+	echo "prefix bar"
+	for n in $(seq 1 1); do
+	    echo "meant-to-be-matched-by-lbl-$n"
+	done
+    fi
+done

base-commit: 14dd98b0f7f04d25bc7bc63de3ab958bdd51641d
-- 
2.43.0