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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
# This file is a Tcl script to test out the procedures in the file
# tkGet.c.
#
# Copyright © 1998 Sun Microsystems, Inc.
# Copyright © 1998-1999 Scriptics Corporation.
# All rights reserved.
#
# TESTFILE INITIALIZATION
#
package require tcltest 2.2; # needed in mode -singleproc 0
# Load the main script main.tcl, which takes care of:
# - setup for the application and the root window
# - importing commands from the tcltest namespace
# - loading of the testutils mechanism along with its utility procs
# - loading of Tk specific test constraints (additionally to constraints
# provided by the package tcltest)
source [file join [tcltest::configure -testdir] main.tcl]
# Ensure a pristine initial window state
resetWindows
#
# TESTS
#
test get-1.1 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor n
.b cget -anchor
} -cleanup {
destroy .b
} -result {n}
test get-1.2 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor ne
.b cget -anchor
} -cleanup {
destroy .b
} -result {ne}
test get-1.3 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor e
.b cget -anchor
} -cleanup {
destroy .b
} -result {e}
test get-1.4 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor se
.b cget -anchor
} -cleanup {
destroy .b
} -result {se}
test get-1.5 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor s
.b cget -anchor
} -cleanup {
destroy .b
} -result {s}
test get-1.6 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor sw
.b cget -anchor
} -cleanup {
destroy .b
} -result {sw}
test get-1.7 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor w
.b cget -anchor
} -cleanup {
destroy .b
} -result {w}
test get-1.8 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor nw
.b cget -anchor
} -cleanup {
destroy .b
} -result {nw}
test get-1.9 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor n
.b cget -anchor
} -cleanup {
destroy .b
} -result {n}
test get-1.10 {Tk_GetAnchorFromObj} -setup {
button .b
} -body {
.b configure -anchor center
.b cget -anchor
} -cleanup {
destroy .b
} -result {center}
test get-1.11 {Tk_GetAnchorFromObj - error} -setup {
button .b
} -body {
.b configure -anchor unknown
} -cleanup {
destroy .b
} -returnCodes error -result {bad anchor "unknown": must be n, ne, e, se, s, sw, w, nw, or center}
test get-2.1 {Tk_GetJustifyFromObj} -setup {
button .b
} -body {
.b configure -justify left
.b cget -justify
} -cleanup {
destroy .b
} -result {left}
test get-2.2 {Tk_GetJustifyFromObj} -setup {
button .b
} -body {
.b configure -justify right
.b cget -justify
} -cleanup {
destroy .b
} -result {right}
test get-2.3 {Tk_GetJustifyFromObj} -setup {
button .b
} -body {
.b configure -justify center
.b cget -justify
} -cleanup {
destroy .b
} -result {center}
test get-2.4 {Tk_GetJustifyFromObj - error} -setup {
button .b
} -body {
.b configure -justify stupid
} -cleanup {
destroy .b
} -returnCodes error -result {bad justification "stupid": must be left, right, or center}
#
# TESTFILE CLEANUP
#
# cleanup
cleanupTests
|
