blob: 22f295c0eea54b9ee6488e3a7c765cbe030fc6e4 (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
# This tests the "header" functions in HList
#
#
# Assumptions:
# (1) add command OK
#
proc test {cmd {result {}} {ret {}}} {
if [catch {set ret [uplevel 1 $cmd]} err] {
set done 0
foreach r $result {
if [regexp $r $err] {
puts "error message OK: $err"
set done 1
break
}
}
if {!$done} {
error $err
}
} else {
puts "execution OK: $cmd"
}
return $ret
}
set h [tixHList .h -header 1 -columns 2]
pack $h -expand yes -fill both
$h add hello -text hello
$h add noind -text hello
test {$h header} {args}
test {$h header bad} {unknown}
# Test for create
#
#
test {$h header create} {args}
test {$h header create 3} {{exist}}
test {$h header create 1 -itemtype} {missing}
test {$h header create 1 -itemtype bad} {unknown}
test {$h header create 1 -itemtype imagetext -text Hello -image [tix getimage folder]}
# Test for cget
#
test {$h header cget} {args}
test {$h header cget 0 -text} {does not have}
test {$h header cget 1} {args}
test {$h header cget 3 -text} {exist}
test {$h header cget 1 arg arg} {args}
test {$h header cget 1 -bad} {{unknown}}
test {$h header cget 1 -text}
# Test for config
#
test {$h header config} {args}
test {$h header config 3 -text} {exist}
test {$h header config 0 -text} {does not have}
test {$h header config 1 -bad} {{unknown}}
test {$h header config 1}
test {$h header config 1 -text}
test {$h header config 1 -text Hi}
# Test for size
#
test {$h header size} {args}
test {$h header size 0 0} {args}
test {$h header size 4} {exist}
test {$h header size 0} {not have}
test {puts [$h header size 1]}
# Test for exist
#
test {$h header exist} {args}
test {$h header exist hello hi} {args}
test {$h header exist 4} {exist}
test {puts [$h header exist 0]}
test {puts [$h header exist 1]}
# Test for delete
#
test {$h header delete} {args}
test {$h header delete hello hi} {args}
test {$h header delete 4} {exist}
test {$h header delete 0} {not have}
test {$h header delete 1}
# just do it again ..
#
test {$h header create 1 -itemtype imagetext -text Hello -image [tix getimage folder]}
|
