blob: c55236f7ef495c90781fd9cb60ce4af44a8dc062 (
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
|
When stuff should run {
Claim we started running
sleep 1
Claim we are done
}
When -atomically whatever {
Claim stuff should run
}
Claim whatever
sleep 0.5
assert {[llength [Query! -atomically stuff should run]] == 0}
assert {[llength [Query! -atomically we started running]] == 0}
sleep 2
puts =====
puts [join [Query! /someone/ claims /...xxx/] \n]
puts =====
assert {[llength [Query! -atomically stuff should run]] == 1}
assert {[llength [Query! -atomically we started running]] == 1}
Exit! 0
|
