ts: improve Tcl file detection for lint testsuite

xdelaruelle · xdelaruelle · commit a7a06b999cd3 · 2023-06-11T19:07:40.000+02:00
diff --git a/testsuite/lint.00-init/005-init_ts.exp b/testsuite/lint.00-init/005-init_ts.exp
@@ -90,7 +90,7 @@ foreach fpath $scan_files {
          {Bourne-Again shell script*} {
             lappend lint_files(bash) $fpath
          }
-         {*tclsh script*} {
+         {*tclsh script*} - {Tcl/Tk script*} {
             lappend lint_files(tcl) $fpath
          }
       }

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ foreach fpath $scan_files {`
`90`	`90`	`{Bourne-Again shell script*} {`
`91`	`91`	`lappend lint_files(bash) $fpath`
`92`	`92`	`}`
`93`		`- {tclsh script} {`
	`93`	`+ {tclsh script} - {Tcl/Tk script*} {`
`94`	`94`	`lappend lint_files(tcl) $fpath`
`95`	`95`	`}`
`96`	`96`	`}`