Browse Source

promotion outputs: punk::tcltestrun 0.3.1 into bootsupport + _vfscommon.vfs

make.tcl modules + bootsupport + vfscommonupdate outputs for the tcltestrun
0.3.1 fix (source commit 1eae7260): src/bootsupport/modules and
src/vfs/_vfscommon.vfs/modules move from tcltestrun-0.3.0 to tcltestrun-0.3.1
(superseded copies pruned with punkcheck DELETE records), and the fixed
modules/test/runtestmodules.tcl is synced into _vfscommon.vfs.

Assisted-by: harness=claude; primary-model=claude-fable-5; api-location=anthropic.com
master
Julian Noble 7 days ago
parent
commit
424e9fc7eb
  1. 8
      src/bootsupport/modules/punk/tcltestrun-0.3.1.tm
  2. 8
      src/vfs/_vfscommon.vfs/modules/punk/tcltestrun-0.3.1.tm
  3. 4
      src/vfs/_vfscommon.vfs/modules/test/runtestmodules.tcl

8
src/bootsupport/modules/punk/tcltestrun-0.3.0.tm → src/bootsupport/modules/punk/tcltestrun-0.3.1.tm

@ -8,7 +8,7 @@
# (C) 2026
#
# @@ Meta Begin
# Application punk::tcltestrun 0.3.0
# Application punk::tcltestrun 0.3.1
# Meta platform tcl
# Meta license BSD
# @@ Meta End
@ -373,8 +373,8 @@ tcl::namespace::eval punk::tcltestrun {
#when running against unbuilt modules - we want to ensure that the unbuilt versions of any modules are used rather than any installed versions - so we add package ifneeded definitions for the unbuilt versions of any modules that are present.
# add 'package ifneeded' definitions for unbuilt #modpod modules.
#first gather subdirectories of modules that contain #modpod-*-<version> in their name - these should be the unbuilt versions of zip based modules.
#'punk::path::subfolders' currently only supports negative matching with -exclude, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude {**/_build/** **/_build} $tmpath]
#'punk::path::subfolders' currently only supports negative matching with -exclude-paths, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} $tmpath]
set script ""
foreach sub $subfolders {
#In most cases we could use string match - but the * within modpod-*-<version> could match a forward slash which could then match some other file under a #modpod- folder structure,
@ -543,7 +543,7 @@ namespace eval ::punk::args::register {
package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
variable pkg punk::tcltestrun
variable version
set version 0.3.0
set version 0.3.1
}]
return

8
src/vfs/_vfscommon.vfs/modules/punk/tcltestrun-0.3.0.tm → src/vfs/_vfscommon.vfs/modules/punk/tcltestrun-0.3.1.tm

@ -8,7 +8,7 @@
# (C) 2026
#
# @@ Meta Begin
# Application punk::tcltestrun 0.3.0
# Application punk::tcltestrun 0.3.1
# Meta platform tcl
# Meta license BSD
# @@ Meta End
@ -373,8 +373,8 @@ tcl::namespace::eval punk::tcltestrun {
#when running against unbuilt modules - we want to ensure that the unbuilt versions of any modules are used rather than any installed versions - so we add package ifneeded definitions for the unbuilt versions of any modules that are present.
# add 'package ifneeded' definitions for unbuilt #modpod modules.
#first gather subdirectories of modules that contain #modpod-*-<version> in their name - these should be the unbuilt versions of zip based modules.
#'punk::path::subfolders' currently only supports negative matching with -exclude, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude {**/_build/** **/_build} $tmpath]
#'punk::path::subfolders' currently only supports negative matching with -exclude-paths, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} $tmpath]
set script ""
foreach sub $subfolders {
#In most cases we could use string match - but the * within modpod-*-<version> could match a forward slash which could then match some other file under a #modpod- folder structure,
@ -543,7 +543,7 @@ namespace eval ::punk::args::register {
package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
variable pkg punk::tcltestrun
variable version
set version 0.3.0
set version 0.3.1
}]
return

4
src/vfs/_vfscommon.vfs/modules/test/runtestmodules.tcl

@ -41,8 +41,8 @@ if {$test_type eq "unbuilt"} {
# add 'package ifneeded' definitions for unbuilt #modpod modules.
#first gather subdirectories of modules that contain #modpod-*-999999.0a1.0 in their name - these should be the unbuilt versions of zip based modules.
#set subfolders [punk::path::subfolders -recursive [file normalize $project_root/src/modules] -match */#modpod-*-999999.0a1.0]
#'punk::path::subfolders' currently only supports negative matching with -exclude, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude {**/_build/** **/_build} [file normalize $project_root/src/modules]]
#'punk::path::subfolders' currently only supports negative matching with -exclude-paths, so we have to filter for the positive match ourselves.
set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} [file normalize $project_root/src/modules]]
foreach sub $subfolders {
#In most cases we could use string match - but the * within modpod-*-999999.0a1.0 could match a forward slash which could then match some other file under a #modpod- folder structure,
#so we use globmatchpath which treats * as matching any characters except path separators.

Loading…
Cancel
Save