From 99e1b20c806fb795368afb3512e472bd93931313 Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Fri, 29 Sep 2023 17:17:11 +0000
Subject: Add test for crash

---
 tests/zipfs.test | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/zipfs.test b/tests/zipfs.test
index 64ce1eb..583a4d8 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -1509,6 +1509,19 @@ namespace eval test_ns_zipfs {
         list [catch {read $fd} message] [close $fd] $message
         close $fd
     } -result {file size error (may be zip64)} -returnCodes error
+
+    test bug-8259d74a64 "Crash exiting with open files" -setup {
+        set path [zippath test.zip]
+        set script "zipfs mount $path /\n"
+        append script {open [zipfs root]test} \n
+        append script "exit\n"
+    } -body {
+        set fd [open |[info nameofexecutable] r+]
+        puts $fd $script
+        flush $fd
+        read $fd
+        close $fd
+    } -result ""
 }
 
 
-- 
cgit v0.12