summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-10-23 10:07:09 (GMT)
committervincentdarley <vincentdarley>2003-10-23 10:07:09 (GMT)
commit06f7470662af25ea53cefea3f2e731cbf6ce2eaf (patch)
treefb164689706be091d7b284d1badda12f413e55b6 /tests
parent3d2bf93ebfb3da81215e1ec381ba9cab00535ba3 (diff)
downloadtcl-06f7470662af25ea53cefea3f2e731cbf6ce2eaf.zip
tcl-06f7470662af25ea53cefea3f2e731cbf6ce2eaf.tar.gz
tcl-06f7470662af25ea53cefea3f2e731cbf6ce2eaf.tar.bz2
mac resource freeing fix
Diffstat (limited to 'tests')
-rw-r--r--tests/resource.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/resource.test b/tests/resource.test
index f968769..a650d48 100644
--- a/tests/resource.test
+++ b/tests/resource.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: resource.test,v 1.8 2003/10/06 14:32:22 dgp Exp $
+# RCS: @(#) $Id: resource.test,v 1.9 2003/10/23 10:07:30 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -148,6 +148,10 @@ test resource-5.4 {resource types tests} {macOnly} {
resource close $id
set result
} {TEXT}
+test resource-5.5 {resource types lists} {macOnly} {
+ # This should not crash
+ catch {foreach f [resource types] { resource list $f }}
+} {0}
# resource write tests
test resource-6.1 {resource write tests} {macOnly} {