Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4303
Modified Files:
AttributesCmd.test ReadCmd.test WriteCmd.test all.tcl
Log Message:
Completing tests suite
Index: ReadCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/ReadCmd.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ReadCmd.test 6 Sep 2004 11:12:25 -0000 1.2
+++ ReadCmd.test 7 Sep 2004 05:18:35 -0000 1.3
@@ -1,7 +1,7 @@
# -------------------------------------------------------
# File: "ReadCmd.test"
# Created: 2004-09-05 20:16:33
-# Last modification: 2004-09-05 10:49:55
+# Last modification: 2004-09-06 13:17:38
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -56,8 +56,8 @@
resource close $rid
} -returnCodes error -result "could not load resource"
-# Cleanup
-::tcltest::cleanupTests
+ # Cleanup
+ ::tcltest::cleanupTests
}
namespace delete ::resource::test
Index: all.tcl
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/all.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- all.tcl 6 Sep 2004 11:13:03 -0000 1.2
+++ all.tcl 7 Sep 2004 05:18:35 -0000 1.3
@@ -17,7 +17,6 @@
# $Revision$
# -------------------------------------------------------
-
source [file join [file dir [info script]] common.tcl]
puts stdout "Tcl $tcl_patchLevel tests running in interp: [info nameofexecutable]"
@@ -30,7 +29,6 @@
eval tcltest::configure $argv
}
-
# Skip and match variables
puts stdout "Tests running in working dir: $::tcltest::testsDirectory"
if {[llength $::tcltest::skip] > 0} {
@@ -49,7 +47,7 @@
puts stdout "Starting tests [clock format [clock seconds]]"
-# Now execute the tests suite
+# # Now execute the tests suite
# tcltest::runAllTests
# Source each of the specified tests
foreach file [lsort [::tcltest::getMatchingFiles]] {
Index: AttributesCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/AttributesCmd.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- AttributesCmd.test 6 Sep 2004 22:16:46 -0000 1.2
+++ AttributesCmd.test 7 Sep 2004 05:18:35 -0000 1.3
@@ -1,7 +1,7 @@
# -------------------------------------------------------
# File: "AttributesCmd.test"
# Created: 2004-09-05 20:16:33
-# Last modification: 2004-09-06 23:24:58
+# Last modification: 2004-09-07 07:12:14
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -89,6 +89,15 @@
} -returnCodes error -match glob \
-result "resource not found"
+ test ResourceAttributes-1-8 {Call on non-existing resource reference} -setup {
+ set rid [resource open $resfileDF]
+ } -body {
+ resource attributes foo
+ } -cleanup {
+ resource close $rid
+ } -returnCodes error -match glob \
+ -result "invalid resource file reference*"
+
# Cleanup
::tcltest::cleanupTests
}
|
