Bug 15081

https://autobuilder.yoctoproject.org/typhoon/#/builders/82/builds/4627/steps/13/logs/stdio

'tcl': ['aaa_exit.test']

FAIL: aaa_exit.test
Tests running in interp:  /usr/lib/tcl/ptest/tcltest
Tests located in:  /usr/lib/tcl/ptest/tests
Tests running in:  /usr/lib/tcl/ptest
Temporary files stored in /usr/lib/tcl/ptest
Test files run in separate interpreters
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  aaa_exit.test
Tests began at Fri Mar 17 17:32:49 GMT 2023
aaa_exit.test


==== exit-1.1 normal, quick exit FAILED
==== Contents of test case:

     set f [open "|[interpreter] << \"exec [interpreter] << {set ::env(TCL_FINALIZE_ON_EXIT) 0;exit}\"" r]
     set aft [after 1000 {set done "Quick exit hangs !!!"}]
     fileevent $f readable {after cancel $aft;set done OK}
     vwait done
     if {$done != "OK"} {
     	fconfigure $f -blocking 0
	close $f
     } else {
	if {[catch {close $f} err]} {
	    set done "Quick exit misbehaves: $err"
	}
     }
     set done

---- Result was:
Quick exit hangs !!!
---- Result should have been (exact matching):
OK
==== exit-1.1 FAILED