458
459
460
461
462
463
464
465
466
467
468
469
470
471
|
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
|
+
|
variable testPackageConfigurations
variable testPackageIndexFileName
variable testPackageName
variable testPackagePlatforms
variable testPackageVersion
variable testSuiteFileName
variable useEnvironment
variable useLibrary
variable useRegistry
variable useRelativePath
variable verbose
#
# HACK: Scan for and then process the "-baseDirectory", "-configuration",
# "-suffix", "-preTest", and "-postTest" command line arguments. The
|
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
|
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
|
-
+
+
|
uplevel #0 $preTest
}
#
# NOTE: Attempt to require the package being tested now. This should
# end up sourcing the "helper.tcl" file, which must also provide
# us with the "envVars", "rootRegistryKeyName", "useEnvironment",
# "useRegistry", and "useRelativePath" Tcl variables that we need.
# "useLibrary", "useRegistry", and "useRelativePath" Tcl variables
# that we need.
#
if {$verbose} then {
catch {
set caller [maybeFullName [lindex [info level 0] 0]]
eval $logCommand [list \
"$caller: Using final binary path \"$testBinaryPath\"..."]
|
718
719
720
721
722
723
724
725
726
727
728
729
730
731
|
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
|
+
+
+
+
|
$envVars $envVarSuffixes]
}
if {$useRegistry} then {
eval lappendUnique testSuiteDirectories [getRegistryPathList \
$rootRegistryKeyName Path]
}
if {$useLibrary} then {
eval lappendUnique testSuiteDirectories [getLibraryPathList]
}
if {$verbose} then {
catch {
set caller [maybeFullName [lindex [info level 0] 0]]
eval $logCommand [list \
"$caller: Final list of directories to search:\
|