diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2015-02-17 17:25:57 +0000 |
|---|---|---|
| committer | <> | 2015-03-17 16:26:24 +0000 |
| commit | 780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch) | |
| tree | 598f8b9fa431b228d29897e798de4ac0c1d3d970 /test/tcl/mpoolscript.tcl | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'test/tcl/mpoolscript.tcl')
| -rw-r--r-- | test/tcl/mpoolscript.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/test/tcl/mpoolscript.tcl b/test/tcl/mpoolscript.tcl index 9f7b30f2..774a0e84 100644 --- a/test/tcl/mpoolscript.tcl +++ b/test/tcl/mpoolscript.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 1996, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -148,10 +148,6 @@ while { $i != $id } { set p [$mpf get -create $i] error_check_good mp_get [is_valid_page $p $mpf] TRUE - set p1 [$mpf get -dirty $i] - error_check_good mp_get_p1_dirty [is_valid_page $p1 $mpf] TRUE - error_check_good page_put:$p1 [$p1 put] 0 - if { [$p is_setto MASTER$i] != 1 } { puts "Warning: Master page $i not set." } @@ -160,6 +156,11 @@ while { $i != $id } { set i [expr ($i + 1) % $maxprocs] } +# Check that -dirty is accepted by itself, without -create +set p [$mpf get -dirty [expr ($id + 1) % $maxprocs]] +error_check_good mp_get_dirty [is_valid_page $p $mpf] TRUE +error_check_good page_put_dirty:$p [$p put] 0 + # Close files foreach i $mpools { set r [$i close] |