diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-26 23:02:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-26 23:02:29 (GMT) |
| commit | d4140ec31b18515b482006a2d9cac7e2d281f8db (patch) | |
| tree | 51cc7f9b4420304dd9dae5b402e6dbc9b2337f1f | |
| parent | 29b5c15de58bfb8f522ebfcde30d4ded5712d4a2 (diff) | |
| download | tcl-d4140ec31b18515b482006a2d9cac7e2d281f8db.zip tcl-d4140ec31b18515b482006a2d9cac7e2d281f8db.tar.gz tcl-d4140ec31b18515b482006a2d9cac7e2d281f8db.tar.bz2 | |
Don't run obj-1.1 test with -DTCL_NO_DEPRECATED
| -rw-r--r-- | tests/obj.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/obj.test b/tests/obj.test index 4fa8d3a..7563422 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -19,11 +19,13 @@ if {"::tcltest" ni [namespace children]} { ::tcltest::loadTestedCommands catch [list package require -exact tcl::test [info patchlevel]] +package require tcltests + testConstraint testobj [llength [info commands testobj]] testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] testConstraint wideIs64bit [expr {wide(0x8000000000000000) < 0}] -test obj-1.1 {Tcl_AppendAllObjTypes, and InitTypeTable, Tcl_RegisterObjType} testobj { +test obj-1.1 {Tcl_AppendAllObjTypes, and InitTypeTable, Tcl_RegisterObjType} {testobj deprecated} { set r 1 foreach {t} { bytearray |