Re: [Tcllib-devel] To disable teapot libraries

[Andreas K. <and...@ac...>]

KATO Kanryu wrote:
> When I single-tested tcllib/yaml.test,
> I found "package require yaml" put teapot/yaml-0.3.3.tm before "./yaml.tcl".
> 
> So I had to rename yaml-0.3.3.tm to yaml-0.3.3.tm.nouse.
> 
> How to escape this problem?

Hi.

This is a problem which has been solved for the tcllib testsuite. By not using 
the 'package' command. The problem with 'package' is that you cannot specify 
explicitly which code to use, except by listing a version number.

And if multiple implementations of the package with the same version exist the 
package system is free to choose randomly which to take. And in the case of Tcl 
Modules being being present things become even more quirkier.

To avoid all this and make sure that we are testing the code in the Tcllib we 
are working with, instead of something installed, Tcllib provides a number of 
helper commands in the devtools/testutilities.tcl file

Here is an example of their use taken from report/report.test

	# ------------------------------------------------------------------

[1]	source [file join \
	        [file dirname [file dirname [file join [pwd] [info script]]]] \
	        devtools testutilities.tcl]

	testsNeedTcl     8.2
	testsNeedTcltest 1.0

[2]	support {
[3]	    use struct/matrix.tcl struct::matrix
	}
[2]	testing {
[3]	    useLocal report.tcl report
	}

	# -------------------------------------------------------------------

(Ad 1)	First we are loading the test utilities, using a path relative to the
	location of the .test file.

(Ad 2)	The support and testing commands simply define a bit of context for the
	useXXX commands inside. Here we basically declare which package is
	under test (testing), and which other packages we load to just support
	the testing and the package test (support).

(Ad 3)	The 'use' command takes a path relative to the modules/ directory, and
	the name of the package provided by the referenced file, and loads it.

	The 'useLocal' command is similar, except that the path is relative to
	the directory the .test is in.


> I implement for single test for yaml.test beginning.
> 
> --------------------------------------------------------
> # lappend auto_path [pwd]
> set auto_path [linsert $auto_path 0 [pwd]]
> package require tcltest
> namespace import ::tcltest::*
> puts [package require yaml]
> --------------------------------------------------------


For yaml the equivalent code would look similar to

	# ------------------------------------------------------------------

	source [file join \
	        [file dirname [file dirname [file join [pwd] [info script]]]] \
	        devtools testutilities.tcl]

	testsNeedTcl     8.x ; ## Which version of Tcl is needed by yaml ?
	testsNeedTcltest 1.0 ; ## Which version of tclltest ?

	testing {
	    useLocal yaml.tcl yaml
	}

	# -------------------------------------------------------------------


Hope that helps.

Andreas