Tcl Source Code

Check-in [b6e309554c]
Login

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

Overview
Comment:Coverage tests for INST_STR_CONCAT1 byterarray ops.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b6e309554c50dbf4d7b5700607831efd99fe2cf1
User & Date: dgp 2016-10-31 14:17:31.585
Context
2016-11-01
16:18
Refactor to channel all [string cat] functions through a single implementation. check-in: 5be62a44d4 user: dgp tags: trunk
2016-10-31
14:18
merge trunk check-in: acd1d0f9c7 user: dgp tags: dgp-string-cat
14:17
Coverage tests for INST_STR_CONCAT1 byterarray ops. check-in: b6e309554c user: dgp tags: trunk
2016-10-30
16:52
[253ba6e818] Improved description of [variable] behaviour. check-in: c607c5d558 user: dkf tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/binary.test.
2833
2834
2835
2836
2837
2838
2839













2840
2841
2842
2843
2844
2845
2846
    set f [open NUL rb]
    chan configure $f -blocking 0
    set str [read $f 2]
    close $f
    # Append to it
    string length [append str [binary format a* foo]]
} 3














# ----------------------------------------------------------------------
# cleanup

::tcltest::cleanupTests
return








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







2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
    set f [open NUL rb]
    chan configure $f -blocking 0
    set str [read $f 2]
    close $f
    # Append to it
    string length [append str [binary format a* foo]]
} 3

test binary-77.1 {string cat ops on all bytearrays} {
    apply {{a b} {
	return [binary format H* $a][binary format H* $b]
    }} ab cd
} [binary format H* abcd]
test binary-77.2 {string cat ops on all bytearrays} {
    apply {{a b} {
	set one [binary format H* $a]
	return $one[binary format H* $b]
    }} ab cd
} [binary format H* abcd]


# ----------------------------------------------------------------------
# cleanup

::tcltest::cleanupTests
return