Mercurial > octave-nkf

changeset 13964:12fa52c6e886

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use char() instead of deprecated setstr() in %!test code. * mappers.cc: Use char() instead of deprecated setstr() in %!test code.
author Rik <octave@nomad.inbox5.com>
date Wed, 30 Nov 2011 10:34:23 -0800
parents 663594b481e5
children 16b3736e534b
files src/mappers.cc
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/src/mappers.cc	Wed Nov 30 10:10:50 2011 -0800
+++ b/src/mappers.cc	Wed Nov 30 10:34:23 2011 -0800
@@ -952,7 +952,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("A"):toascii("Z"))+1) = 1;
 %! result ((toascii("0"):toascii("9"))+1) = 1;
@@ -983,7 +983,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("A"):toascii("Z"))+1) = 1;
 %! result ((toascii("a"):toascii("z"))+1) = 1;
@@ -1012,7 +1012,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = ones (1, 128);
 %! assert(all (isascii (charset) == result));
 
@@ -1040,7 +1040,7 @@
 /*
 %% test/octave.test/string/iscntrl-1.m
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result (1:32) = 1;
 %! result (128) = 1;
@@ -1069,7 +1069,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("0"):toascii("9"))+1) = 1;
 %! assert(all (isdigit (charset) == result));
@@ -1137,7 +1137,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result (34:127) = 1;
 %! assert(all (isgraph (charset) == result));
@@ -1165,7 +1165,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("a"):toascii("z"))+1) = 1;
 %! assert(all (islower (charset) == result));
@@ -1272,7 +1272,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result (33:127) = 1;
 %! if (ispc () && ! isunix ())
@@ -1303,7 +1303,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result (34:48) = 1;
 %! result (59:65) = 1;
@@ -1335,7 +1335,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result (toascii (" \f\n\r\t\v")+1) = 1;
 %! assert(all (isspace (charset) == result));
@@ -1363,7 +1363,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("A"):toascii("Z"))+1) = 1;
 %! assert(all (isupper (charset) == result));
@@ -1391,7 +1391,7 @@
 
 /*
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = zeros (1, 128);
 %! result ((toascii("A"):toascii("F"))+1) = 1;
 %! result ((toascii("0"):toascii("9"))+1) = 1;
@@ -1917,7 +1917,7 @@
 %!  assert(tolower(a)(3,3,3,3), "d");
 
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = charset;
 %! result ((toascii("A"):toascii("Z"))+1) \
 %! = result ((toascii("a"):toascii("z"))+1);
@@ -1967,7 +1967,7 @@
 %!  a(3,3,3,3) = "d";
 %!  assert(toupper(a)(3,3,3,3), "D");
 %!test
-%! charset = setstr (0:127);
+%! charset = char (0:127);
 %! result = charset;
 %! result ((toascii("a"):toascii("z"))+1) \
 %! = result ((toascii("A"):toascii("Z"))+1);