Mercurial > octave-nkf

changeset 2737:38463e268d55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-25 05:23:42 by jwe]
author jwe
date Tue, 25 Feb 1997 05:23:54 +0000
parents b02d27f0ed57
children a243d3410229
files test/octave.test/string/isalnum-1.m test/octave.test/string/isalnum-2.m test/octave.test/string/isalnum-3.m test/octave.test/string/isalpha-1.m test/octave.test/string/isalpha-2.m test/octave.test/string/isalpha-3.m test/octave.test/string/isascii-1.m test/octave.test/string/isascii-2.m test/octave.test/string/isascii-3.m test/octave.test/string/iscntrl-1.m test/octave.test/string/iscntrl-2.m test/octave.test/string/iscntrl-3.m test/octave.test/string/isdigit-1.m test/octave.test/string/isdigit-2.m test/octave.test/string/isdigit-3.m test/octave.test/string/isgraph-1.m test/octave.test/string/isgraph-2.m test/octave.test/string/isgraph-3.m test/octave.test/string/islower-1.m test/octave.test/string/islower-2.m test/octave.test/string/islower-3.m test/octave.test/string/isprint-2.m test/octave.test/string/isprint-3.m test/octave.test/string/ispunct-1.m test/octave.test/string/ispunct-2.m test/octave.test/string/ispunct-3.m test/octave.test/string/isspace-1.m test/octave.test/string/isspace-2.m test/octave.test/string/isspace-3.m test/octave.test/string/isstr-1.m test/octave.test/string/isstr-10.m test/octave.test/string/isstr-11.m test/octave.test/string/isstr-2.m test/octave.test/string/isstr-3.m test/octave.test/string/isstr-4.m test/octave.test/string/isstr-5.m test/octave.test/string/isstr-6.m test/octave.test/string/isstr-7.m test/octave.test/string/isstr-8.m test/octave.test/string/isstr-9.m test/octave.test/string/isupper-1.m test/octave.test/string/isupper-2.m test/octave.test/string/isupper-3.m test/octave.test/string/isxdigit-1.m test/octave.test/string/isxdigit-2.m test/octave.test/string/isxdigit-3.m test/octave.test/string/string.exp test/octave.test/string/string_fill_char-1.m test/octave.test/string/string_fill_char-2.m
diffstat 49 files changed, 268 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalnum-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,9 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("A"):toascii("Z"))+1) = 1;
+result ((toascii("0"):toascii("9"))+1) = 1;
+result ((toascii("a"):toascii("z"))+1) = 1;
+
+all (isalnum (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalnum-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isalnum (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalnum-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isalnum ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalpha-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,8 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("A"):toascii("Z"))+1) = 1;
+result ((toascii("a"):toascii("z"))+1) = 1;
+
+all (isalpha (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalpha-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isalpha (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isalpha-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isalpha ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isascii-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,5 @@
+charset = setstr (0:127);
+
+result = ones (1, 128);
+
+all (isascii (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isascii-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isascii (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isascii-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isascii ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/iscntrl-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result (1:32) = 1;
+
+all (iscntrl (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/iscntrl-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+iscntrl (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/iscntrl-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+iscntrl ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isdigit-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("0"):toascii("9"))+1) = 1;
+
+all (isdigit (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isdigit-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isdigit (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isdigit-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isdigit ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isgraph-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result (34:127) = 1;
+
+all (isgraph (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isgraph-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isgraph (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isgraph-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isgraph ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/islower-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("a"):toascii("z"))+1) = 1;
+
+all (islower (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/islower-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+islower (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/islower-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+islower ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isprint-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isprint (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isprint-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isprint ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/ispunct-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,10 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result (34:48) = 1;
+result (59:65) = 1;
+result (92:97) = 1;
+result (124:127) = 1;
+
+all (ispunct (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/ispunct-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+ispunct (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/ispunct-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+ispunct ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isspace-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result (toascii (" \f\n\r\t\v")+1) = 1;
+
+all (isspace (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isspace-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isspace (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isspace-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isspace ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr (1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-10.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-11.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ("test", 1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ([1, 2])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ([])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-4.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ([1, 2; 3, 4])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-5.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ("")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-6.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ("t")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-7.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr ("test")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-8.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isstr (["test"; "ing"])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isstr-9.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = "test";
+isstr (s)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isupper-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,7 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("A"):toascii("Z"))+1) = 1;
+
+all (isupper (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isupper-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isupper (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isupper-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isupper ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isxdigit-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,9 @@
+charset = setstr (0:127);
+
+result = zeros (1, 128);
+
+result ((toascii("A"):toascii("F"))+1) = 1;
+result ((toascii("0"):toascii("9"))+1) = 1;
+result ((toascii("a"):toascii("f"))+1) = 1;
+
+all (isxdigit (charset) == result)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isxdigit-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isxdigit (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/isxdigit-3.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+isxdigit ()
--- a/test/octave.test/string/string.exp	Tue Feb 25 04:41:22 1997 +0000
+++ b/test/octave.test/string/string.exp	Tue Feb 25 05:23:54 1997 +0000
@@ -117,19 +117,152 @@
 # dec2hex
 # hex2dec
 # str2num
+# undo_string_escapes
+
 # toascii
 # tolower
 # toupper
-# undo_string_escapes
-# isalnum
-# isalpha
-# isascii
-# iscntrl
-# isdigit
-# isgraph
-# islower
-# isprint
-# ispunct
-# isspace
-# isupper
-# isxdigit
+
+set test isalnum-1
+set prog_output "ans = 1"
+do_test isalnum-1.m
+
+set test isalnum-2
+set prog_output "error:.*"
+do_test isalnum-2.m
+
+set test isalnum-3
+set prog_output "error:.*"
+do_test isalnum-3.m
+
+set test isalpha-1
+set prog_output "ans = 1"
+do_test isalpha-1.m
+
+set test isalpha-2
+set prog_output "error:.*"
+do_test isalpha-2.m
+
+set test isalpha-3
+set prog_output "error:.*"
+do_test isalpha-3.m
+
+set test isascii-1
+set prog_output "ans = 1"
+do_test isascii-1.m
+
+set test isascii-2
+set prog_output "error:.*"
+do_test isascii-2.m
+
+set test isascii-3
+set prog_output "error:.*"
+do_test isascii-3.m
+
+set test iscntrl-1
+set prog_output "ans = 1"
+do_test iscntrl-1.m
+
+set test iscntrl-2
+set prog_output "error:.*"
+do_test iscntrl-2.m
+
+set test iscntrl-3
+set prog_output "error:.*"
+do_test iscntrl-3.m
+
+set test isdigit-1
+set prog_output "ans = 1"
+do_test isdigit-1.m
+
+set test isdigit-2
+set prog_output "error:.*"
+do_test isdigit-2.m
+
+set test isdigit-3
+set prog_output "error:.*"
+do_test isdigit-3.m
+
+set test isgraph-1
+set prog_output "ans = 1"
+do_test isgraph-1.m
+
+set test isgraph-2
+set prog_output "error:.*"
+do_test isgraph-2.m
+
+set test isgraph-3
+set prog_output "error:.*"
+do_test isgraph-3.m
+
+set test islower-1
+set prog_output "ans = 1"
+do_test islower-1.m
+
+set test islower-2
+set prog_output "error:.*"
+do_test islower-2.m
+
+set test islower-3
+set prog_output "error:.*"
+do_test islower-3.m
+
+set test isprint-1
+set prog_output "ans = 1"
+do_test isprint-1.m
+
+set test isprint-2
+set prog_output "error:.*"
+do_test isprint-2.m
+
+set test isprint-3
+set prog_output "error:.*"
+do_test isprint-3.m
+
+set test ispunct-1
+set prog_output "ans = 1"
+do_test ispunct-1.m
+
+set test ispunct-2
+set prog_output "error:.*"
+do_test ispunct-2.m
+
+set test ispunct-3
+set prog_output "error:.*"
+do_test ispunct-3.m
+
+set test isspace-1
+set prog_output "ans = 1"
+do_test isspace-1.m
+
+set test isspace-2
+set prog_output "error:.*"
+do_test isspace-2.m
+
+set test isspace-3
+set prog_output "error:.*"
+do_test isspace-3.m
+
+set test isupper-1
+set prog_output "ans = 1"
+do_test isupper-1.m
+
+set test isupper-2
+set prog_output "error:.*"
+do_test isupper-2.m
+
+set test isupper-3
+set prog_output "error:.*"
+do_test isupper-3.m
+
+set test isxdigit-1
+set prog_output ""ans = 1
+do_test isxdigit-1.m
+
+set test isxdigit-2
+set prog_output ""error:.*
+do_test isxdigit-2.m
+
+set test isxdigit-3
+set prog_output ""error:.*
+do_test isxdigit-3.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/string_fill_char-1.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,2 @@
+string_fill_char = "X";
+all (all (["these"; "are"; "strings"] == ["theseXX"; "areXXXX"; "strings"]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/string/string_fill_char-2.m	Tue Feb 25 05:23:54 1997 +0000
@@ -0,0 +1,1 @@
+all (all (["these"; "are"; "strings"] == ["these  "; "are    "; "strings"]))