Mercurial > octave
diff libinterp/corefcn/strfns.cc @ 24461:0a034d34a686
Modify BIST tests to pass when string_fill_char is not ' '.
* str2double.cc, strfns.cc, cstrcat.m, deblank.m, ostrsplit.m, strcat.m,
strjust.m, strtrim.m, io.tst: Harden BIST tests to pass when string_fill_char
is not the default value of a space.
| author | Rik <rik@octave.org> |
|---|---|
| date | Mon, 25 Dec 2017 19:37:03 -0800 |
| parents | 9fbb5de78ec7 |
| children | 0b65949870e3 |
line wrap: on
line diff
--- a/libinterp/corefcn/strfns.cc Mon Dec 25 08:33:52 2017 -0800 +++ b/libinterp/corefcn/strfns.cc Mon Dec 25 19:37:03 2017 -0800 @@ -158,7 +158,7 @@ %!assert (char (100, [], 100), ["d";" ";"d"]) %!assert (char ({100, [], 100}), ["d";" ";"d"]) %!assert (char ({100,{100, {""}}}), ["d";"d";" "]) -%!assert (char (["a";"be"], {"c", 100}), ["a";"be";"c";"d"]) +%!assert (char (["a ";"be"], {"c", 100}), ["a ";"be";"c ";"d "]) %!assert (char ("a", "bb", "ccc"), ["a "; "bb "; "ccc"]) %!assert (char ([65, 83, 67, 73, 73]), "ASCII") @@ -277,7 +277,7 @@ %!assert (strvcat (100, [], 100), ["d";"d"]) %!assert (strvcat ({100, [], 100}), ["d";"d"]) %!assert (strvcat ({100,{100, {""}}}), ["d";"d"]) -%!assert (strvcat (["a";"be"], {"c", 100}), ["a";"be";"c";"d"]) +%!assert (strvcat (["a ";"be"], {"c", 100}), ["a ";"be";"c ";"d "]) %!assert (strvcat ("a", "bb", "ccc"), ["a "; "bb "; "ccc"]) %!assert (strvcat (), "") */ @@ -894,11 +894,11 @@ %! result = "abc mnop\ndef qrs\nghijkl tuv\n"; %! assert (list_in_columns (input, 20), result); %!test -%! input = ["abc"; "def"; "ghijkl"; "mnop"; "qrs"; "tuv"]; +%! input = char ("abc", "def", "ghijkl", "mnop", "qrs", "tuv"); %! result = "abc mnop \ndef qrs \nghijkl tuv \n"; %! assert (list_in_columns (input, 20), result); %!test -%! input = ["abc"; "def"; "ghijkl"; "mnop"; "qrs"; "tuv"]; +%! input = char ("abc", "def", "ghijkl", "mnop", "qrs", "tuv"); %! result = " abc mnop \n def qrs \n ghijkl tuv \n"; %! assert (list_in_columns (input, 20, " "), result);