Mercurial > octave-nkf

diff test/octave.test/string/toupper-1.m @ 2738:a243d3410229

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-25 06:56:52 by jwe]
author jwe
date Tue, 25 Feb 1997 06:57:32 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/toupper-1.m	Tue Feb 25 06:57:32 1997 +0000
@@ -0,0 +1,8 @@
+charset = setstr (0:127);
+
+result = charset;
+
+result ((toascii("a"):toascii("z"))+1) \
+    = result ((toascii("A"):toascii("Z"))+1);
+
+all (toupper (charset) == result)