summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-11-18 10:10:13 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-11-18 10:10:13 (GMT)
commit80eca273f4b974b66e91dade8b680590398338c4 (patch)
tree92b725018bf43c0ac6de105fb02c58176397a8e3
parent4e232e3df1b018c1bf239180c52fec83d279362d (diff)
downloadtcl-80eca273f4b974b66e91dade8b680590398338c4.zip
tcl-80eca273f4b974b66e91dade8b680590398338c4.tar.gz
tcl-80eca273f4b974b66e91dade8b680590398338c4.tar.bz2
* tests/oo.test: [Bug 3111059]: Added testing that neatly trapped this
issue.
-rw-r--r--ChangeLog25
-rw-r--r--tests/oo.test36
2 files changed, 50 insertions, 11 deletions
diff --git a/ChangeLog b/ChangeLog
index f32e04a..63ca8a8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,26 +1,31 @@
+2010-11-18 Donal K. Fellows <dkf@users.sf.net>
+
+ * tests/oo.test: [Bug 3111059]: Added testing that neatly trapped this
+ issue.
+
2010-11-18 Miguel Sofer <msofer@users.sf.net>
- * generic/tclNamesp.c: fix leak due to bad looping construct,
- [Bug 3111059]
+ * generic/tclNamesp.c: [Bug 3111059]: Fix leak due to bad looping
+ construct.
2010-11-17 Jan Nijtmans <nijtmans@users.sf.net>
- * win/tcl.m4: [FRQ 491789]: "setargv() doesn't support a
- unicode cmdline" now implemented for mingw-w64
+ * win/tcl.m4: [FRQ 491789]: "setargv() doesn't support a unicode
+ cmdline" now implemented for mingw-w64
* win/configure (re-generated)
2010-11-16 Jan Nijtmans <nijtmans@users.sf.net>
- * win/tclAppInit.c Bring compilation under mingw-w64 a bit closer
- * win/cat.c to reality. See for what's missing:
- * win/tcl.m4 <https://sourceforge.net/apps/trac/mingw-w64/wiki/Unicode%20apps>
- * win/configure (re-generated)
- * win/tclWinPort.h [Bug #3110161]: Extensions using TCHAR don't compile
+ * win/tclAppInit.c:Bring compilation under mingw-w64 a bit closer
+ * win/cat.c: to reality. See for what's missing:
+ * win/tcl.m4: <https://sourceforge.net/apps/trac/mingw-w64/wiki/Unicode%20apps>
+ * win/configure: (re-generated)
+ * win/tclWinPort.h:[Bug #3110161]: Extensions using TCHAR don't compile
on VS2005 SP1
2010-11-15 Andreas Kupries <andreask@activestate.com>
- * doc/interp.n: [3081184] TIP #378.
+ * doc/interp.n: [Bug 3081184]: TIP #378.
* doc/tclvars.n: Performance fix for TIP #280.
* generic/tclBasic.c:
* generic/tclExecute.c:
diff --git a/tests/oo.test b/tests/oo.test
index 4e3a42e..bea9e1a 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: oo.test,v 1.41 2010/11/09 14:41:22 dkf Exp $
+# RCS: @(#) $Id: oo.test,v 1.42 2010/11/18 10:10:14 dkf Exp $
package require -exact TclOO 0.6.2 ;# Must match value in generic/tclOO.h
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -2615,6 +2615,40 @@ test oo-30.2 {Bug 2903011: deleting an object in a constructor} -setup {
} -returnCodes error -cleanup {
cls destroy
} -result {object deleted in constructor}
+
+test oo-31.1 {Bug 3111059: when objects and coroutines entangle} -setup {
+ oo::class create cls
+} -constraints memory -body {
+ oo::define cls {
+ method justyield {} {
+ yield
+ }
+ constructor {} {
+ coroutine coro my justyield
+ }
+ }
+ list [leaktest {[cls new] destroy}] [info class instances cls]
+} -cleanup {
+ cls destroy
+} -result {0 {}}
+test oo-31.2 {Bug 3111059: when objects and coroutines entangle} -setup {
+ oo::class create cls
+} -constraints memory -body {
+ oo::define cls {
+ method justyield {} {
+ yield
+ }
+ constructor {} {
+ coroutine coro my justyield
+ }
+ destructor {
+ rename coro {}
+ }
+ }
+ list [leaktest {[cls new] destroy}] [info class instances cls]
+} -cleanup {
+ cls destroy
+} -result {0 {}}
cleanupTests
return