diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 15:35:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 15:35:04 (GMT) |
| commit | 86b3ba7b5f84494334733d2043f6199c3d798540 (patch) | |
| tree | 1ae5c93a4320f5bdeaf447a2d571b3d5c4cedf88 /tests | |
| parent | 6f513fe5a5c89d582255d1dde62602939f3bc945 (diff) | |
| download | tk-86b3ba7b5f84494334733d2043f6199c3d798540.zip tk-86b3ba7b5f84494334733d2043f6199c3d798540.tar.gz tk-86b3ba7b5f84494334733d2043f6199c3d798540.tar.bz2 | |
Don't run 'oldpack' tests when Tk is compiled with -DTK_NO_DEPRECATED.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/oldpack.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/oldpack.test b/tests/oldpack.test index 46b3111..e39ae08 100644 --- a/tests/oldpack.test +++ b/tests/oldpack.test @@ -30,8 +30,13 @@ frame .pack.violet -width 80 -height 20 label .pack.violet.l -text P -bd 2 -relief raised place .pack.violet.l -relwidth 1.0 -relheight 1.0 +if {![catch {pack ap .pack .pack.red top}]} { + +# Don't execute any of this file if Tk is compiled with -DTCL_NO_DEPRECATED + + test oldpack-1.1 {basic positioning} -body { - pack ap .pack .pack.red top + #pack ap .pack .pack.red top update winfo geometry .pack.red } -result 10x20+45+0 @@ -544,6 +549,7 @@ test oldpack-9.3 {information output} -body { [pack info .pack.green] [pack info .pack.violet] } -result {{.pack.blue .pack.red .pack.green .pack.violet} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top}} +} destroy .pack # cleanup |