TIP #221 IMPLEMENTATION

        * generic/tclBasic.c:   Define [::tcl::Bgerror] in new interps.
        * generic/tclEvent.c:   Update Tcl_BackgroundError to make use
                                of the registered [interp bgerror] command.
        * generic/tclInterp.c:  New [interp bgerror] subcommand.
        * tests/interp.test:    syntax tests updated.

        TIP #226 IMPLEMENTATION
        * generic/tcl.decls:    Stubs for Tcl_(Save|Restore|Discard)InterpState
        * generic/tcl.h:        New public opaque type, Tcl_InterpState.
        * generic/tclInt.h:     Drop old private declarations.  Add
                                Tcl(Get|Set)BgErrorHandler
        * generic/tclResult.c:  Tcl_*InterpState implementations.
        * generic/tclDictObj.c: Update callers.
        * generic/tclIOGT.c:
        * generic/tclTrace.c:

        TIP #227 IMPLEMENTATION
        * generic/tcl.decls:    Stubs for Tcl_(Get|Set)ReturnOptions.
        * generic/tclInt.h:     Drop old private declarations.
        * generic/tclResult.c:  Tcl_*ReturnOptions implementations.
        * generic/tclCmdAH.c:   Update callers.
        * generic/tclMain.c:


FossilOrigin-Name: 2475a460cd0a667ae4c1166131c5a231762b673a

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/interp.test b/tests/interp.test
index 3909ef1..53c64e5 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.41 2004/09/14 17:45:37 msofer Exp $
+# RCS: @(#) $Id: interp.test,v 1.42 2004/11/13 00:19:10 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -33,7 +33,7 @@ test interp-1.1 {options for interp command} {
 } {1 {wrong # args: should be "interp cmd ?arg ...?"}}
 test interp-1.2 {options for interp command} {
     list [catch {interp frobox} msg] $msg
-} {1 {bad option "frobox": must be alias, aliases, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
+} {1 {bad option "frobox": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 test interp-1.3 {options for interp command} {
     interp delete
 } ""
@@ -51,13 +51,13 @@ test interp-1.6 {options for interp command} {
 } {1 {wrong # args: should be "interp slaves ?path?"}}
 test interp-1.7 {options for interp command} {
     list [catch {interp hello} msg] $msg
-} {1 {bad option "hello": must be alias, aliases, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
+} {1 {bad option "hello": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 test interp-1.8 {options for interp command} {
     list [catch {interp -froboz} msg] $msg
-} {1 {bad option "-froboz": must be alias, aliases, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
+} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}}
 test interp-1.9 {options for interp command} {
     list [catch {interp -froboz -safe} msg] $msg
-} {1 {bad option "-froboz": must be alias, aliases, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}} 
+} {1 {bad option "-froboz": must be alias, aliases, bgerror, create, delete, eval, exists, expose, hide, hidden, issafe, invokehidden, limit, marktrusted, recursionlimit, slaves, share, target, or transfer}} 
 test interp-1.10 {options for interp command} {
     list [catch {interp target} msg] $msg
 } {1 {wrong # args: should be "interp target path alias"}}