Lines Matching +refs:tcltest +refs:CompareStrings
0 # tcltest.tcl --
4 # defines the tcltest namespace and finds and defines the output
6 # etc. used by Tcl tests. See the tcltest man page for more
19 # RCS: @(#) $Id: tcltest.tcl,v 1.103.2.3 2009/09/01 14:13:02 dgp Exp $
22 namespace eval tcltest {
29 # Compatibility support for dumb variables defined in tcltest 1
31 # yourself. You don't need tcltest to wrap it for you.
35 ##### Export the public tcltest procs; several categories
69 # Export deprecated commands for tcltest 1 compatibility
73 # tcltest::normalizePath --
155 ##### Initialize internal arrays of tcltest, but only if the caller
189 # of these constraints are counted only if tcltest::debug is set to
198 ##### Initialize internal variables of tcltest, but only if the caller
252 trace variable constraintsSpecified r {set ::tcltest::constraintsSpecified \
253 [array names ::tcltest::testConstraints] ;# }
281 Default tcltest [info nameofexecutable]
282 trace variable tcltest w [namespace code {testConstraint stdio \
361 # version 1 of tcltest, we must allow every configuration option
368 # OK, then so to support tcltest 1 compatibility, it seems we want
384 # The end result is that we support tcltest 1 compatibility and
683 # tcltest variables and flags provided; a debug level of 3 causes
685 # The tcltest package currently implements only up to debug level 3.
804 # tcltest::Debug* --
811 # tcltest::DebugPuts --
827 proc tcltest::DebugPuts {level string} {
835 # tcltest::DebugPArray --
851 proc tcltest::DebugPArray {level arrayvar} {
861 # Define our own [parray] in ::tcltest that will inherit use of the [puts]
862 # defined in ::tcltest. NOTE: Ought to construct with [info args] and
866 proc tcltest::parray {a {pattern *}} [info body ::parray]
868 # tcltest::DebugDo --
884 proc tcltest::DebugDo {level script} {
895 proc tcltest::Warn {msg} {
899 # tcltest::mainThread
901 # Accessor command for tcltest variable mainThread.
903 proc tcltest::mainThread { {new ""} } {
911 # tcltest::testConstraint --
923 # content of tcltest::testConstraints($constraint)
928 proc tcltest::testConstraint {constraint {value ""}} {
946 # tcltest::interpreter --
948 # the interpreter name stored in tcltest::tcltest
954 # content of tcltest::tcltest
959 proc tcltest::interpreter { {interp ""} } {
960 variable tcltest
962 return $tcltest
965 set tcltest {}
967 set tcltest $interp
973 # tcltest::AddToSkippedBecause --
982 # Modifies tcltest::skippedBecause; sets the variable to 1 if
988 proc tcltest::AddToSkippedBecause { constraint {value 1}} {
1001 # tcltest::PrintError --
1003 # Prints errors to tcltest::errorChannel and then flushes that
1016 proc tcltest::PrintError {errorMsg} {
1062 # tcltest::SafeFetch --
1083 proc tcltest::SafeFetch {n1 n2 op} {
1094 # tcltest::ConstraintInitializer --
1096 # Get or set a script that when evaluated in the tcltest namespace
1109 proc tcltest::ConstraintInitializer {constraint {script ""}} {
1122 # tcltest::InitConstraints --
1126 # See the tcltest man page for the list of built-in constraints defined
1140 proc tcltest::InitConstraints {} {
1148 proc tcltest::DefineConstraintInitializers {} {
1334 # tcltest::PrintUsageInfo
1336 # Prints out the usage information for package tcltest. This can
1347 proc tcltest::PrintUsageInfo {} {
1352 proc tcltest::Usage { {option ""} } {
1396 # tcltest::ProcessFlags --
1399 # is called by processCmdLineArgs. Modifies tcltest variables
1406 # sets tcltest variables according to their values as defined by
1412 proc tcltest::ProcessFlags {flagArray} {
1425 # Something went wrong parsing $args for tcltest options
1469 # tcltest::ProcessCmdLineArgs --
1481 # Sets the above-named variables in the tcltest namespace.
1487 proc tcltest::ProcessCmdLineArgs {} {
1500 DebugPuts 2 "Flags passed into tcltest:"
1508 DebugPuts 2 "tcltest::debug = [debug]"
1509 DebugPuts 2 "tcltest::testsDirectory = [testsDirectory]"
1510 DebugPuts 2 "tcltest::workingDirectory = [workingDirectory]"
1511 DebugPuts 2 "tcltest::temporaryDirectory = [temporaryDirectory]"
1512 DebugPuts 2 "tcltest::outputChannel = [outputChannel]"
1513 DebugPuts 2 "tcltest::errorChannel = [errorChannel]"
1514 DebugPuts 2 "Original environment (tcltest::originalEnv):"
1524 # tcltest::TestPuts --
1527 # out on stdout in tcltest::outData and stderr in errData before
1540 namespace eval tcltest::Replace {
1543 proc tcltest::Replace::puts {args} {
1591 # tcltest::Eval --
1609 proc tcltest::Eval {script {ignoreOutput 1}} {
1629 # tcltest::CompareStrings --
1646 proc tcltest::CompareStrings {actual expected mode} {
1658 # tcltest::customMatch --
1673 # Sets the variable tcltest::CustomMatch
1675 proc tcltest::customMatch {mode script} {
1684 # tcltest::SubstArguments list
1713 proc tcltest::SubstArguments {argList} {
1782 # tcltest::test --
1823 # by the tcltest package. Default value is exact.
1837 proc tcltest::test {name description args} {
2033 CompareStrings $outData $output $match
2045 CompareStrings $errData $errorOutput $match
2058 CompareStrings $actualAnswer $result $match
2195 proc tcltest::Skipped {name constraints} {
2288 proc tcltest::RunTest {name script} {
2305 # tcltest::cleanupTestsHook --
2307 # This hook allows a harness that builds upon tcltest to specify
2311 if {[llength [info commands tcltest::cleanupTestsHook]] == 0} {
2312 proc tcltest::cleanupTestsHook {} {}
2315 # tcltest::cleanupTests --
2342 proc tcltest::cleanupTests {{calledFromAllFile 0}} {
2557 # tcltest::GetMatchingFiles
2573 # a lower case version is needed for compatibility with tcltest 1.0
2574 proc tcltest::getMatchingFiles args {GetMatchingFiles {*}$args}
2576 proc tcltest::GetMatchingFiles { args } {
2620 # tcltest::GetMatchingDirectories --
2637 proc tcltest::GetMatchingDirectories {rootdir} {
2670 # tcltest::runAllTests --
2685 proc tcltest::runAllTests { {shell ""} } {
2825 # Test utility procs - not used in tcltest, but may be useful for
2828 # tcltest::loadTestedCommands --
2843 proc tcltest::loadTestedCommands {} {
2852 # tcltest::saveState --
2865 proc tcltest::saveState {} {
2873 # tcltest::restoreState --
2888 proc tcltest::restoreState {} {
2909 # tcltest::normalizeMsg --
2922 proc tcltest::normalizeMsg {msg} {
2928 # tcltest::makeFile --
2947 proc tcltest::makeFile {contents name {directory ""}} {
2975 # tcltest::removeFile --
2989 proc tcltest::removeFile {name {directory ""}} {
3012 # tcltest::makeDirectory --
3030 proc tcltest::makeDirectory {name {directory ""}} {
3045 # tcltest::removeDirectory --
3059 proc tcltest::removeDirectory {name {directory ""}} {
3083 # tcltest::viewFile --
3097 proc tcltest::viewFile {name {directory ""}} {
3109 # tcltest::bytestring --
3134 proc tcltest::bytestring {string} {
3138 # tcltest::OpenFiles --
3151 proc tcltest::OpenFiles {} {
3158 # tcltest::LeakFiles --
3171 proc tcltest::LeakFiles {old} {
3188 # tcltest::SetIso8859_1_Locale --
3201 proc tcltest::SetIso8859_1_Locale {} {
3211 # tcltest::RestoreLocale --
3224 proc tcltest::RestoreLocale {} {
3232 # tcltest::threadReap --
3247 proc tcltest::threadReap {} {
3250 # testthread built into tcltest
3293 namespace eval tcltest {
3320 # tcltest according to the option values it specifies. This has
3321 # the effect of resetting tcltest's default configuration.
3364 # lets the tcltest user call [configure] for themselves if they wish.