summaryrefslogtreecommitdiffstats
path: root/test/lheap.c
diff options
context:
space:
mode:
authorRaymond Lu <songyulu@hdfgroup.org>2003-05-13 16:49:38 (GMT)
committerRaymond Lu <songyulu@hdfgroup.org>2003-05-13 16:49:38 (GMT)
commit27c63279734a2e508f15f1d51162ac31c865be47 (patch)
tree904cf6f1446543a49189e0d772f6e7bb9d2f5862 /test/lheap.c
parent8751379484a7ea6747e32ab795d820ed93884f2e (diff)
downloadhdf5-27c63279734a2e508f15f1d51162ac31c865be47.zip
hdf5-27c63279734a2e508f15f1d51162ac31c865be47.tar.gz
hdf5-27c63279734a2e508f15f1d51162ac31c865be47.tar.bz2
[svn-r6857] Purpose: bug fix
Description: when a datatype element size is bigger than I/O datatype conversion buffer(1MB), library reports failure. Solution: adjust conversion buffer to be at least equal to one element size Platforms tested: h5committest
Diffstat (limited to 'test/lheap.c')
0 files changed, 0 insertions, 0 deletions
tests/canvRect.test b/tests/canvRect.test index fafbb17..a9918e1 100644 --- a/tests/canvRect.test +++ b/tests/canvRect.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvRect.test,v 1.6 2003/02/09 07:48:22 hobbs Exp $ +# RCS: @(#) $Id: canvRect.test,v 1.7 2003/04/01 21:06:18 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands canvas .c -width 400 -height 300 -bd 2 -relief sunken @@ -324,7 +321,7 @@ end } # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/canvText.test b/tests/canvText.test index 21f09a6..5d5acb9 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvText.test,v 1.12 2003/02/09 07:48:22 hobbs Exp $ +# RCS: @(#) $Id: canvText.test,v 1.13 2003/04/01 21:06:19 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands canvas .c -width 400 -height 300 -bd 2 -relief sunken @@ -517,7 +514,7 @@ test canvText-18.1 {bug fix 2525, find enclosed on text with newlines} { } 1 # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/canvWind.test b/tests/canvWind.test index e8077cb..37e6e34 100644 --- a/tests/canvWind.test +++ b/tests/canvWind.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvWind.test,v 1.4 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: canvWind.test,v 1.5 2003/04/01 21:06:19 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test canvWind-1.1 {DisplayWinItem, windows off-screen vertically} { @@ -130,7 +127,7 @@ test canvWind-1.4 {DisplayWinItem, windows off-screen horizontally} { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/canvas.test b/tests/canvas.test index ed470f9..5a2b5d3 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-2000 Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: canvas.test,v 1.16 2003/02/09 07:48:22 hobbs Exp $ +# RCS: @(#) $Id: canvas.test,v 1.17 2003/04/01 21:06:19 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # XXX - This test file is woefully incomplete. At present, only a @@ -477,5 +474,5 @@ test canvas-16.1 {arc coords check} { destroy .c # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/choosedir.test b/tests/choosedir.test index e8da6a3..98831df 100644 --- a/tests/choosedir.test +++ b/tests/choosedir.test @@ -5,18 +5,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.test,v 1.10 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: choosedir.test,v 1.11 2003/04/01 21:06:19 dgp Exp $ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeDirectory - #---------------------------------------------------------------------- # # Procedures needed by this test file @@ -150,5 +145,5 @@ test choosedir-5.1 "tk_chooseDirectory, handles {} entry text" {unixOnly} { } $real # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/clipboard.test b/tests/clipboard.test index ba937fc..2793aaf 100644 --- a/tests/clipboard.test +++ b/tests/clipboard.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clipboard.test,v 1.6 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: clipboard.test,v 1.7 2003/04/01 21:06:20 dgp Exp $ # # Note: Multiple display clipboard handling will only be tested if the @@ -14,10 +14,7 @@ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # set up a very large buffer to test INCR retrievals @@ -245,7 +242,7 @@ test clipboard-7.16 {Tk_ClipboardCmd procedure} { } {0 {} -type} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/clrpick.test b/tests/clrpick.test index 77dce58..4e7d9c6 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -5,14 +5,11 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clrpick.test,v 1.7 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: clrpick.test,v 1.8 2003/04/01 21:06:20 dgp Exp $ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test clrpick-1.1 {tk_chooseColor command} { @@ -215,5 +212,5 @@ test clrpick-4.1 {tk_chooseColor: screen is inherited from parent} unixOnly { } [winfo screen $parent] # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/cmds.test b/tests/cmds.test index 87871b3..7e1680c 100644 --- a/tests/cmds.test +++ b/tests/cmds.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: cmds.test,v 1.4 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: cmds.test,v 1.5 2003/04/01 21:06:20 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands update @@ -43,7 +40,7 @@ test cmds-1.5 {tkwait visibility, window gets deleted} { } {1 {window ".f.b" was deleted before its visibility changed} deleted} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/color.test b/tests/color.test index fec3748..1cf5d37 100644 --- a/tests/color.test +++ b/tests/color.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: color.test,v 1.6 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: color.test,v 1.7 2003/04/01 21:06:20 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands testConstraint testcolor [llength [info commands testcolor]] @@ -272,5 +269,5 @@ test color-4.1 {FreeColorObjProc} colorsFree { destroy .t # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/config.test b/tests/config.test index df9c0c4..2822a21 100644 --- a/tests/config.test +++ b/tests/config.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: config.test,v 1.6 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: config.test,v 1.7 2003/04/01 21:06:20 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands testConstraint testobjconfig [llength [info commands testobjconfig]] @@ -893,5 +890,5 @@ deleteWindows if {[testConstraint testobjconfig]} { killTables } -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 3006cca..f8c7a59 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -175,6 +175,14 @@ cleanupbg eval tcltest::configure $argv namespace import -force tcltest::test +namespace import -force tcltest::makeFile +namespace import -force tcltest::removeFile +namespace import -force tcltest::makeDirectory +namespace import -force tcltest::removeDirectory +namespace import -force tcltest::interpreter +namespace import -force tcltest::testsDirectory +namespace import -force tcltest::cleanupTests +namespace import -force tcltest::bytestring deleteWindows wm geometry . {} diff --git a/tests/cursor.test b/tests/cursor.test index 054fb0d..861853f 100644 --- a/tests/cursor.test +++ b/tests/cursor.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: cursor.test,v 1.8 2002/09/03 00:22:37 hobbs Exp $ +# RCS: @(#) $Id: cursor.test,v 1.9 2003/04/01 21:06:22 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands testConstraint testcursor [llength [info commands testcursor]] @@ -83,8 +80,8 @@ set wincur(data_binary) {} foreach wincur(num) $wincur(data_octal) { append wincur(data_binary) [binary format c 0$wincur(num)] } -set wincur(dir) [::tcltest::makeDirectory {dir with spaces}] -set wincur(file) [::tcltest::makeFile $wincur(data_binary) "test file.cur" $wincur(dir)] +set wincur(dir) [makeDirectory {dir with spaces}] +set wincur(file) [makeFile $wincur(data_binary) "test file.cur" $wincur(dir)] test cursor-2.3 {Tk_GetCursor procedure: cursor specs are lists} {pcOnly} { destroy .b1 button .b1 -cursor [list @$wincur(file)] @@ -93,7 +90,7 @@ test cursor-2.4 {Tk_GetCursor procedure: cursor specs are lists} {pcOnly} { destroy .b1 button .b1 -cursor @[regsub -all {[][ \\{}""$#]} $wincur(file) {\\&}] } {.b1} -::tcltest::removeDirectory $wincur(dir) +removeDirectory $wincur(dir) unset wincur test cursor-3.1 {Tk_FreeCursorFromObj - reference counts} {testcursor} { @@ -135,5 +132,5 @@ test cursor-4.1 {FreeCursorObjProc} {testcursor} { destroy .t # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/dialog.test b/tests/dialog.test index a10eb44..45e00f8 100644 --- a/tests/dialog.test +++ b/tests/dialog.test @@ -1,14 +1,11 @@ # This file is a Tcl script to test out Tk's "tk_dialog" command. # It is organized in the standard fashion for Tcl tests. # -# RCS: @(#) $Id: dialog.test,v 1.3 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: dialog.test,v 1.4 2003/04/01 21:06:22 dgp Exp $ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test dialog-1.1 {tk_dialog command} { @@ -60,5 +57,5 @@ test dialog-2.2 {tk_dialog operation} { set res } {-1} -tcltest::cleanupTests +cleanupTests return diff --git a/tests/embed.test b/tests/embed.test index 92a21b5..88a6a95 100644 --- a/tests/embed.test +++ b/tests/embed.test @@ -4,13 +4,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: embed.test,v 1.2 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: embed.test,v 1.3 2003/04/01 21:06:22 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test embed-1.1 {TkpUseWindow procedure, bad window identifier} { @@ -47,5 +44,5 @@ test embed-1.5 {TkpUseWindow procedure, -container must be set} { # FIXME: test cases common to unixEmbed.test and macEmbed.test should # be moved here. -tcltest::cleanupTests +cleanupTests return diff --git a/tests/entry.test b/tests/entry.test index 101a0c6..69480b8 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: entry.test,v 1.14 2003/02/25 00:46:41 hobbs Exp $ +# RCS: @(#) $Id: entry.test,v 1.15 2003/04/01 21:06:22 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands proc scroll args { @@ -1621,5 +1618,5 @@ destroy .e option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/event.test b/tests/event.test index 66fc029..c726d68 100644 --- a/tests/event.test +++ b/tests/event.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: event.test,v 1.13 2003/02/18 06:22:44 mdejong Exp $ +# RCS: @(#) $Id: event.test,v 1.14 2003/04/01 21:06:23 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # XXX This test file is woefully incomplete. Right now it only tests @@ -677,6 +674,6 @@ rename _pause {} rename _text_ind_to_x_y {} rename _get_selection {} -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/filebox.test b/tests/filebox.test index 6cd1937..e386022 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -6,19 +6,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: filebox.test,v 1.13 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: filebox.test,v 1.14 2003/04/01 21:06:23 dgp Exp $ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - set tk_strictMotif_old $tk_strictMotif #---------------------------------------------------------------------- @@ -400,5 +394,5 @@ foreach mode $modes { set tk_strictMotif $tk_strictMotif_old # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/focus.test b/tests/focus.test index 25cd932..37a0263 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: focus.test,v 1.8 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: focus.test,v 1.9 2003/04/01 21:06:25 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands button .b -text .b -relief raised -bd 2 @@ -643,7 +640,7 @@ bind all {} bind all {} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/focusTcl.test b/tests/focusTcl.test index db064e0..11071ff 100644 --- a/tests/focusTcl.test +++ b/tests/focusTcl.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: focusTcl.test,v 1.5 2002/07/14 15:45:23 dgp Exp $ +# RCS: @(#) $Id: focusTcl.test,v 1.6 2003/04/01 21:06:28 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands proc setup1 w { @@ -279,7 +276,7 @@ bind Frame {} option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/font.test b/tests/font.test index f16d895..330f12e 100644 --- a/tests/font.test +++ b/tests/font.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: font.test,v 1.8 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: font.test,v 1.9 2003/04/01 21:06:29 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands catch {destroy .b} @@ -1363,7 +1360,7 @@ setup destroy .b # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/frame.test b/tests/frame.test index 4acd84b..5decf68 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: frame.test,v 1.7 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: frame.test,v 1.8 2003/04/01 21:06:34 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # eatColors -- @@ -874,5 +871,5 @@ rename eatColors {} rename colorsFree {} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/geometry.test b/tests/geometry.test index 0f3fda3..77a2a93 100644 --- a/tests/geometry.test +++ b/tests/geometry.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: geometry.test,v 1.4 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: geometry.test,v 1.5 2003/04/01 21:06:34 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands wm geometry . 300x300 @@ -250,7 +247,7 @@ test geometry-4.10 {Tk_MaintainGeometry and Tk_UnmaintainGeometry} { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/get.test b/tests/get.test index aae8010..c9c2e38 100644 --- a/tests/get.test +++ b/tests/get.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: get.test,v 1.3 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: get.test,v 1.4 2003/04/01 21:06:35 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands button .b @@ -79,7 +76,7 @@ test get-2.4 {Tk_GetJustifyFromObj - error} { } {1 {bad justification "stupid": must be left, right, or center}} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/grab.test b/tests/grab.test index 4ad8aea..d2ee4b2 100644 --- a/tests/grab.test +++ b/tests/grab.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-2000 by Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: grab.test,v 1.2 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: grab.test,v 1.3 2003/04/01 21:06:35 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # There's currently no way to test the actual grab effect, per se, @@ -181,5 +178,5 @@ test grab-5.2 {Tk_GrabObjCmd, grab set} { set result } [list "." "global"] -tcltest::cleanupTests +cleanupTests return diff --git a/tests/grid.test b/tests/grid.test index 47f99c0..bfbd1f6 100644 --- a/tests/grid.test +++ b/tests/grid.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: grid.test,v 1.18 2003/03/12 00:09:37 mdejong Exp $ +# RCS: @(#) $Id: grid.test,v 1.19 2003/04/01 21:06:36 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # helper routine to return "." to a sane state after a test @@ -1526,5 +1523,5 @@ test grid-20.2 {recalculate size after removal (forget)} { grid_reset 20.2 # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/id.test b/tests/id.test index 7e3f958..acc0712 100644 --- a/tests/id.test +++ b/tests/id.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: id.test,v 1.6 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: id.test,v 1.7 2003/04/01 21:06:36 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly testwrapper} { @@ -92,7 +89,7 @@ test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly testwrapper} { bind all {} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/image.test b/tests/image.test index dd5d3dd..45bc42d 100644 --- a/tests/image.test +++ b/tests/image.test @@ -7,19 +7,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: image.test,v 1.8 2003/01/22 14:32:59 dkf Exp $ +# RCS: @(#) $Id: image.test,v 1.9 2003/04/01 21:06:36 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::interpreter -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - eval image delete [image names] canvas .c -highlightthickness 2 pack .c @@ -384,5 +377,5 @@ destroy .c eval image delete [image names] # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/imgBmap.test b/tests/imgBmap.test index ff301c6..ebdaf07 100644 --- a/tests/imgBmap.test +++ b/tests/imgBmap.test @@ -7,18 +7,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: imgBmap.test,v 1.4 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: imgBmap.test,v 1.5 2003/04/01 21:06:37 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - set data1 {#define foo_width 16 #define foo_height 16 #define foo_x_hot 3 @@ -473,7 +467,7 @@ destroy .c eval image delete [image names] # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/imgPPM.test b/tests/imgPPM.test index 867f54a..20f224b 100644 --- a/tests/imgPPM.test +++ b/tests/imgPPM.test @@ -6,18 +6,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: imgPPM.test,v 1.5 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: imgPPM.test,v 1.6 2003/04/01 21:06:37 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - eval image delete [image names] proc put {file data} { @@ -155,7 +149,7 @@ removeFile test2.ppm eval image delete [image names] # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index e2b4468..4a5eead 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -9,18 +9,12 @@ # # Author: Paul Mackerras (paulus@cs.anu.edu.au) # -# RCS: @(#) $Id: imgPhoto.test,v 1.15 2002/10/18 00:48:22 hobbs Exp $ +# RCS: @(#) $Id: imgPhoto.test,v 1.16 2003/04/01 21:06:37 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - eval image delete [image names] canvas .c @@ -666,5 +660,5 @@ eval image delete [image names] # cleanup removeFile README-imgPhoto -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/listbox.test b/tests/listbox.test index 37f5f30..dd686cc 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: listbox.test,v 1.21 2003/02/25 02:07:25 hobbs Exp $ +# RCS: @(#) $Id: listbox.test,v 1.22 2003/04/01 21:06:37 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands set fixed {Courier -12} @@ -2150,5 +2147,5 @@ deleteWindows option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/macEmbed.test b/tests/macEmbed.test index fe68f21..8fb2bee 100644 --- a/tests/macEmbed.test +++ b/tests/macEmbed.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macEmbed.test,v 1.8 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: macEmbed.test,v 1.9 2003/04/01 21:06:38 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test macEmbed-1.1 {TkpUseWindow procedure, bad window identifier} {macOnly} { @@ -252,7 +249,7 @@ test macEmbed-7.2 {geometry propagation in tkUnixWm.c/UpdateGeometryInfo} {macOn deleteWindows # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/macFont.test b/tests/macFont.test index 0ba293e..2afc946 100644 --- a/tests/macFont.test +++ b/tests/macFont.test @@ -10,13 +10,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macFont.test,v 1.6 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: macFont.test,v 1.7 2003/04/01 21:06:38 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands catch {destroy .b} @@ -282,5 +279,5 @@ test macFont-9.4 {AllocMacFont: extract text metrics} {macOnly} { destroy .b # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/macMenu.test b/tests/macMenu.test index 2a36c60..ae38a49 100644 --- a/tests/macMenu.test +++ b/tests/macMenu.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macMenu.test,v 1.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: macMenu.test,v 1.8 2003/04/01 21:06:39 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test macMenu-1.0 {TkMacUseMenuID} {macOnly} { @@ -1545,5 +1542,5 @@ test macMenu-45.1 {TkpMenuInit - called at boot time} {macOnly} { # cleanup deleteWindows -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/macWinMenu.test b/tests/macWinMenu.test index 315f2aa..935c365 100644 --- a/tests/macWinMenu.test +++ b/tests/macWinMenu.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macWinMenu.test,v 1.4 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: macWinMenu.test,v 1.5 2003/04/01 21:06:41 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test macWinMenu-1.1 {PreprocessMenu} {macOrPc nonUnixUserInteraction} { @@ -88,7 +85,7 @@ test macWinMenu-2.1 {TkPreprocessMenu} {macOrPc nonUnixUserInteraction} { # cleanup deleteWindows -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test index b62c65e..d3d9c6e 100644 --- a/tests/macscrollbar.test +++ b/tests/macscrollbar.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macscrollbar.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: macscrollbar.test,v 1.6 2003/04/01 21:06:41 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands update @@ -91,5 +88,5 @@ test macscroll-1.7 {TkpDisplayScrollbar procedure} {macOnly} { deleteWindows # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/main.test b/tests/main.test index 0f25637..17fbaf9 100644 --- a/tests/main.test +++ b/tests/main.test @@ -8,19 +8,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: main.test,v 1.6 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: main.test,v 1.7 2003/04/01 21:06:41 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::interpreter -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - test main-1.1 {StdinProc} {unix} { set script [makeFile { close stdin; exit @@ -35,7 +28,7 @@ test main-1.1 {StdinProc} {unix} { } {0 {}} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/menu.test b/tests/menu.test index a9652bf..30d38dc 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menu.test,v 1.13 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: menu.test,v 1.14 2003/04/01 21:06:42 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test menu-1.1 {Tk_MenuCmd procedure} { @@ -2488,5 +2485,5 @@ test menu-35.1 {menus on multiple screens - crashes tk8.3.1, Bug 5454} \ # cleanup deleteWindows -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/menuDraw.test b/tests/menuDraw.test index d412a23..cfaf236 100644 --- a/tests/menuDraw.test +++ b/tests/menuDraw.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menuDraw.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: menuDraw.test,v 1.6 2003/04/01 21:06:43 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test menuDraw-1.1 {TkMenuInitializeDrawingFields} { @@ -520,7 +517,7 @@ test menuDraw-17.2 {AdjustMenuCoords - menu} {pcOnly userInteraction} { # cleanup deleteWindows -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/menubut.test b/tests/menubut.test index 86db6ae..93153bc 100644 --- a/tests/menubut.test +++ b/tests/menubut.test @@ -6,17 +6,14 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menubut.test,v 1.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: menubut.test,v 1.8 2003/04/01 21:06:45 dgp Exp $ # XXX This test file is woefully incomplete right now. If any part # XXX of a procedure has tests then the whole procedure has tests, # XXX but many procedures have no tests. package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Create entries in the option database to be sure that geometry options @@ -342,7 +339,7 @@ deleteWindows option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/message.test b/tests/message.test index a5f52e5..40daf6e 100644 --- a/tests/message.test +++ b/tests/message.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-2000 by Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: message.test,v 1.2 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: message.test,v 1.3 2003/04/01 21:06:46 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands option add *Message.borderWidth 2 @@ -121,5 +118,5 @@ test message-3.7 {MessageWidgetObjCmd procedure, "configure"} { } {4} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/msgbox.test b/tests/msgbox.test index a20d787..fb07c80 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -5,14 +5,11 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: msgbox.test,v 1.6 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: msgbox.test,v 1.7 2003/04/01 21:06:47 dgp Exp $ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test msgbox-1.1 {tk_messageBox command} { @@ -181,5 +178,5 @@ test msgbox-3.2 {tk_messageBox handles iconified parent} {nonUnixUserInteraction wm deiconify . # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/obj.test b/tests/obj.test index bc4618e..9778b2e 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: obj.test,v 1.3 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: obj.test,v 1.4 2003/04/01 21:06:47 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test obj-1.1 {TkGetPixelsFromObj} { @@ -31,7 +28,7 @@ test obj-4.1 {SetPixelFromAny} { deleteWindows # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/oldpack.test b/tests/oldpack.test index 52e2d4e..33a2719 100644 --- a/tests/oldpack.test +++ b/tests/oldpack.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: oldpack.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: oldpack.test,v 1.6 2003/04/01 21:06:48 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # First, test a single window packed in various ways in a parent @@ -510,7 +507,7 @@ test pack-9.3 {information output} { catch {destroy .pack} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/option.test b/tests/option.test index 173ec37..7ddaa96 100644 --- a/tests/option.test +++ b/tests/option.test @@ -6,18 +6,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: option.test,v 1.4 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: option.test,v 1.5 2003/04/01 21:06:48 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - catch {destroy .op1} catch {destroy .op2} set appName [winfo name .] @@ -231,7 +225,7 @@ catch {destroy .op1} catch {destroy .op2} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/pack.test b/tests/pack.test index c4af29f..cb514e7 100644 --- a/tests/pack.test +++ b/tests/pack.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: pack.test,v 1.11 2003/03/12 00:09:40 mdejong Exp $ +# RCS: @(#) $Id: pack.test,v 1.12 2003/04/01 21:06:48 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Utility procedures: @@ -1111,5 +1108,5 @@ foreach i {pack1 pack2 pack3 pack4} { } # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/panedwindow.test b/tests/panedwindow.test index e073d4a..0da6bbc 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: panedwindow.test,v 1.8 2003/02/21 11:48:56 dkf Exp $ +# RCS: @(#) $Id: panedwindow.test,v 1.9 2003/04/01 21:06:49 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands set i 1 @@ -2476,5 +2473,5 @@ test panedwindow-30.1 {display on depths other than the default one} { } # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/place.test b/tests/place.test index 10e45b7..847047c 100644 --- a/tests/place.test +++ b/tests/place.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: place.test,v 1.9 2003/03/12 00:09:40 mdejong Exp $ +# RCS: @(#) $Id: place.test,v 1.10 2003/04/01 21:06:49 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # XXX - This test file is woefully incomplete. At present, only a @@ -386,5 +383,5 @@ test place-13.1 {test respect for internalborder} { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/raise.test b/tests/raise.test index 53bf9b3..bcf3573 100644 --- a/tests/raise.test +++ b/tests/raise.test @@ -8,13 +8,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: raise.test,v 1.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: raise.test,v 1.8 2003/04/01 21:06:50 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands testConstraint testmakeexist [llength [info commands testmakeexist]] @@ -290,7 +287,7 @@ test raise-7.8 {errors in raise/lower commands} { deleteWindows # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/safe.test b/tests/safe.test index 060a1e1..3dea901 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: safe.test,v 1.10 2002/09/02 19:16:24 hobbs Exp $ +# RCS: @(#) $Id: safe.test,v 1.11 2003/04/01 21:06:50 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands ## NOTE: Any time tests fail here with an error like: @@ -215,5 +212,5 @@ test safe-7.1 {canvas printing} { # cleanup unset hidden_cmds -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/scale.test b/tests/scale.test index fb9ba5d..ae2803e 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: scale.test,v 1.12 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: scale.test,v 1.13 2003/04/01 21:06:50 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Create entries in the option database to be sure that geometry options @@ -821,5 +818,5 @@ catch {destroy .s} option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 025df53..3de4c58 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: scrollbar.test,v 1.9 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: scrollbar.test,v 1.10 2003/04/01 21:06:50 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands ## testmetrics is a win/mac only test command @@ -670,7 +667,7 @@ catch {destroy .s} catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/select.test b/tests/select.test index 0e24c7c..db401b7 100644 --- a/tests/select.test +++ b/tests/select.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.9 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: select.test,v 1.10 2003/04/01 21:06:51 dgp Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -14,14 +14,9 @@ # package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::interpreter - global longValue selValue selInfo set selValue {} @@ -1044,7 +1039,7 @@ test select-13.1 {SelectionSize procedure, handler deleted} {unixOnly} { catch {rename weirdHandler {}} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/send.test b/tests/send.test index a40eb98..9eab6c5 100644 --- a/tests/send.test +++ b/tests/send.test @@ -10,13 +10,10 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: send.test,v 1.8 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: send.test,v 1.9 2003/04/01 21:06:51 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands testConstraint xhost [llength [auto_execok xhost]] @@ -626,5 +623,5 @@ catch { rename newApp {} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/spinbox.test b/tests/spinbox.test index b142611..b9b05f2 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -4,13 +4,10 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: spinbox.test,v 1.6 2003/03/13 19:34:40 dgp Exp $ +# RCS: @(#) $Id: spinbox.test,v 1.7 2003/04/01 21:06:52 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands proc scroll args { @@ -1600,5 +1597,5 @@ catch {unset ::e ::vVals} option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/text.test b/tests/text.test index 1c21d21..08e0b0f 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: text.test,v 1.19 2002/10/17 23:38:01 hobbs Exp $ +# RCS: @(#) $Id: text.test,v 1.20 2003/04/01 21:06:52 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Create entries in the option database to be sure that geometry options @@ -1583,5 +1580,5 @@ deleteWindows option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textBTree.test b/tests/textBTree.test index 7578536..85194dc 100644 --- a/tests/textBTree.test +++ b/tests/textBTree.test @@ -8,13 +8,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textBTree.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textBTree.test,v 1.6 2003/04/01 21:06:53 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands catch {destroy .t} @@ -899,7 +896,7 @@ test btree-18.9 {tag search back, large complex btree spans} { destroy .t # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textDisp.test b/tests/textDisp.test index 14b3b4a..79310b0 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,19 +6,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.8 2002/11/22 23:25:20 hobbs Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.9 2003/04/01 21:06:53 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -namespace import -force tcltest::interpreter -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - # The procedure below is used as the scrolling command for the text; # it just saves the scrolling information in a variable "scrollInfo". @@ -2873,5 +2866,5 @@ deleteWindows option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textImage.test b/tests/textImage.test index f75ce8a..73b9dc9 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textImage.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textImage.test,v 1.6 2003/04/01 21:06:54 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # One time setup. Create a font to insure the tests are font metric invariant. @@ -351,7 +348,7 @@ foreach image [image names] {image delete $image} font delete test_font # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textIndex.test b/tests/textIndex.test index 98f81bb..a80af7c 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textIndex.test,v 1.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textIndex.test,v 1.8 2003/04/01 21:06:54 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Some tests require the testtext command @@ -670,7 +667,7 @@ test testIndex-16.2 {TkTextPrintIndex} { # cleanup rename textimage {} catch {destroy .t} -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textMark.test b/tests/textMark.test index af1dc4d..14cfa5e 100644 --- a/tests/textMark.test +++ b/tests/textMark.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textMark.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textMark.test,v 1.6 2003/04/01 21:06:54 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands catch {destroy .t} @@ -222,7 +219,7 @@ test textMark-8.8 {MarkFindPrev - no previous mark} courier12 { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textTag.test b/tests/textTag.test index da86a7a..d30f7a8 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textTag.test,v 1.6 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textTag.test,v 1.7 2003/04/01 21:06:55 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands catch {destroy .t} @@ -767,7 +764,7 @@ test textTag-16.7 {TkTextPickCurrent procedure} courier12 { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/textWind.test b/tests/textWind.test index c7093ca..dbe5f26 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textWind.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textWind.test,v 1.6 2003/04/01 21:06:55 dgp Exp $ package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -