interactive.test: sleep before sendopenbsd-fix

Small sleep before send to give the subprocess time to initialise

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 6 insertions, 7 deletions

diff --git a/tests/interactive.test b/tests/interactive.test
index a7b228c..28b699e 100644
--- a/tests/interactive.test
+++ b/tests/interactive.test
@@ -75,9 +75,10 @@ test interactive-1.3 {history show} -constraints lineedit -body {
 }
 
 test interactive-1.4 {history getline} -constraints lineedit -body {
-	$p send "history getline {PROMPT> }\r"
+	sleep 0.1
+	$p send "history getline {PROMPT >}\r"
 	$p expect {\r\n}
-	sleep 0.25
+	sleep 0.1
 	$p send "abc\bd\x01e\r"
 	$p expect {\r\n}
 	$p expect {\r\n}
@@ -87,14 +88,15 @@ test interactive-1.4 {history getline} -constraints lineedit -body {
 }
 
 test interactive-1.5 {history getline} -constraints lineedit -body {
+	sleep 0.1
 	$p send "set len \[history getline {PROMPT> } buf\]\r"
 	$p expect {\r\n}
-	sleep 0.25
+	sleep 0.1
 	$p send "abcde\r"
 	$p expect {\r\n}
 	$p expect {\r\n}
-	sleep 0.25
 	$p wait-for-prompt
+	sleep 0.1
 	$p send "list \$len \$buf\r"
 	$p expect {\r\n}
 	$p expect {\r\n}
@@ -111,7 +113,6 @@ test interactive-1.6 {insert wide character} -constraints {utf8 lineedit} -body
 	$p send y
 	$p send \r
 	$p expect {\r\n}
-	sleep 0.25
 	$p expect {\r\n}
 	$p before
 } -result ay\u1100b -cleanup {
@@ -126,7 +127,6 @@ test interactive-1.7 {insert utf-8 combining character} -constraints {utf8 linee
 	$p send y
 	$p send \r
 	$p expect {\r\n}
-	sleep 0.25
 	$p expect {\r\n}
 	$p before
 } -result yx\u0300 -cleanup {
@@ -135,7 +135,6 @@ test interactive-1.7 {insert utf-8 combining character} -constraints {utf8 linee
 
 # send ^D to cause the interpeter to exit
 $p send \x04
-sleep 0.25
 $p expect EOF
 $p close