/contrib/src/getopt/

t/css' href='/cgit-data/cgit-techsat.css'/>
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--tests/init.test4
-rw-r--r--tests/interp.test20
-rw-r--r--tests/namespace.test18
-rw-r--r--tests/parseOld.test4
-rw-r--r--tests/pid.test4
-rw-r--r--tests/pkg.test7
-rw-r--r--tests/pkgMkIndex.test4
-rw-r--r--tests/platform.test2
-rw-r--r--tests/proc-old.test4
-rw-r--r--tests/proc.test4
-rw-r--r--tests/pwd.test4
-rw-r--r--tests/reg.test4
-rw-r--r--tests/regexp.test4
-rw-r--r--tests/registry.test4
-rw-r--r--tests/rename.test4
-rw-r--r--tests/resource.test4
-rw-r--r--tests/result.test2
-rw-r--r--tests/safe.test4
-rw-r--r--tests/scan.test4
-rw-r--r--tests/security.test4
-rw-r--r--tests/set-old.test4
-rw-r--r--tests/set.test4
-rw-r--r--tests/socket.test4
-rw-r--r--tests/source.test4
-rw-r--r--tests/split.test4
-rw-r--r--tests/stack.test4
-rw-r--r--tests/string.test4
-rw-r--r--tests/stringObj.test4
-rw-r--r--tests/subst.test4
-rw-r--r--tests/switch.test4
-rw-r--r--tests/thread.test4
-rw-r--r--tests/timer.test4
-rw-r--r--tests/trace.test4
-rw-r--r--tests/unixFCmd.test4
-rw-r--r--tests/unixFile.test4
-rw-r--r--tests/unixInit.test4
-rw-r--r--tests/unixNotfy.test4
-rw-r--r--tests/unknown.test4
-rw-r--r--tests/uplevel.test4
-rw-r--r--tests/upvar.test4
-rw-r--r--tests/utf.test4
-rw-r--r--tests/util.test4
-rw-r--r--tests/var.test16
-rw-r--r--tests/while-old.test4
-rw-r--r--tests/while.test4
-rw-r--r--tests/winConsole.test4
-rw-r--r--tests/winDde.test4
-rw-r--r--tests/winFCmd.test4
-rw-r--r--tests/winFile.test4
-rw-r--r--tests/winNotify.test4
-rw-r--r--tests/winPipe.test4
-rw-r--r--tests/winTime.test4
52 files changed, 125 insertions, 124 deletions
diff --git a/tests/init.test b/tests/init.test
index bd9b486..e9d49b9 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: init.test,v 1.4 1999/06/26 03:54:15 jenn Exp $
+# RCS: @(#) $Id: init.test,v 1.5 1999/06/26 20:55:07 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -144,7 +144,7 @@ test init-2.8 {load http::geturl (package)} {
test init-3.0 {random stuff in the auto_index, should still work} {
set auto_index(foo:::bar::blah) {
- namespace eval foo {namespace eval bar {proc blah {} {return 1}}}
+ namespace eval foo {namespace eval bar {proc blah {} {return 1}}}
}
foo:::bar::blah
} 1
diff --git a/tests/interp.test b/tests/interp.test
index f4fe2ce..ed37f6b 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: interp.test,v 1.8 1999/06/26 03:54:15 jenn Exp $
+# RCS: @(#) $Id: interp.test,v 1.9 1999/06/26 20:55:08 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1444,7 +1444,7 @@ test interp-20.45 {interp hide vs namespaces} {
catch {interp delete a}
interp create a
a eval {
- namespace eval foo {}
+ namespace eval foo {}
proc foo::x {} {}
}
set l [list [catch {interp hide a foo::x} msg] $msg]
@@ -1455,7 +1455,7 @@ test interp-20.46 {interp hide vs namespaces} {
catch {interp delete a}
interp create a
a eval {
- namespace eval foo {}
+ namespace eval foo {}
proc foo::x {} {}
}
set l [list [catch {interp hide a foo::x x} msg] $msg]
@@ -1476,7 +1476,7 @@ test interp-20.48 {interp hide vs namespaces} {
catch {interp delete a}
interp create a
a eval {
- namespace eval foo {}
+ namespace eval foo {}
proc foo::x {} {}
}
set l [list [catch {interp hide a foo::x bar::x} msg] $msg]
@@ -2149,7 +2149,7 @@ test interp-27.4 {interp aliases & namespaces} {
# test interp-27.5 {interp hidden & namespaces} {
# set i [interp create];
# interp eval $i {
-# namespace eval foo {
+# namespace eval foo {
# proc bar {args} {
# return "bar called ([namespace current]) ($args)"
# }
@@ -2174,7 +2174,7 @@ test interp-27.4 {interp aliases & namespaces} {
# }
# }
# interp eval $i {
-# namespace eval foo {
+# namespace eval foo {
# namespace export *
# variable v foo-slave;
# proc bar {args} {
@@ -2188,7 +2188,7 @@ test interp-27.4 {interp aliases & namespaces} {
# $i alias foo::bar foo::bar $i;
# set res [concat $res [interp eval $i {
# set v root-slave;
-# namespace eval test {
+# namespace eval test {
# variable v foo-test;
# namespace import ::foo::*;
# bar test2
@@ -2212,7 +2212,7 @@ test interp-27.4 {interp aliases & namespaces} {
# }
# }
# interp eval $i {
-# namespace eval foo {
+# namespace eval foo {
# namespace export *
# variable v foo-slave;
# proc bar {args} {
@@ -2221,7 +2221,7 @@ test interp-27.4 {interp aliases & namespaces} {
# }
# }
# set v root-slave;
-# namespace eval test {
+# namespace eval test {
# variable v foo-test;
# namespace import ::foo::*;
# }
@@ -2252,7 +2252,7 @@ test interp-28.1 {getting fooled by slave's namespace ?} {
proc master {interp args} {interp hide $interp list}
$i alias master master $i;
set r [interp eval $i {
- namespace eval foo {
+ namespace eval foo {
proc list {args} {
return "dummy foo::list";
}
diff --git a/tests/namespace.test b/tests/namespace.test
index c852a7d..c954aa2 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: namespace.test,v 1.5 1999/06/26 03:54:17 jenn Exp $
+# RCS: @(#) $Id: namespace.test,v 1.6 1999/06/26 20:55:08 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -81,14 +81,14 @@ test namespace-5.2 {Tcl_PopCallFrame, local vars must be deleted} {
test namespace-6.1 {Tcl_CreateNamespace} {
catch {eval namespace delete [namespace children :: test_ns_*]}
list [lsort [namespace children :: test_ns_*]] \
- [namespace eval test_ns_1 {namespace current}] \
- [namespace eval test_ns_2 {namespace current}] \
- [namespace eval ::test_ns_3 {namespace current}] \
- [namespace eval ::test_ns_4 \
- {namespace eval foo {namespace current}}] \
- [namespace eval ::test_ns_5 \
- {namespace eval ::test_ns_6 {namespace current}}] \
- [lsort [namespace children :: test_ns_*]]
+ [namespace eval test_ns_1 {namespace current}] \
+ [namespace eval test_ns_2 {namespace current}] \
+ [namespace eval ::test_ns_3 {namespace current}] \
+ [namespace eval ::test_ns_4 \
+ {namespace eval foo {namespace current}}] \
+ [namespace eval ::test_ns_5 \
+ {namespace eval ::test_ns_6 {namespace current}}] \
+ [lsort [namespace children :: test_ns_*]]
} {{} ::test_ns_1 ::test_ns_2 ::test_ns_3 ::test_ns_4::foo ::test_ns_6 {::test_ns_1 ::test_ns_2 ::test_ns_3 ::test_ns_4 ::test_ns_5 ::test_ns_6}}
test namespace-6.2 {Tcl_CreateNamespace, odd number of :'s in name is okay} {
list [namespace eval :::test_ns_1::::foo {namespace current}] \
diff --git a/tests/parseOld.test b/tests/parseOld.test
index 50cf625..6f63e7d 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -13,11 +13,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: parseOld.test,v 1.3 1999/06/26 03:54:19 jenn Exp $
+# RCS: @(#) $Id: parseOld.test,v 1.4 1999/06/26 20:55:08 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
proc fourArgs {a b c d} {
diff --git a/tests/pid.test b/tests/pid.test
index a896aaf..b48b75e 100644
--- a/tests/pid.test
+++ b/tests/pid.test
@@ -11,11 +11,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: pid.test,v 1.4 1999/06/26 03:54:19 jenn Exp $
+# RCS: @(#) $Id: pid.test,v 1.5 1999/06/26 20:55:09 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
# If pid is not defined just return with no error
diff --git a/tests/pkg.test b/tests/pkg.test
index aa0ea7e..82cc7a5 100644
--- a/tests/pkg.test
+++ b/tests/pkg.test
@@ -10,18 +10,19 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: pkg.test,v 1.5 1999/06/26 03:54:20 jenn Exp $
+# RCS: @(#) $Id: pkg.test,v 1.6 1999/06/26 20:55:09 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
# Do all this in a slave interp to avoid garbaging the
# package list
set i [interp create]
interp eval $i [list set argv $argv]
-interp eval $i [list source [file join $::tcltest::testsDirectory defs.tcl]]
+interp eval $i [list package require tcltest]
+interp eval $i [list namespace import ::tcltest::*]
interp eval $i {
eval package forget [package names]
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index 8f8313a..6d1b59f 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -8,11 +8,11 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: pkgMkIndex.test,v 1.9 1999/06/26 03:54:20 jenn Exp $
+# RCS: @(#) $Id: pkgMkIndex.test,v 1.10 1999/06/26 20:55:09 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
set fullPkgPath [file join $::tcltest::testsDirectory pkg]
diff --git a/tests/platform.test b/tests/platform.test
index c5d9794..e8a69f8 100644
--- a/tests/platform.test
+++ b/tests/platform.test
@@ -13,7 +13,7 @@
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
test platform-1.1 {TclpSetVariables: tcl_platform} {
diff --git a/tests/proc-old.test b/tests/proc-old.test
index a802c63..abff6fc 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.test
@@ -14,11 +14,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: proc-old.test,v 1.4 1999/06/26 03:54:21 jenn Exp $
+# RCS: @(#) $Id: proc-old.test,v 1.5 1999/06/26 20:55:09 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
catch {rename t1 ""}
diff --git a/tests/proc.test b/tests/proc.test
index c22a85f..86a9dab 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -13,11 +13,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: proc.test,v 1.5 1999/06/26 03:54:21 jenn Exp $
+# RCS: @(#) $Id: proc.test,v 1.6 1999/06/26 20:55:09 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
catch {eval namespace delete [namespace children :: test_ns_*]}
diff --git a/tests/pwd.test b/tests/pwd.test
index c1f6c48..be16809 100644
--- a/tests/pwd.test
+++ b/tests/pwd.test
@@ -11,11 +11,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: pwd.test,v 1.4 1999/06/26 03:54:22 jenn Exp $
+# RCS: @(#) $Id: pwd.test,v 1.5 1999/06/26 20:55:10 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
test pwd-1.1 {simple pwd} {
diff --git a/tests/reg.test b/tests/reg.test
index b5bfc8e..9627d72 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -6,11 +6,11 @@
#
# Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
#
-# RCS: @(#) $Id: reg.test,v 1.6 1999/06/26 03:54:22 jenn Exp $
+# RCS: @(#) $Id: reg.test,v 1.7 1999/06/26 20:55:10 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
# All tests require the testregexp command, return if this
diff --git a/tests/regexp.test b/tests/regexp.test
index 0d1e021..d17f2be 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -11,11 +11,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: regexp.test,v 1.7 1999/06/26 03:54:22 jenn Exp $
+# RCS: @(#) $Id: regexp.test,v 1.8 1999/06/26 20:55:10 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
catch {unset foo}
diff --git a/tests/registry.test b/tests/registry.test
index 4fe7382..9b08f2f 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,11 +10,11 @@
# Copyright (c) 1997 by Sun Microsystems, Inc. All rights reserved.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
-# RCS: @(#) $Id: registry.test,v 1.6 1999/06/26 03:54:23 jenn Exp $
+# RCS: @(#) $Id: registry.test,v 1.7 1999/06/26 20:55:10 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
if {$tcl_platform(platform) == "windows"} {
diff --git a/tests/rename.test b/tests/rename.test
index b85a3ec..b0a4a7c 100644
--- a/tests/rename.test
+++ b/tests/rename.test
@@ -11,11 +11,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: rename.test,v 1.4 1999/06/26 03:54:23 jenn Exp $
+# RCS: @(#) $Id: rename.test,v 1.5 1999/06/26 20:55:11 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
# Must eliminate the "unknown" command while the test is running,
diff --git a/tests/resource.test b/tests/resource.test
index f49077b..43747cb 100644
--- a/tests/resource.test
+++ b/tests/resource.test
@@ -10,11 +10,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: resource.test,v 1.5 1999/06/26 03:54:24 jenn Exp $
+# RCS: @(#) $Id: resource.test,v 1.6 1999/06/26 20:55:11 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
test resource-1.1 {resource tests} {macOnly} {
diff --git a/tests/result.test b/tests/result.test
index febbf94..dbcd95a 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -14,7 +14,7 @@
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
# Some tests require the testsaveresult command
diff --git a/tests/safe.test b/tests/safe.test
index 8d8aa14..b453543 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -10,11 +10,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: safe.test,v 1.6 1999/06/26 03:54:24 jenn Exp $
+# RCS: @(#) $Id: safe.test,v 1.7 1999/06/26 20:55:12 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
foreach i [interp slaves] {
diff --git a/tests/scan.test b/tests/scan.test
index b777a76..842e0f7 100644
--- a/tests/scan.test
+++ b/tests/scan.test
@@ -11,11 +11,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: scan.test,v 1.5 1999/06/26 03:54:25 jenn Exp $
+# RCS: @(#) $Id: scan.test,v 1.6 1999/06/26 20:55:12 rjohnson Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
- namespace import ::tcltest::*
+ namespace import ::tcltest::*
}
test scan-1.1 {BuildCharSet, CharInSet} {
diff --git a/tests/security.test b/tests/security.test