Tcl Library Source Code

Check-in [c6a7152cd0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added testcase demonstrating issue and fix
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-b01462dff7
Files: files | file ages | folders
SHA3-256: c6a7152cd0daf637017237abbae4494b223229c714ebd8d400622ce2560ec645
User & Date: aku 2025-01-14 22:20:52.968
Context
2025-01-15
19:49
fix: ticket b01462dff7, integrated from branch. version bumped. testsuite extended. doc regenerated. check-in: 870b1002a4 user: aku tags: trunk, main
2025-01-14
22:20
Added testcase demonstrating issue and fix Closed-Leaf check-in: c6a7152cd0 user: aku tags: bug-b01462dff7
2025-01-13
20:20
Bump package version. check-in: 6f3a4044b6 user: aku tags: bug-b01462dff7
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/tar/tar.test.
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136












137
138
139
} -body {
    string trim [tar::get $tarfile 02]
} -cleanup {
    cleanup-tkt-9f4c0e3e95
    unset tarfile
} -result {zero-two}

test tar-tkt-9f4c0e3e95-1.1 {Ticket 9f4c0e3e95, B, } -setup {
    set tarfile [setup-tkt-9f4c0e3e95]
} -body {
    tar::get $tarfile 0b10
} -cleanup {
    cleanup-tkt-9f4c0e3e95
    unset tarfile
} -returnCodes error -result {Tar "tartest/t.tar": File "0b10" not found}













# -------------------------------------------------------------------------
testsuiteCleanup







|







>
>
>
>
>
>
>
>
>
>
>
>



122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
} -body {
    string trim [tar::get $tarfile 02]
} -cleanup {
    cleanup-tkt-9f4c0e3e95
    unset tarfile
} -result {zero-two}

test tar-tkt-9f4c0e3e95-1.1 {Ticket 9f4c0e3e95, B} -setup {
    set tarfile [setup-tkt-9f4c0e3e95]
} -body {
    tar::get $tarfile 0b10
} -cleanup {
    cleanup-tkt-9f4c0e3e95
    unset tarfile
} -returnCodes error -result {Tar "tartest/t.tar": File "0b10" not found}

# -------------------------------------------------------------------------

test tar-tkt-b01462dff7-1.0 {Ticket b01462dff7} -setup {
    set tarfile [localPath tests/b01462dff7.tar]
} -body {
    tar::untar $tarfile ; set _ "" ;# squash and ignore untar result
} -cleanup {
    # remove the extracted files
    file delete cp.html fields.c grammar.lsp sum xargs.1
    unset tarfile _
} -result {}

# -------------------------------------------------------------------------
testsuiteCleanup
Added modules/tar/tests/b01462dff7.tar.

cannot compute difference between binary files