Kill Octal; bump to 9.0a0; make test suite work again.

7 files changed, 8 insertions, 9 deletions

diff --git a/tests/all.tcl b/tests/all.tcl
index 05d3024..5fd21ce 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/httpd11.tcl b/tests/httpd11.tcl
index 9c543dc..9d0650e 100644
--- a/tests/httpd11.tcl
+++ b/tests/httpd11.tcl
@@ -8,7 +8,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.6
+package require Tcl 8.6-
 
 proc ::tcl::dict::get? {dict key} {
     if {[dict exists $dict $key]} {
diff --git a/tests/main.test b/tests/main.test
index f1dc7fd..7fd9d73 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.4-]}]
 
     # 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 1522354..9fb565b 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.2
+package require Tcl 8.2-
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2 required."
     return
diff --git a/tests/parseExpr.test b/tests/parseExpr.test
index 7910974..d667bf2 100644
--- a/tests/parseExpr.test
+++ b/tests/parseExpr.test
@@ -1045,9 +1045,8 @@ test parseExpr-22.13 {Bug 3401704} -constraints testexprparser -body {
 } -result {- {} 0 subexpr naner() 1 operator naner 0 {}}
 
 test parseExpr-22.14 {Bug 3401704} -constraints testexprparser -body {
-    catch {testexprparser 08 -1} m o
-    dict get $o -errorcode
-} -result {TCL PARSE EXPR BADNUMBER OCTAL}
+    testexprparser 08 -1
+} -result {- {} 0 subexpr 08 1 text 08 0 {}}
 test parseExpr-22.15 {Bug 3401704} -constraints testexprparser -body {
     catch {testexprparser 0o8 -1} m o
     dict get $o -errorcode
diff --git a/tests/safe.test b/tests/safe.test
index 4a2792e..423e10e 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 149a65d..73e8261 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::*