1# This file is a Tcl script to test out the procedures in the file 2# tkGet.c. It is organized in the standard fashion for Tcl 3# white-box tests. 4# 5# Copyright © 1998 Sun Microsystems, Inc. 6# Copyright © 1998-1999 Scriptics Corporation. 7# All rights reserved. 8 9package require tcltest 2.2 10eval tcltest::configure $argv 11tcltest::loadTestedCommands 12namespace import -force tcltest::test 13 14test get-1.1 {Tk_GetAnchorFromObj} -setup { 15 button .b 16} -body { 17 .b configure -anchor n 18 .b cget -anchor 19} -cleanup { 20 destroy .b 21} -result {n} 22test get-1.2 {Tk_GetAnchorFromObj} -setup { 23 button .b 24} -body { 25 .b configure -anchor ne 26 .b cget -anchor 27} -cleanup { 28 destroy .b 29} -result {ne} 30test get-1.3 {Tk_GetAnchorFromObj} -setup { 31 button .b 32} -body { 33 .b configure -anchor e 34 .b cget -anchor 35} -cleanup { 36 destroy .b 37} -result {e} 38test get-1.4 {Tk_GetAnchorFromObj} -setup { 39 button .b 40} -body { 41 .b configure -anchor se 42 .b cget -anchor 43} -cleanup { 44 destroy .b 45} -result {se} 46test get-1.5 {Tk_GetAnchorFromObj} -setup { 47 button .b 48} -body { 49 .b configure -anchor s 50 .b cget -anchor 51} -cleanup { 52 destroy .b 53} -result {s} 54test get-1.6 {Tk_GetAnchorFromObj} -setup { 55 button .b 56} -body { 57 .b configure -anchor sw 58 .b cget -anchor 59} -cleanup { 60 destroy .b 61} -result {sw} 62test get-1.7 {Tk_GetAnchorFromObj} -setup { 63 button .b 64} -body { 65 .b configure -anchor w 66 .b cget -anchor 67} -cleanup { 68 destroy .b 69} -result {w} 70test get-1.8 {Tk_GetAnchorFromObj} -setup { 71 button .b 72} -body { 73 .b configure -anchor nw 74 .b cget -anchor 75} -cleanup { 76 destroy .b 77} -result {nw} 78test get-1.9 {Tk_GetAnchorFromObj} -setup { 79 button .b 80} -body { 81 .b configure -anchor n 82 .b cget -anchor 83} -cleanup { 84 destroy .b 85} -result {n} 86test get-1.10 {Tk_GetAnchorFromObj} -setup { 87 button .b 88} -body { 89 .b configure -anchor center 90 .b cget -anchor 91} -cleanup { 92 destroy .b 93} -result {center} 94test get-1.11 {Tk_GetAnchorFromObj - error} -setup { 95 button .b 96} -body { 97 .b configure -anchor unknown 98} -cleanup { 99 destroy .b 100} -returnCodes {error} -result {bad anchor "unknown": must be n, ne, e, se, s, sw, w, nw, or center} 101 102 103test get-2.1 {Tk_GetJustifyFromObj} -setup { 104 button .b 105} -body { 106 .b configure -justify left 107 .b cget -justify 108} -cleanup { 109 destroy .b 110} -result {left} 111test get-2.2 {Tk_GetJustifyFromObj} -setup { 112 button .b 113} -body { 114 .b configure -justify right 115 .b cget -justify 116} -cleanup { 117 destroy .b 118} -result {right} 119test get-2.3 {Tk_GetJustifyFromObj} -setup { 120 button .b 121} -body { 122 .b configure -justify center 123 .b cget -justify 124} -cleanup { 125 destroy .b 126} -result {center} 127test get-2.4 {Tk_GetJustifyFromObj - error} -setup { 128 button .b 129} -body { 130 .b configure -justify stupid 131} -cleanup { 132 destroy .b 133} -returnCodes {error} -result {bad justification "stupid": must be left, right, or center} 134 135# cleanup 136cleanupTests 137return 138 139