blob: a3f7bfd3bfc7c1bc824df497dae7358185ffdae4 (
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
# This file is a Tcl script to test out [incr Widgets] Dialog class.
# It is organized in the standard fashion for Tcl tests with the following
# notation for test case labels:
#
# 1.x - Construction/Destruction tests
# 2.x - Configuration option tests
# 3.x - Method tests
# 4.x - Other tests
#
# Copyright (c) 1995 DSC Technologies Corporation
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# @(#) $Id$
package require tcltest
namespace import -force ::tcltest::*
package require Iwidgets 3.0
if {[string compare test [info procs test]] == 1} {
source defs
}
wm geometry . {}
raise .
set c 1
set o 1
set m 1
#
# Initial construction test
#
test Dialog-1.$c {Dialog construction} {
iwidgets::Dialog .dlg
listbox [.dlg childsite].lb -relief sunken
pack [.dlg childsite].lb -fill both -expand yes
.dlg activate
} {}
incr c
#
# Option tests which are successful.
#
test Dialog-2.$o {configuration option} {
llength [.dlg configure]
} {17}
incr o
foreach test {
{-background #d9d9d9 #d9d9d9}
{-width 400 400}
{-height 400 400}
{-buttonboxpadx 10 10}
{-buttonboxpady 10 10}
{-buttonboxpos n n}
{-buttonboxpos e e}
{-buttonboxpos w w}
{-buttonboxpos s s}
{-cursor gumby gumby}
{-modality global global}
{-modality application application}
{-modality none none}
{-padx 15 15}
{-pady 15 15}
{-separator off off}
{-thickness 5 5}
{-width 0 0}
{-height 0 0}
{-separator on on}
{-title Dialog Dialog}} {
set option [lindex $test 0]
test Dialog-2.$o "configuration options, $option" {
.dlg configure $option [lindex $test 1]
lindex [.dlg configure $option] 4
} [lindex $test 2]
update
incr o
}
#
# Method tests which are successful.
#
foreach test {
{{.dlg childsite} {.dlg.shellchildsite.dschildsite}}
{{.dlg hide Help} {}}
{{.dlg hide Cancel} {}}
{{.dlg default Apply} {}}
{{.dlg buttonconfigure Help -state disabled} {}}
{{.dlg show Cancel} {}}
{{.dlg deactivate} {}}} {
set method [lindex [lindex $test 0] 1]
test Dialog-3.$m "object methods, $method" {
list [catch {eval [lindex $test 0]} msg] $msg
} [list 0 [lindex $test 1]]
update
incr m
}
#
# Conclusion of constrcution/destruction tests
#
test Dialog-1.$c {Dialog destruction} {
destroy .dlg
update
} {}
incr c
test Dialog-1.$c {Dialog construction} {
iwidgets::Dialog .dlg
update
} {}
incr c
test Dialog-1.$c {Dialog destruction} {
destroy .dlg
update
} {}
incr c
test Dialog-1.$c {Dialog destruction} {
iwidgets::dialog .dlg
destroy .dlg
update
} {}
::tcltest::cleanupTests
exit
|
