# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1310853935 14400
# Node ID a52b4e9f45e39ee2f90e035d9898345e56a05151
# Parent  69c63a234b142f7f02e4f685ce0223f3935219a3
codesprint: new tests for pt-mat.cc

* pt-mat.cc (Fstring_fill_char): New tests.

diff --git a/src/pt-mat.cc b/src/pt-mat.cc
--- a/src/pt-mat.cc
+++ b/src/pt-mat.cc
@@ -1146,3 +1146,15 @@
 {
   return SET_INTERNAL_VARIABLE (string_fill_char);
 }
+
+/*
+%!error (string_fill_char (1, 2));
+%!test
+%! orig_val = string_fill_char ();
+%! old_val = string_fill_char ("X");
+%! assert (orig_val, old_val);
+%! assert (string_fill_char (), "X");
+%! assert (["these"; "are"; "strings"], ["theseXX"; "areXXXX"; "strings"]);
+%! string_fill_char (orig_val);
+%! assert (string_fill_char (), orig_val);
+*/