Mercurial > octave-nkf

comparison scripts/strings/strcat.m @ 7813:12a68443191c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[mq]: cellstr
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 22 May 2008 22:00:26 +0200
parents 3422f39573b1
children 3a4694d67dbb
comparison
equal deleted inserted replaced
7812:c25094267486 7813:12a68443191c
92 ## 1d 92 ## 1d
93 %!assert(strcat("ab ", "ab "), "abab") 93 %!assert(strcat("ab ", "ab "), "abab")
94 %!assert(strcat({"ab "}, "ab "), {"ab ab"}) 94 %!assert(strcat({"ab "}, "ab "), {"ab ab"})
95 %!assert(strcat("ab ", {"ab "}), {"abab "}) 95 %!assert(strcat("ab ", {"ab "}), {"abab "})
96 %!assert(strcat({"ab "}, {"ab "}), {"ab ab "}) 96 %!assert(strcat({"ab "}, {"ab "}), {"ab ab "})
97 %!assert(strcat("", "ab"), "ab")
98 %!assert(strcat("", {"ab"}, {""}), {"ab"})
97 ## 2d 99 ## 2d
98 %!assert(strcat(["ab ";"cde"], ["ab ";"cde"]), ["abab ";"cdecde"]) 100 %!assert(strcat(["ab ";"cde"], ["ab ";"cde"]), ["abab ";"cdecde"])
99 101
100 ## test for deblanking implied trailing spaces of character input 102 ## test for deblanking implied trailing spaces of character input
101 %!assert((strcmp (strcat ("foo", "bar"), "foobar") && 103 %!assert((strcmp (strcat ("foo", "bar"), "foobar") &&