# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1318125293 25200
# Node ID b68b354a39c2ad4067b5c63ae9f86a868a8c34a9
# Parent  29a4d3b4211ebc7735c3956c19c95c9e73f6a7ba
strtrunc.m: Add %!test accidentally deleted in changeset 29a4d3b4211e

* strtrunc.m: Add %!test accidentally deleted in changeset 29a4d3b4211e

diff --git a/scripts/strings/strtrunc.m b/scripts/strings/strtrunc.m
--- a/scripts/strings/strtrunc.m
+++ b/scripts/strings/strtrunc.m
@@ -52,6 +52,7 @@
 %!assert (strtrunc("abcdefg", 10), "abcdefg");
 %!assert (strtrunc(char ("abcdef", "fedcba"), 3), ["abc"; "fed"]);
 %!assert (strtrunc({"abcdef", "fedcba"}, 3), {"abc", "fed"});
+%!assert (strtrunc({"1", "21", "321"}, 1), {"1", "2", "3"})
 %!test
 %! cstr = {"line1"; ["line2"; "line3"]; "line4"};
 %! y = strtrunc (cstr, 4);