diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:38:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:38:09 (GMT) |
| commit | 179ed8faa4d8ab47fdb8ae6701308b73f8ce440b (patch) | |
| tree | 722adc5a7c81396cdd5aaff3f6aa12d2086cac74 /tests | |
| parent | 2ed49a3c8102564e96352e3b8cc77f234adcae6e (diff) | |
| parent | 0f21498784cb704ce6098fcc71b786e422fb2b8d (diff) | |
| download | tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.zip tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.tar.gz tcl-179ed8faa4d8ab47fdb8ae6701308b73f8ce440b.tar.bz2 | |
Make packages msgcat and tcltest work unmodified in "novem". Make more test-cases work unmodified in "novem".
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/all.tcl | 2 | ||||
| -rw-r--r-- | tests/main.test | 2 | ||||
| -rw-r--r-- | tests/msgcat.test | 2 | ||||
| -rw-r--r-- | tests/safe.test | 2 | ||||
| -rw-r--r-- | tests/tm.test | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 0a6f57f..69a16ba 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -11,7 +11,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. package prefer latest -package require Tcl 8.5 +package require Tcl 8.5- package require tcltest 2.2 namespace import tcltest::* configure {*}$argv -testdir [file dir [info script]] diff --git a/tests/main.test b/tests/main.test index 96af066..ab66b38 100644 --- a/tests/main.test +++ b/tests/main.test @@ -16,7 +16,7 @@ namespace eval ::tcl::test::main { # - tests use testing commands introduced in Tcltest 8.4 testConstraint Tcltest [expr { [llength [package provide Tcltest]] - && [package vsatisfies [package provide Tcltest] 8.4]}] + && [package vsatisfies [package provide Tcltest] 8.5-]}] # Procedure to simulate interactive typing of commands, line by line proc type {chan script} { diff --git a/tests/msgcat.test b/tests/msgcat.test index e69220e..1c3ce58 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -12,7 +12,7 @@ # Note that after running these tests, entries will be left behind in the # message catalogs for locales foo, foo_BAR, and foo_BAR_baz. -package require Tcl 8.5 +package require Tcl 8.5- if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." return diff --git a/tests/safe.test b/tests/safe.test index 6c9c6c9..e43ce12 100644 --- a/tests/safe.test +++ b/tests/safe.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. -package require Tcl 8.5 +package require Tcl 8.5- if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/tm.test b/tests/tm.test index a4dafe0..567d351 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -6,7 +6,7 @@ # Copyright (c) 2004 by Donal K. Fellows. # All rights reserved. -package require Tcl 8.5 +package require Tcl 8.5- if {"::tcltest" ni [namespace children]} { package require tcltest 2 namespace import -force ::tcltest::* |