diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
commit | 9b7a6c3507ea3383c60aaecb29f873c9b590ccca (patch) | |
tree | 82ce31ebd8f46803d969034f5aa3db8d7974493c /tcl8.6/tests/incr-old.test | |
parent | 87fca7325b97005eb44dcf3e198277640af66115 (diff) | |
download | blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.zip blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.gz blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.bz2 |
rm tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/tests/incr-old.test')
-rw-r--r-- | tcl8.6/tests/incr-old.test | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/tcl8.6/tests/incr-old.test b/tcl8.6/tests/incr-old.test deleted file mode 100644 index ed457cf..0000000 --- a/tcl8.6/tests/incr-old.test +++ /dev/null @@ -1,92 +0,0 @@ -# Commands covered: incr -# -# This file contains the original set of tests for Tcl's incr command. -# Since the incr command is now compiled, a new set of tests covering -# the new implementation is in the file "incr.test". Sourcing this file -# into Tcl runs the tests and generates output for errors. -# No output means no errors were found. -# -# Copyright (c) 1991-1993 The Regents of the University of California. -# Copyright (c) 1994-1996 Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. - -if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest 2 - namespace import -force ::tcltest::* -} - -catch {unset x} - -test incr-old-1.1 {basic incr operation} { - set x 23 - list [incr x] $x -} {24 24} -test incr-old-1.2 {basic incr operation} { - set x 106 - list [incr x -5] $x -} {101 101} -test incr-old-1.3 {basic incr operation} { - set x " -106" - list [incr x 1] $x -} {-105 -105} -test incr-old-1.4 {basic incr operation} { - set x " +106" - list [incr x 1] $x -} {107 107} - -test incr-old-2.1 {incr errors} { - list [catch incr msg] $msg -} {1 {wrong # args: should be "incr varName ?increment?"}} -test incr-old-2.2 {incr errors} { - list [catch {incr a b c} msg] $msg -} {1 {wrong # args: should be "incr varName ?increment?"}} -test incr-old-2.3 {incr errors} { - catch {unset x} - incr x -} 1 -test incr-old-2.4 {incr errors} { - set x abc - list [catch {incr x} msg] $msg $::errorInfo -} {1 {expected integer but got "abc"} {expected integer but got "abc" - while executing -"incr x"}} -test incr-old-2.5 {incr errors} { - set x 123 - list [catch {incr x 1a} msg] $msg $::errorInfo -} {1 {expected integer but got "1a"} {expected integer but got "1a" - (reading increment) - invoked from within -"incr x 1a"}} -test incr-old-2.6 {incr errors} -body { - proc readonly args {error "variable is read-only"} - set x 123 - trace var x w readonly - list [catch {incr x 1} msg] $msg $::errorInfo -} -match glob -result {1 {can't set "x": variable is read-only} {*variable is read-only - while executing -* -"incr x 1"}} -catch {unset x} -test incr-old-2.7 {incr errors} { - set x - - list [catch {incr x 1} msg] $msg -} {1 {expected integer but got "-"}} -test incr-old-2.8 {incr errors} { - set x { - } - list [catch {incr x 1} msg] $msg -} {1 {expected integer but got " - "}} -test incr-old-2.9 {incr errors} { - set x + - list [catch {incr x 1} msg] $msg -} {1 {expected integer but got "+"}} -test incr-old-2.10 {incr errors} { - set x {20 x} - list [catch {incr x 1} msg] $msg -} {1 {expected integer but got "20 x"}} - -# cleanup -::tcltest::cleanupTests -return |