Have the Tcl tests support environment variable SQLITE_TEST_PATTERN_LIST, so that...

FossilOrigin-Name: b7c92e1d08f213865f026d8dbdc4e805fb5c119b7f206506ed06e83a878de657

diff --git a/manifest b/manifest
index 360cf743faf5f199630297839c5533232d6a77d6..7af4f451ea954d33833d4cfec7a7d2c2059a3c7c 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\ssanitizer\scomplaint\sin\sfts3\scode.
-D 2021-03-10T20:04:21.459
+C Have\sthe\sTcl\stests\ssupport\senvironment\svariable\sSQLITE_TEST_PATTERN_LIST,\sso\sthat\sif\sit\sis\sset\sit\sis\sinterpreted\sas\sa\slist\sof\spatterns\sthat\sare\smatched\sagainst\stests\sfile\snames.\sOnly\stest\sfiles\sthat\smatch\sat\sleast\sone\spattern\sare\srun.
+D 2021-03-11T08:49:52.837
 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
 F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
 F LICENSE.md df5091916dbb40e6e9686186587125e1b2ff51f022cc334e886c19a0e9982724
@@ -1263,7 +1263,7 @@ F test/parser1.test 6ccdf5e459a5dc4673d3273dc311a7e9742ca952dd0551a6a6320d27035c
 F test/pcache.test c8acbedd3b6fd0f9a7ca887a83b11d24a007972b
 F test/pcache2.test af7f3deb1a819f77a6d0d81534e97d1cf62cd442
 F test/percentile.test 4243af26b8f3f4555abe166f723715a1f74c77ff
-F test/permutations.test 9c079ee05234f0402393a771b430febbfa69371cb06419f953debfc482c02984
+F test/permutations.test 0a7cf0b6b1283cdd4f0d6e31cb7afbde81d20b1caef60b73914e85b6bf660b8a
 F test/pg_common.tcl 3b27542224db1e713ae387459b5d117c836a5f6e328846922993b6d2b7640d9f
 F test/pragma.test 50b91bedea9324d3ab48e793f908ee7d2c7dcf84bfa2281e792838be59641ec8
 F test/pragma2.test e5d5c176360c321344249354c0c16aec46214c9f
@@ -1910,7 +1910,7 @@ F vsixtest/vsixtest.tcl 6a9a6ab600c25a91a7acc6293828957a386a8a93
 F vsixtest/vsixtest.vcxproj.data 2ed517e100c66dc455b492e1a33350c1b20fbcdc
 F vsixtest/vsixtest.vcxproj.filters 37e51ffedcdb064aad6ff33b6148725226cd608e
 F vsixtest/vsixtest_TemporaryKey.pfx e5b1b036facdb453873e7084e1cae9102ccc67a0
-P 4cb00b9d4020a51f690720c6f51009c5be8c22ef8c70807ead1d953d19784f26
-R ae32cbb11dd06e29778fac69f4d24ea6
+P 424b39eaeb578f85e58214af4b467e6e363431308ab7a327774e62fa70d3c2db
+R ecc2e846c4cf0e972a30284fd51a1f86
 U dan
-Z d3688e9e8b7aef7ca2de4f6e429be486
+Z 990c0729defefc588b938a5aa30281d1

diff --git a/manifest.uuid b/manifest.uuid
index 9ae46517f2575ddef53bc729d9472c96fbbf4097..0dc704b5f756ef9da6fc4c8e81ce518519a358fe 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-424b39eaeb578f85e58214af4b467e6e363431308ab7a327774e62fa70d3c2db
\ No newline at end of file
+b7c92e1d08f213865f026d8dbdc4e805fb5c119b7f206506ed06e83a878de657
\ No newline at end of file

diff --git a/test/permutations.test b/test/permutations.test
index 87b2d424dd38d716dee440633eb56d52e4d3bc5e..0e7dad4662c57114e58a0a2b417097e9e77d4624 100644 (file)
--- a/test/permutations.test
+++ b/test/permutations.test
@@ -1138,11 +1138,20 @@ proc run_tests {name args} {
   set ::G(perm:presql)       $options(-presql)
 
   foreach file [lsort $options(-files)] {
-    uplevel $options(-initialize)
     if {[file tail $file] == $file} { set file [file join $::testdir $file] }
+
+    if {[info exists ::env(SQLITE_TEST_PATTERN_LIST)]} {
+      set ok 0
+      foreach p $::env(SQLITE_TEST_PATTERN_LIST) {
+        set p [string map {% *} $p]
+        if {[string match $p [file tail $file]]} {set ok 1 ; break}
+      }
+      if {!$ok} continue
+    }
+
+    uplevel $options(-initialize)
     slave_test_file $file
     uplevel $options(-shutdown)
-
     unset -nocomplain ::G(perm:sqlite3_args)
   }