Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add test to detect zipfs build errors |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | apn-build-info-nozipfs |
| Files: | files | file ages | folders |
| SHA3-256: |
011bd6147b19e73dc45fc523d672079a |
| User & Date: | apnadkarni 2025-08-07 17:04:11.978 |
Context
|
2025-08-07
| ||
| 17:04 | Add test to detect zipfs build errors Leaf check-in: 011bd6147b user: apnadkarni tags: apn-build-info-nozipfs | |
| 16:40 | Add no-zipfs tag to builds check-in: 14ca5dfbd9 user: apnadkarni tags: apn-build-info-nozipfs | |
Changes
Changes to tests/zipfs.test.
| ︙ | ︙ | |||
27 28 29 30 31 32 33 |
set tmpdir [file join $CWD tmp]
file mkdir $tmpdir
test zipfs-0.1 {zipfs basics} -constraints zipfs -body {
expr {${ziproot} in [file volumes]}
} -result 1
| > | > > > > > < < | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
set tmpdir [file join $CWD tmp]
file mkdir $tmpdir
test zipfs-0.1 {zipfs basics} -constraints zipfs -body {
expr {${ziproot} in [file volumes]}
} -result 1
if {[::tcl::build-info no-zipfs]} {
# Tcl library is not embedded in zipfs volume
set zipLibTop ""
} else {
testConstraint zipfslib 1
if {![string match [zipfs root]* $tcl_library]} {
error "Build indicates embedded tcl library in zipfs but tcl_library points to $tcl_library"
}
set zipLibTop [file tail [file join {*}[lrange [file split $tcl_library] 0 1]]]
}
test zipfs-0.2 {zipfs basics} -constraints zipfslib -body {
string match ${ziproot}* $tcl_library
} -result 1
test zipfs-0.3 {zipfs basics: glob} -constraints zipfslib -setup {
set pwd [pwd]
|
| ︙ | ︙ |