jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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
1eae726035
commit
424e9fc7eb
3 changed files with 10 additions and 10 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  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
Unescape View File

@ -8,7 +8,7 @@
# (C) 2026 # (C) 2026
# #
# @@ Meta Begin # @@ Meta Begin
# Application punk::tcltestrun 0.3.0 # Application punk::tcltestrun 0.3.1
# Meta platform tcl # Meta platform tcl
# Meta license BSD # Meta license BSD
# @@ Meta End # @@ 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. #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. # 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. #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. #'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 {**/_build/** **/_build} $tmpath] set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} $tmpath]
set script "" set script ""
foreach sub $subfolders { 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, #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 { package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
variable pkg punk::tcltestrun variable pkg punk::tcltestrun
variable version variable version
set version 0.3.0 set version 0.3.1
}] }]
return return

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

@ -8,7 +8,7 @@
# (C) 2026 # (C) 2026
# #
# @@ Meta Begin # @@ Meta Begin
# Application punk::tcltestrun 0.3.0 # Application punk::tcltestrun 0.3.1
# Meta platform tcl # Meta platform tcl
# Meta license BSD # Meta license BSD
# @@ Meta End # @@ 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. #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. # 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. #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. #'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 {**/_build/** **/_build} $tmpath] set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} $tmpath]
set script "" set script ""
foreach sub $subfolders { 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, #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 { package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
variable pkg punk::tcltestrun variable pkg punk::tcltestrun
variable version variable version
set version 0.3.0 set version 0.3.1
}] }]
return return

4
src/vfs/_vfscommon.vfs/modules/test/runtestmodules.tcl
Unescape View File

@ -41,8 +41,8 @@ if {$test_type eq "unbuilt"} {
# add 'package ifneeded' definitions for unbuilt #modpod modules. # 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. #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] #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. #'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 {**/_build/** **/_build} [file normalize $project_root/src/modules]] set subfolders [punk::path::subfolders -recursive -exclude-paths {**/_build/*** **/_mint/***} [file normalize $project_root/src/modules]]
foreach sub $subfolders { 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, #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. #so we use globmatchpath which treats * as matching any characters except path separators.

Write Preview
Loading…
Cancel
Save