test suites: lib-tier package deps probed to constraints (json, sha1, struct::stack)
Seven suites hard-required packages that only a lib-tier-provisioned
runner interpreter supplies (the suite-built/runtime-store tclsh carry
tcllib in their own library tree; runtests deliberately propagates the
runner's [info library] into the child auto_path). On unprovisioned
hosts (e.g. a PATH tclsh86 without tcllib) each such file died
wholesale: load-time requires errored the file (pathcmd,
argparsingtest_compare, maketcllibfetch, offsetstyle - the struct::stack
cases via vendored tomlish's own require) and scriptwrap's lazy
'package require tomlish' (_read_scriptset_wrap_tomlfile) errored tests
mid-body (runtimecmd_roundtrip, multishell sentinel, dtplite checkfile
tests). All are now feature-probe constraints in the established
have_tclcoredocs style:
- pathcmd.test: jsonAvailable probe wired (was hardcoded 1 and attached
to no test) gating the json round-trip test
- argparsingtest_compare.test: jsonAvailable gating compare_json
- maketcllibfetch.test: have_sha1 gating the artifact+sha1sums+server
fixture portion (the config/env scaffolding still builds, so the
trustgate and no-config tests run) and the file:// mirror test
- offsetstyle.test: have_tomlish gating the build-baseline test (its
G-165 exemption logic reads mapvfs.toml); the six probe tests keep
running, the file-level mapvfs read already catch-degrades
- runtimecmd_roundtrip.test / multishell.test: have_tomlish gating the
wrap tests (multishell's wrapok fixture already catch-degrades; the
sentinel keeps failing loudly on provisioned runners)
- dtplite.test: tomlish folded into the existing havescriptwrap probe
Verified: provisioned runners unchanged (86ts/90s green, only
pre-existing isunix/parser-availability skips); PATH mingw tclsh86
(json-less, struct::stack-less) runs all seven files with visible
constraint skips and zero failures; sha1-less behaviour proven via a
package-unknown-cleared harness (trustgate+no-config pass, 6 fixture
skips); testbody_lint clean.
Assisted-by: harness=claude; primary-model=claude-fable-5; api-location=anthropic.com
test compare_json {Test that compare -format json round-trips with style-keyed unsupported and first_call structure} -body {
test compare_json {Test that compare -format json round-trips with style-keyed unsupported and first_call structure} -constraints jsonAvailable -body {
set r [argparsingtest::compare -style tkstyle -iterations 20 -parsers {manual_switch cmdline_typed} -format json]
set ok 1
if {[catch {set d [json::json2dict $r]} _err]} { set ok "json parse: $_err" }
#Characterization of the punk MULTISHELL polyglot build machinery
#(punk::mix::commandset::scriptwrap::multishell + checkfile) - added 2026-07-10 at the
#user's direction: the polyglot technique is deliberately maintained despite its
@ -43,6 +50,7 @@ namespace eval ::testspace {
}
test scriptwrap_runtime_cmd_roundtrip_no_drift {re-wrapping the punk-runtime scriptset from src/scriptapps/bin reproduces the committed bin/punk-runtime.cmd byte for byte - the artifact is in sync with its sources and un-hand-edited}\
test pathcmd-json-1.2 {-return json is ansi-free and round-trips the dict} -setup setup_fixture -cleanup cleanup_fixture -body {
test pathcmd-json-1.2 {-return json is ansi-free and round-trips the dict} -constraints jsonAvailable -setup setup_fixture -cleanup cleanup_fixture -body {
test kit_offsetstyle_build_baseline {every assembled kit image in src/_bake probes archive or none - never file; kits declaring the offsetstyle="file" opt-in (G-165) are exempt and must probe file} -constraints {builtkitsavailable} -body {
test kit_offsetstyle_build_baseline {every assembled kit image in src/_bake probes archive or none - never file; kits declaring the offsetstyle="file" opt-in (G-165) are exempt and must probe file} -constraints {builtkitsavailable have_tomlish} -body {
#shield the runs from ambient state, then point the seams at the fixture
#config + packages tier (restored at end of file)
foreach v {PUNKBIN_URL PUNK_LIBFETCH_CONFIG PUNK_LIBFETCH_PACKAGES} {
@ -419,7 +432,9 @@ namespace eval ::testspace {
set ::env(PUNK_LIBFETCH_CONFIG) $::testspace::configfile
} -result {timedout 0 exitcode 0 noop_stated 1}
test maketcl_libfetch_file_origin {a consented file:// mirror origin fetches and materializes via the native copy transport (no server process involved)} -constraints {punkexeavailable} -setup {
#2026-08-09 Agent-Updated: have_sha1 added - no server involved, but the file:// mirror
#serves the artifact + sha1sums fixture built under the have_sha1 gate
test maketcl_libfetch_file_origin {a consented file:// mirror origin fetches and materializes via the native copy transport (no server process involved)} -constraints {punkexeavailable have_sha1} -setup {
