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
|
# -*-tcl-*-
# set
key set a b
if {[key set a] ne "b"} {
error "set failed"
}
# names
if {[string length [key names a]] == 0} {
error "names failed"
}
if {[lsearch -exact [key names] a] == -1} {
error "names didn't return everything"
}
# delete
key delete -- a
key delete -exact -- a
if {![catch {key set a}]} {
error "delete failed"
}
# state
key set a b
set state [key state]
key delete *
eval $state
if {[lsearch -exact [key names] a] == -1} {
error "state wasn't saved correctly"
}
key delete a
# print
key print
key print pattern
# current
key current
|
