./tclsh ../tests/all.tcl
shows the following failed tests:
==== tm-1.2 tm: path command syntax FAILED
==== Contents of test case:
::tcl:™️:path foo
---- Result was:
Expect one of add, remove, or list, got "foo"
---- Result should have been (exact matching):
unknown or ambiguous subcommand "foo": must be add,
list, or remove
==== tm-1.2 FAILED
==== tm-1.3 tm: path command syntax FAILED
==== Contents of test case:
::tcl:™️:path add
---- Result was:
wrong#args, expected: ::tcl:™️:path add path path...
---- Result should have been (exact matching):
wrong # args: should be "::tcl:™️:path add path ..."
==== tm-1.3 FAILED
==== tm-1.4 tm: path command syntax FAILED
==== Contents of test case:
::tcl:™️:path remove
---- Result was:
wrong#args, expected: ::tcl:™️:path remove path path ...
---- Result should have been (exact matching):
wrong # args: should be "::tcl:™️:path remove path ..."
==== tm-1.4 FAILED
==== tm-1.5 tm: path command syntax FAILED
==== Contents of test case:
::tcl:™️:path list foobar
---- Result was:
wrong#args, expected: ::tcl:™️:path list
---- Result should have been (exact matching):
wrong # args: should be "::tcl:™️:path list"
==== tm-1.5 FAILED
==== tm-3.5 tm: module path management, input
validation/list interaction FAILED
==== Contents of test case:
catch {::tcl:™️:path add snarf foo geode foo/bar}
# Nothing is added if a problem was found.
::tcl:™️:path list
---- Result was:
foo/bar geode foo snarf
---- Result should have been (exact matching):
==== tm-3.5 FAILED
==== tm-3.6 tm: module path management, input
validation/list interaction FAILED
==== Contents of test case:
catch {::tcl:™️:path add snarf foo/bar geode foo}
# Nothing is added if a problem was found.
::tcl:™️:path list
---- Result was:
foo geode foo/bar snarf
---- Result should have been (exact matching):
==== tm-3.6 FAILED
==== tm-3.9 tm: module path management, input
validation, ignore duplicates FAILED
==== Contents of test case:
# Ignore path if present
::tcl:™️:path add foo snarf geode foo
::tcl:™️:path list
---- Result was:
foo geode snarf foo
---- Result should have been (exact matching):
geode snarf foo
==== tm-3.9 FAILED
==== unixInit-2.1 TclpInitLibraryPath: value of
installLib, developLib FAILED
==== Contents of test case:
set path [getlibpath]
set installLib lib/tcl[info tclversion]
set developLib tcl[info patchlevel]/library
set prefix [file dirname [file dirname [interpreter]]]
set x {}
lappend x [string compare [lindex $path 2]
$prefix/$installLib]
lappend x [string compare [lindex $path 6] [file
dirname $prefix]/$developLib]
set x
---- Result was:
-1 1
---- Result should have been (exact matching):
0 0
==== unixInit-2.1 FAILED
==== unixInit-2.6 TclpInitLibraryPath: executable
relative FAILED
==== Contents of test case:
makeDirectory tmp
makeDirectory [file join tmp sparkly]
makeDirectory [file join tmp sparkly bin]
file copy [interpreter] [file join
[temporaryDirectory] tmp sparkly bin tcltest]
makeDirectory [file join tmp sparkly lib]
makeDirectory [file join tmp sparkly lib tcl[info
tclversion]]
makeFile {} [file join tmp sparkly lib tcl[info
tclversion] init.tcl]
set x [lrange [getlibpath [file join
[temporaryDirectory] tmp sparkly bin tcltest]] 2 3]
removeFile [file join tmp sparkly lib tcl[info
tclversion] init.tcl]
removeDirectory [file join tmp sparkly lib tcl[info
tclversion]]
removeDirectory [file join tmp sparkly lib]
removeDirectory [file join tmp sparkly bin]
removeDirectory [file join tmp sparkly]
removeDirectory tmp
set x
---- Result was:
/local/src/tcl/unix/tmp/lib/tcl8.5
/local/src/tcl/unix/tmp/sparkly/library
---- Result should have been (exact matching):
/local/src/tcl/unix/tmp/sparkly/lib/tcl8.5
/local/src/tcl/unix/tmp/lib/tcl8.5
==== unixInit-2.6 FAILED
==== unixInit-2.9 TclpInitLibraryPath: paths relative
to executable FAILED
==== Contents of test case:
# Checking for Bug 438014
file delete -force /tmp/sparkly
file delete -force /tmp/library
file mkdir /tmp/sparkly
file copy [interpreter] /tmp/sparkly/tcltest
file mkdir /tmp/library/
close [open /tmp/library/init.tcl w]
set x [lrange [getlibpath /tmp/sparkly/tcltest] 2 6]
file delete -force /tmp/sparkly
file delete -force /tmp/library
set x
---- Result was:
/lib/tcl8.5 /tmp/library /library /tcl8.5a2/library
/tcl8.5a2/library
---- Result should have been (exact matching):
/tmp/lib/tcl8.5 /lib/tcl8.5 /tmp/library /library
/tcl8.5a2/library
==== unixInit-2.9 FAILED
==== unixInit-2.10 TclpInitLibraryPath: executable
relative FAILED
==== Contents of test case:
# Checking for Bug 832657
set x [lrange [getlibpath [file join .. bin
tcltest]] 4 5]
foreach p $x {
lappend y [file normalize $p]
}
set y
---- Result was:
/local/src/tcl/unix/tmp/library
/local/src/tcl/unix/tmp/tcl8.5a2/library
---- Result should have been (exact matching):
/local/src/tcl/unix/tmp/sparkly/library
/local/src/tcl/unix/tmp/library
==== unixInit-2.10 FAILED
