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

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

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

Modified Files:
	OpenCmd.test 
Log Message:
12 tests

Index: OpenCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/OpenCmd.test,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- OpenCmd.test	6 Sep 2004 07:03:46 -0000	1.1
+++ OpenCmd.test	6 Sep 2004 13:42:23 -0000	1.2
@@ -1,7 +1,7 @@
 # -------------------------------------------------------
 # File: "OpenCmd.test"
 #                        Created: 2004-09-05 20:16:33
-#              Last modification: 2004-09-05 10:49:55
+#              Last modification: 2004-09-06 13:18:23
 # Author: Bernard Desgraupes
 # e-mail: <bde...@ea...>
 # www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -22,23 +22,92 @@
 namespace eval ::resource::test {
 	namespace import ::tcltest::*
 
-	test ResourceOpen-1-1 {} -setup {
+	test ResourceOpen-1-1 {DF file unspecified fork} -setup {
 	} -body {
+		set rid [resource open $resfileDF]
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -match glob -result resource*
 		
-	test ResourceOpen-1-2 {} -setup {
+	test ResourceOpen-1-2 {RF file unspecified fork} -setup {
 	} -body {
+		set rid [resource open $resfileRF]
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -match glob -result resource*
 		
-	test ResourceOpen-1-3 {} -setup {
+	test ResourceOpen-1-3 {Open data fork} -setup {
 	} -body {
+		set rid [resource open -datafork $resfileDF]
 	} -cleanup {
-	} -result ""
+		resource close $rid
+	} -match glob -result resource*
 		
-# Cleanup
-::tcltest::cleanupTests
+	test ResourceOpen-1-4 {Open resource fork} -setup {
+	} -body {
+		set rid [resource open -resourcefork $resfileRF]
+	} -cleanup {
+		resource close $rid
+	} -match glob -result resource*
+		
+	test ResourceOpen-1-5 {File with no fork} -setup {
+	} -body {
+		set rid [resource open $resfileNF]
+	} -cleanup {
+	} -returnCodes error -result "file does not contain resources in any fork"
+		
+	test ResourceOpen-1-6 {Open DF when resource is in RF} -setup {
+	} -body {
+		set rid [resource open -datafork $resfileRF]
+	} -cleanup {
+	} -returnCodes error -result "file does not contain resources in the data fork"
+		
+	test ResourceOpen-1-7 {Open RF when resource is in DF} -setup {
+	} -body {
+		set rid [resource open -resourcefork $resfileDF]
+	} -cleanup {
+	} -returnCodes error -result "file does not contain resources in the resource fork"
+		
+	test ResourceOpen-2-1 {Read permission} -setup {
+	} -body {
+		set rid [resource open $resfileDF r]
+	} -cleanup {
+		resource close $rid
+	} -match glob -result resource*
+		
+	test ResourceOpen-2-2 {Write permission} -setup {
+	} -body {
+		set rid [resource open $resfileDF w]
+	} -cleanup {
+		resource close $rid
+	} -match glob -result resource*
+		
+	test ResourceOpen-2-3 {Open with w but already opened with r} -setup {
+	} -body {
+		set rid [resource open $resfileDF r]
+		resource open $resfileDF w
+	} -cleanup {
+		resource close $rid
+	} -returnCodes error -result "resource already opened with different permission"
+		
+	test ResourceOpen-2-4 {Open with r but already opened with w} -setup {
+	} -body {
+		set rid [resource open $resfileDF w]
+		resource open $resfileDF r
+	} -cleanup {
+		resource close $rid
+	} -returnCodes error -result "resource already opened with different permission"
+		
+	test ResourceOpen-2-5 {Already opened with same permission} -setup {
+	} -body {
+		set rid [resource open $resfileDF w]
+		resource open $resfileDF w
+	} -cleanup {
+		resource close $rid
+	} -match glob -result resource*
+		
+	# Cleanup
+	::tcltest::cleanupTests
 }
 
 namespace delete ::resource::test