Diff
Not logged in

Differences From Artifact [c3497f2619]:

To Artifact [244dcc78a1]:


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:\