Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Coverage tests for INST_STR_CONCAT1 byterarray ops. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b6e309554c50dbf4d7b5700607831efd |
| User & Date: | dgp 2016-10-31 14:17:31 |
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 2847 2848 2849 |
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
# Local Variables:
# mode: tcl
# End:
|
> > > > > > > > > > > > > |
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 2860 2861 2862 |
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
# Local Variables:
# mode: tcl
# End:
|