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: |
b6e309554c50dbf4d7b5700607831efd |
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
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 |
︙ | ︙ |