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/rep087.tcl | |
| parent | 7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff) | |
| download | berkeleydb-master.tar.gz | |
Diffstat (limited to 'test/tcl/rep087.tcl')
| -rw-r--r-- | test/tcl/rep087.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/test/tcl/rep087.tcl b/test/tcl/rep087.tcl index 653e29c8..b1a8254f 100644 --- a/test/tcl/rep087.tcl +++ b/test/tcl/rep087.tcl @@ -1,6 +1,6 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 2009, 2012 Oracle and/or its affiliates. All rights reserved. +# Copyright (c) 2009, 2015 Oracle and/or its affiliates. All rights reserved. # # TEST rep087 # TEST Abbreviated internal init with open file handles. @@ -219,6 +219,18 @@ proc rep087_sub { method niter tnum with_nimdb largs } { error_check_good access_ok [catch {$db get $a_key} ret] 0 } + # + # If we're a queue database, add in a check to make sure a client + # cannot do a db get -consume because that is an update operation. + # + set dbtype [$db get_type] + if { $dbtype == "queue" } { + puts "\tRep$tnum: Try to consume a queue entry on a client." + set ret [catch {$db get -consume} res] + error_check_bad client_consume $ret 0 + error_check_good right_error \ + [is_substr $res "permission denied"] 1 + } puts "\tRep$tnum: Clean up." $db close $envs(A) close |