[Tclresource-commits] Extras/Tests AttributesCmd.test,1.2,1.3 ReadCmd.test,1.2,1.3 WriteCmd.test,1.3,1.4 all.tcl,1.2,1.3

[Bernard D. <bde...@us...>]

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
 }