diff options
Diffstat (limited to 'db-4.8.30/test/fop002.tcl')
| -rw-r--r-- | db-4.8.30/test/fop002.tcl | 135 |
1 files changed, 135 insertions, 0 deletions
diff --git a/db-4.8.30/test/fop002.tcl b/db-4.8.30/test/fop002.tcl new file mode 100644 index 0000000..9a1aa54 --- /dev/null +++ b/db-4.8.30/test/fop002.tcl @@ -0,0 +1,135 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST fop002.tcl +# TEST Test file system operations in the presence of bad permissions. +proc fop002 { method args } { + source ./include.tcl + + set args [convert_args $method $args] + set omethod [convert_method $method] + + env_cleanup $testdir + puts "\nFop002: ($method) File system ops and permissions." + if { $is_windows_test == 1 } { + puts "\tSkipping permissions test for Windows platform." + return + } + + # Create database with -rw-r--r-- permissions. + set perms "0644" + set testfile $testdir/a.db + set destfile $testdir/b.db + + set db [eval \ + {berkdb_open -create} $omethod $args -mode $perms $testfile] + error_check_good db_open [is_valid_db $db] TRUE + error_check_good db_put [$db put 1 [chop_data $method a]] 0 + error_check_good db_close [$db close] 0 + + # Eliminate all read and write permission, and try to execute + # file ops. They should fail. + set res [exec chmod 0000 $testfile] + error_check_good remove_permissions [llength $res] 0 + # Put remove last on the list of ops since it should succeed + # at the end of the test, removing the test file. + set ops [list open_create open rename remove] + set rdonly 0 + + puts "\tFop002.a: Test with neither read nor write permission." + foreach op $ops { + puts "\t\tFop002.a: Testing $op for failure." + switch $op { + open { + test_$op $testfile $omethod $args $rdonly 1 + } + rename { + test_$op $testfile $destfile 1 + } + open_create { + test_$op $testfile $omethod $args 1 + } + remove { + test_$op $testfile 1 + } + } + } + + # Change permissions to read-only. + puts "\tFop002.b: Test with read-only permission." + set rdonly 1 + + set res [exec chmod 0444 $testfile] + error_check_good set_readonly [llength $res] 0 + + foreach op $ops { + puts "\t\tFop002.b: Testing $op for success." + switch $op { + open { + test_$op $testfile $omethod $args $rdonly 0 + } + rename { + test_$op $testfile $destfile 0 + # Move it back so later tests work + test_$op $destfile $testfile 0 + } + open_create { + puts "\t\tSkipping open_create with read-only." + } + remove { + test_$op $testfile 0 + } + } + } +} + +proc test_remove { testfile {expectfail 0} } { + catch { berkdb dbremove $testfile } res + if { $expectfail == 1 } { + error_check_good remove_err $res "db remove:permission denied" + } else { + error_check_good remove $res 0 + } +} + +proc test_rename { testfile destfile {expectfail 0} } { + catch { berkdb dbrename $testfile $destfile } res + if { $expectfail == 1 } { + error_check_good rename_err $res "db rename:permission denied" + } else { + error_check_good rename $res 0 + } +} + +proc test_open_create { testfile omethod args {expectfail 0} } { + set stat [catch { set db \ + [eval {berkdb_open -create} $omethod $args $testfile]} res] + if { $expectfail == 1 } { + error_check_good open_create_err $res \ + "db open:permission denied" + } else { + error_check_good open_create $stat 0 + # Since we succeeded, we have to close the db. + error_check_good db_close [$db close] 0 + } +} + +proc test_open { testfile omethod args {readonly 0} {expectfail 0} } { + if { $readonly == 1 } { + set stat [catch {set db \ + [eval {berkdb_open -rdonly} $omethod $args $testfile]} res] + } else { + set stat [catch {set db [berkdb_open $omethod $testfile]} res] + } + if { $expectfail == 1 } { + error_check_good open_err $res \ + "db open:permission denied" + } else { + error_check_good db_open $stat 0 + error_check_good db_close [$db close] 0 + } +} + |