libdb/test/tcl/mut003.tcl

# See the file LICENSE for redistribution information.
#
# Copyright (c) 2009, 2011 Oracle and/or its affiliates.  All rights reserved.
#
# $Id$
#
# TEST	mut003
# TEST	Try doing mutex operations out of order.  Make sure 
# TEST	we get appropriate errors.

proc mut003 { } {
	source ./include.tcl
	env_cleanup $testdir

	puts "Mut003: Out of order mutex operations."

	# Allocate a mutex.  Try to unlock it before it's locked.
	puts "\tMut003.a: Try to unlock a mutex that's not locked."
	set env [berkdb_env_noerr -create -home $testdir]
	set mutex [$env mutex]
	catch { $env mutex_unlock $mutex } res
	error_check_good \
	    already_unlocked [is_substr $res "lock already unlocked"] 1
	env_cleanup $testdir
	
	# Allocate and lock a mutex.  Try to unlock it twice.
	puts "\tMut003.b: Try to unlock a mutex twice."
	set env [berkdb_env_noerr -create -home $testdir]
	set mutex [$env mutex]
	error_check_good mutex_lock [$env mutex_lock $mutex] 0
	error_check_good mutex_unlock [$env mutex_unlock $mutex] 0
	catch { $env mutex_unlock $mutex } res
	error_check_good \
	    already_unlocked [is_substr $res "lock already unlocked"] 1
	env_cleanup $testdir

}