[Tclresource-commits] Extras/Tests ReadCmd.test,1.1,1.2

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

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7659

Modified Files:
	ReadCmd.test 
Log Message:
Four tests

Index: ReadCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/ReadCmd.test,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ReadCmd.test	6 Sep 2004 07:03:55 -0000	1.1
+++ ReadCmd.test	6 Sep 2004 11:12:25 -0000	1.2
@@ -22,20 +22,39 @@
 namespace eval ::resource::test {
 	namespace import ::tcltest::*
 
-	test ResourceRead-1-1 {} -setup {
+	test ResourceRead-1-1 {Read a text resource} -setup {
+	set rid [resource open $resfileDF]
 	} -body {
+		set res [resource read TEXT 128 $rid]
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -result "Hello Tclresource!"
 		
-	test ResourceRead-1-2 {} -setup {
+	test ResourceRead-1-2 {Read binary data} -setup {
+		set rid [resource open $resfileDF]
 	} -body {
+		set bin [resource read ALRT 128 $rid]
+		binary scan $bin H* res
+		set res
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -result "002800280087017c00805555300a"
 		
-	test ResourceRead-1-3 {} -setup {
+	test ResourceRead-1-3 {Non existing type} -setup {
+		set rid [resource open $resfileDF]
 	} -body {
+		set bin [resource read wxyz 128 $rid]
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -returnCodes error -result "could not load resource"
+		
+	test ResourceRead-1-4 {Non existing ID} -setup {
+		set rid [resource open $resfileDF]
+	} -body {
+		set bin [resource read ALRT 1000 $rid]
+	} -cleanup {
+		resource close $rid
+	} -returnCodes error -result "could not load resource"
 		
 # Cleanup
 ::tcltest::cleanupTests