1# vim: ft=tcl ts=4 sw=4 expandtab:
2
3tcltest::loadTestedCommands
4
5tcltest::test query-state-1.1 {query default asynchronous state} -setup {
6    set r [retcl new]
7} -body {
8    $r ?async
9} -result {1}
10
11tcltest::test query-state-1.2 {query false asynchronous state} -setup {
12    set r [retcl new]
13} -body {
14    $r -async
15    $r ?async
16} -result {0}
17
18tcltest::test query-state-1.3 {query true asynchronous state} -setup {
19    set r [retcl new]
20} -body {
21    $r +async
22    $r ?async
23} -result {1}
24
25tcltest::test query-state-2.1 {query default cache keeping state} -setup {
26    set r [retcl new]
27} -body {
28    $r ?keepCache
29} -result {1}
30
31tcltest::test query-state-2.2 {query false cache keeping state} -setup {
32    set r [retcl new]
33} -body {
34    $r -keepCache
35    $r ?keepCache
36} -result {0}
37
38tcltest::test query-state-2.3 {query true cache keeping state} -setup {
39    set r [retcl new]
40} -body {
41    $r +keepCache
42    $r ?keepCache
43} -result {1}
44