blob: 8ae055197cee726d93bb680a072b0370cd5a83c7 (
plain)
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
|
Exit! 0 ;# FIXME: disabling for now
When -atomically the version is /v/ {
Claim the atomic version is $v
if {$v == 2} {
# Keep v2 unconverged to make sure v1 still presents in that
# case.
sleep 1
}
}
Hold! Claim the version is 1
When -nonatomically the atomic version is 1 {
Hold! Claim the version is 2
Claim blooper
sleep 0.5
# At this point, `the atomic version is 2` should be present but
# in an unconverged version (so we won't get it in the query
# response), and `the atomic version is 1` should be present and
# returned by the query, being part of the last converged
# version.
set atomicResults [QuerySimple! true /someone/ claims the atomic version is /v/]
assert {[llength $atomicResults] == 1}
assert {[dict get [lindex $atomicResults 0] v] == 1}
}
When -nonatomically the atomic version is 2 {
sleep 2
set atomicResults [QuerySimple! true /someone/ claims the atomic version is /v/]
assert {[llength $atomicResults] == 1}
assert {[dict get [lindex $atomicResults 0] v] == 2}
Exit! 0
}
|
