Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9052
Modified Files:
UpdateCmd.test
Log Message:
New test "Update after resChanged bit change"
Index: UpdateCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/UpdateCmd.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- UpdateCmd.test 7 Sep 2004 05:17:28 -0000 1.2
+++ UpdateCmd.test 15 Sep 2004 11:25:28 -0000 1.3
@@ -1,7 +1,7 @@
# -------------------------------------------------------
# File: "UpdateCmd.test"
# Created: 2004-09-05 20:16:33
-# Last modification: 2004-09-07 07:09:08
+# Last modification: 2004-09-15 13:02:10
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -39,10 +39,20 @@
} -returnCodes error -match glob \
-result "error * updating resource map"
-# test ResourceUpdate-1-3 {} -setup {
-# } -body {
-# } -cleanup {
-# } -result ""
+ test ResourceUpdate-1-3 {Update after resChanged bit change} -setup {
+ set fname [file join [file dir [info script]] Forks TempFork.rsrc]
+ set rid [resource open $fname w+]
+ } -body {
+ resource write -id 128 -file $rid TEXT "Hello Tclresource!"
+ resource attributes $rid -id 128 TEXT 2
+ resource update $rid
+ set res [resource attributes $rid -id 128 TEXT]
+ } -cleanup {
+ resource close $rid
+ if {[file exists $fname]} {
+ file delete $fname
+ }
+ } -result 0
# Cleanup
::tcltest::cleanupTests
|
