Lines Matching refs:txn
9 # TEST A txn that will become a parent create a database.
10 # TEST A txn that will not become a parent creates another database.
11 # TEST Start a child txn of the 1st txn.
12 # TEST Verify that the parent txn is disabled while child is open.
15 # TEST Verify that the non-parent txn can read from its database,
16 # TEST and that the child txn cannot.
17 # TEST Return to the child txn.
39 set eflags "-create -mode 0644 -txn -home $testdir"
43 # Open a database with parent txn and populate. We populate
44 # before starting up the child txn, because the only allowed
45 # Berkeley DB calls for a parent txn are beginning child txns,
48 puts "\tTxn$tnum.b: Start parent txn and open database."
49 set parent [$env txn]
52 -env $env -txn $parent -create $method $parentfile]
55 puts "\tTxn$tnum.c: Start non-parent txn and open database."
56 set nonparent [$env txn]
59 -env $env -txn $nonparent -create $method $nonparentfile]
62 # Start child txn and open database. Parent txn is not yet
64 # The child txn should also be able to use the parent txn.
66 puts "\tTxn$tnum.d: Start child txn."
67 set child [$env txn -parent $parent]
70 catch {$db put -txn $parent a a} ret
74 puts "\tTxn$tnum.f: Get a handle on parent's database using child txn."
76 [berkdb_open_noerr -env $env -txn $child $method $parentfile]
78 puts "\tTxn$tnum.g: Read database with child txn/child handle,"
79 puts "\tTxn$tnum.g: and with child txn/parent handle."
86 set ret [$childdb get -txn $child $key]
91 set ret [$db get -txn $child $key]
99 # to read the same key using the child txn. It will fail.
101 set ret [$db2 get -txn $nonparent $key]
107 catch {$db2 get -txn $child $key} ret
113 puts "\tTxn$tnum.i: Write to database with child txn & child handle."
115 puts "\tTxn$tnum.j: Write to database with child txn & parent handle."
122 puts "\tTxn$tnum.l: Add more entries to db using parent txn."
126 puts "\tTxn$tnum.m: Start new child txn and read database."
127 set child2 [$env txn -parent $parent]
129 [berkdb_open_noerr -env $env -txn $child2 $method $parentfile]
135 set ret [$child2db get -txn $child2 $key]