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/sec002.tcl | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'test/tcl/sec002.tcl')
| -rw-r--r-- | test/tcl/sec002.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/tcl/sec002.tcl b/test/tcl/sec002.tcl index 7b459a5b..049b3fd8 100644 --- a/test/tcl/sec002.tcl +++ b/test/tcl/sec002.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1999, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 1999, 2015 Oracle and/or its affiliates. All rights reserved. # # $Id$ # @@ -85,7 +85,7 @@ proc sec002 { } { # # First just touch some bits in the file. We know that in btree - # meta pages, bytes 92-459 are unused. Scribble on them in both + # meta pages, bytes 112-459 are unused. Scribble on them in both # an encrypted, and both unencrypted files. We should get # a checksum error for the encrypted, and checksummed files. # We should get no error for the normal file. @@ -101,12 +101,12 @@ proc sec002 { } { puts "\tSec002.c: Overwrite unused space in meta-page" foreach f $fidlist { fconfigure $f -translation binary - seek $f 100 start + seek $f 120 start set byte [read $f 1] binary scan $byte c val set newval [expr ~$val] set newbyte [binary format c $newval] - seek $f 100 start + seek $f 120 start puts -nonewline $f $newbyte close $f } |