From ba8a9c512f733da5f0db3055c0a24590c542b9ea Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Wed, 19 Jun 2024 10:04:54 +0000
Subject: Add back tests for inject crashes adapted for coroinject

---
 tests/coroutine.test | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/tests/coroutine.test b/tests/coroutine.test
index e51d655..845a4df 100644
--- a/tests/coroutine.test
+++ b/tests/coroutine.test
@@ -825,6 +825,30 @@ test coroutine-7.14 {
 	return [list $done0 $done1]
 } -result {failure failure}
 
+test coroutine-8.1.1 {coro inject, ticket 42202ba1e5ff566e} -body {
+    interp create child
+    child eval {
+	coroutine demo apply {{} { while {1} yield }}
+	demo
+	coroinject demo set ::result inject-executed
+    }
+    interp delete child
+} -result {}
+test coroutine-8.1.2 {coro inject with result, ticket 42202ba1e5ff566e} -body {
+    interp create child
+    child eval {
+	coroutine demo apply {{} { while {1} yield }}
+	demo
+	coroinject demo lappend ::result inject-executed
+    }
+    child eval demo
+    set result [child eval {set ::result}]
+
+    interp delete child
+    set result
+} -result {inject-executed yield {}}
+
+
 test coroutine-9.1 {coroprobe with yield} -body {
     coroutine demo apply {{} { foreach i {1 2} yield }}
     list [coroprobe demo set i] [demo] [coroprobe demo set i] [demo]
-- 
cgit v0.12