diff options
Diffstat (limited to 'tcl8.6/tests/config.test')
-rw-r--r-- | tcl8.6/tests/config.test | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/tcl8.6/tests/config.test b/tcl8.6/tests/config.test deleted file mode 100644 index d14837e..0000000 --- a/tcl8.6/tests/config.test +++ /dev/null @@ -1,60 +0,0 @@ -# -*- tcl -*- -# Commands covered: pkgconfig -# -# This file contains a collection of tests for one or more of the Tcl -# built-in commands. 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 - namespace import -force ::tcltest::* -} - -test pkgconfig-1.1 {query keys} { - lsort [::tcl::pkgconfig list] -} {64bit bindir,install bindir,runtime compile_debug compile_stats debug docdir,install docdir,runtime includedir,install includedir,runtime libdir,install libdir,runtime mem_debug optimized profiled scriptdir,install scriptdir,runtime threaded} -test pkgconfig-1.2 {query keys multiple times} { - string compare [::tcl::pkgconfig list] [::tcl::pkgconfig list] -} 0 -test pkgconfig-1.3 {query value multiple times} { - string compare \ - [::tcl::pkgconfig get bindir,install] \ - [::tcl::pkgconfig get bindir,install] -} 0 - - -test pkgconfig-2.0 {error: missing subcommand} { - catch {::tcl::pkgconfig} msg - set msg -} {wrong # args: should be "::tcl::pkgconfig subcommand ?arg?"} -test pkgconfig-2.1 {error: illegal subcommand} { - catch {::tcl::pkgconfig foo} msg - set msg -} {bad subcommand "foo": must be get or list} -test pkgconfig-2.2 {error: list with arguments} { - catch {::tcl::pkgconfig list foo} msg - set msg -} {wrong # args: should be "::tcl::pkgconfig list"} -test pkgconfig-2.3 {error: get without arguments} { - catch {::tcl::pkgconfig get} msg - set msg -} {wrong # args: should be "::tcl::pkgconfig get key"} -test pkgconfig-2.4 {error: query unknown key} { - catch {::tcl::pkgconfig get foo} msg - set msg -} {key not known} -test pkgconfig-2.5 {error: query with to many arguments} { - catch {::tcl::pkgconfig get foo bar} msg - set msg -} {wrong # args: should be "::tcl::pkgconfig subcommand ?arg?"} - -# cleanup -::tcltest::cleanupTests -return |