1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996-2002
# Sleepycat Software. All rights reserved.
#
# $Id: txn007.tcl,v 1.1.1.1 2003/11/20 22:14:02 toshok Exp $
#
#TEST txn007
#TEST Test of DB_TXN_WRITE_NOSYNC
proc txn007 { { iter 50 } } {
source ./include.tcl
set testfile txn007.db
puts "Txn007: DB_TXN_WRITE_NOSYNC"
env_cleanup $testdir
# Open/create the txn region
puts "\tTxn007.a: Create env and database with -wrnosync"
set e [berkdb_env -create -home $testdir -txn -wrnosync]
error_check_good env_open [is_valid_env $e] TRUE
# Open/create database
set db [berkdb open -auto_commit -env $e \
-create -btree -dup $testfile]
error_check_good db_open [is_valid_db $db] TRUE
# Put some data
puts "\tTxn007.b: Put $iter data items in individual transactions"
for { set i 1 } { $i < $iter } { incr i } {
# Start a transaction
set txn [$e txn]
error_check_good txn [is_valid_txn $txn $e] TRUE
$db put -txn $txn key$i data$i
error_check_good txn_commit [$txn commit] 0
}
set stat [$e log_stat]
puts "\tTxn007.c: Check log stats"
foreach i $stat {
set txt [lindex $i 0]
if { [string equal $txt {Times log written}] == 1 } {
set wrval [lindex $i 1]
}
if { [string equal $txt {Times log flushed}] == 1 } {
set syncval [lindex $i 1]
}
}
error_check_good wrval [expr $wrval >= $iter] 1
#
# We should have written at least 'iter' number of times,
# but not synced on any of those.
#
set val [expr $wrval - $iter]
error_check_good syncval [expr $syncval <= $val] 1
error_check_good db_close [$db close] 0
error_check_good env_close [$e close] 0
}
|
