Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4099
Modified Files:
UpdateCmd.test
Log Message:
2 tests
Index: UpdateCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/UpdateCmd.test,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- UpdateCmd.test 6 Sep 2004 07:04:17 -0000 1.1
+++ UpdateCmd.test 7 Sep 2004 05:17:28 -0000 1.2
@@ -1,7 +1,7 @@
# -------------------------------------------------------
# File: "UpdateCmd.test"
# Created: 2004-09-05 20:16:33
-# Last modification: 2004-09-05 10:49:55
+# Last modification: 2004-09-07 07:09:08
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -22,23 +22,30 @@
namespace eval ::resource::test {
namespace import ::tcltest::*
- test ResourceUpdate-1-1 {} -setup {
+ test ResourceUpdate-1-1 {Update a read-write map} -setup {
+ set rid [resource open $resfileDF w]
} -body {
+ set res [resource update $rid]
} -cleanup {
+ resource close $rid
} -result ""
- test ResourceUpdate-1-2 {} -setup {
+ test ResourceUpdate-1-2 {Update a read-only map} -setup {
+ set rid [resource open $resfileDF]
} -body {
+ resource update $rid
} -cleanup {
- } -result ""
+ resource close $rid
+ } -returnCodes error -match glob \
+ -result "error * updating resource map"
- test ResourceUpdate-1-3 {} -setup {
- } -body {
- } -cleanup {
- } -result ""
+# test ResourceUpdate-1-3 {} -setup {
+# } -body {
+# } -cleanup {
+# } -result ""
-# Cleanup
-::tcltest::cleanupTests
+ # Cleanup
+ ::tcltest::cleanupTests
}
namespace delete ::resource::test
|
