Qt.git - Qt s a cross-platform application framework that is used for developing application software that can be run on various software and hardware platforms with little or no change in the underlying codebase, while still being a native application with native capabilities and speed.

path: root/src/gui/embedded/qtransportauth_qws.cpp

diff options

Diffstat (limited to 'src/gui/embedded/qtransportauth_qws.cpp')

0 files changed, 0 insertions, 0 deletions

le join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands test bell-1.1 {bell command} { @@ -47,7 +44,7 @@ test bell-1.8 {bell command} { } {} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/bgerror.test b/tests/bgerror.test index dab97fd..e104980 100644 --- a/tests/bgerror.test +++ b/tests/bgerror.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bgerror.test,v 1.4 2002/07/14 05:48:45 dgp Exp $ +# RCS: @(#) $Id: bgerror.test,v 1.5 2003/04/01 21:06:15 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 bgerror-1.1 {bgerror / tkerror compat} { @@ -59,7 +56,7 @@ catch {rename tkerror {}} # to emulate. # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/bind.test b/tests/bind.test index b7df78b..9ecee81 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.11 2003/02/28 15:55:34 dkf Exp $ +# RCS: @(#) $Id: bind.test,v 1.12 2003/04/01 21:06:16 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} @@ -2684,5 +2681,5 @@ test bind-31.2 {MouseWheel events} { destroy .b # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/bitmap.test b/tests/bitmap.test index bb5a50f..f81613d 100644 --- a/tests/bitmap.test +++ b/tests/bitmap.test @@ -6,13 +6,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bitmap.test,v 1.3 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: bitmap.test,v 1.4 2003/04/01 21:06:17 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 testbitmap [llength [info commands testbitmap]] @@ -94,7 +91,7 @@ test bitmap-4.1 {FreeBitmapObjProc} testbitmap { destroy .t # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/border.test b/tests/border.test index 55df1e4..0bf08b8 100644 --- a/tests/border.test +++ b/tests/border.test @@ -5,13 +5,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: border.test,v 1.3 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: border.test,v 1.4 2003/04/01 21:06:17 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 testborder [llength [info commands testborder]] @@ -164,7 +161,7 @@ if {[testConstraint pseudocolor8]} { } # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/button.test b/tests/button.test index 794c7b4..a087238 100644 --- a/tests/button.test +++ b/tests/button.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: button.test,v 1.13 2002/09/02 23:32:35 hobbs Exp $ +# RCS: @(#) $Id: button.test,v 1.14 2003/04/01 21:06:17 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 bogusTrace args { @@ -808,5 +805,5 @@ deleteWindows option clear # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/canvImg.test b/tests/canvImg.test index 94292d2..e848bf3 100644 --- a/tests/canvImg.test +++ b/tests/canvImg.test @@ -7,13 +7,10 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvImg.test,v 1.5 2002/07/14 05:48:46 dgp Exp $ +# RCS: @(#) $Id: canvImg.test,v 1.6 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 eval image delete [image names] @@ -392,7 +389,7 @@ test canvImg-11.3 {ImageChangedProc procedure} testImageType { } {{foo2 display 0 0 20 40 50 40}} # cleanup -::tcltest::cleanupTests +cleanupTests return diff --git a/tests/canvPs.test b/tests/canvPs.test index 8ab93a0..0b8392c 100644 --- a/tests/canvPs.test +++ b/tests/canvPs.test @@ -6,18 +6,12 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvPs.test,v 1.5 2002/10/10 07:25:24 hobbs Exp $ +# RCS: @(#) $Id: canvPs.test,v 1.6 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 -namespace import -force tcltest::makeFile -namespace import -force tcltest::removeFile - canvas .c -width 400 -height 300 -bd 2 -relief sunken .c create rectangle 20 20 80 80 -fill red pack .c @@ -128,7 +122,7 @@ test canvPs-3.2 {test ps generation with an embedded window not mapped} {} { removeFile foo.ps removeFile bar.ps deleteWindows -::tcltest::cleanupTests +cleanupTests return diff --git a/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/t


context:
space:
mode: