changeset 2725:878e5fd30580

[project @ 1997-02-23 06:10:49 by jwe]
author jwe
date Sun, 23 Feb 1997 06:10:54 +0000
parents e03bf13a6aca
children ea5b2a3dbb26
files test/octave.test/struct/is_struct-1.m test/octave.test/struct/is_struct-10.m test/octave.test/struct/is_struct-11.m test/octave.test/struct/is_struct-2.m test/octave.test/struct/is_struct-3.m test/octave.test/struct/is_struct-4.m test/octave.test/struct/is_struct-5.m test/octave.test/struct/is_struct-6.m test/octave.test/struct/is_struct-7.m test/octave.test/struct/is_struct-8.m test/octave.test/struct/is_struct-9.m test/octave.test/struct/struct.exp test/octave.test/struct/struct_contains-1.m test/octave.test/struct/struct_contains-2.m test/octave.test/struct/struct_contains-3.m test/octave.test/struct/struct_contains-4.m test/octave.test/struct/struct_contains-5.m test/octave.test/struct/struct_contains-6.m test/octave.test/struct/struct_elements-1.m test/octave.test/struct/struct_elements-2.m test/octave.test/struct/struct_elements-3.m test/octave.test/struct/struct_elements-4.m test/octave.test/struct/struct_elements-5.m
diffstat 23 files changed, 122 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-1.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct (1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-10.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-11.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = 1;
+is_struct (s, 1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-2.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ([1, 2])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-3.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ([])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-4.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ([1, 2; 3, 4])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-5.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ("t")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-6.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct ("test")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-7.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+is_struct (["test"; "ing"])
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-8.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = 1;
+is_struct (s)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/is_struct-9.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a.b = 1;
+is_struct (s.a)
--- a/test/octave.test/struct/struct.exp	Sat Feb 22 22:18:53 1997 +0000
+++ b/test/octave.test/struct/struct.exp	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,87 @@
+set test is_struct-1
+set prog_output "ans = 0"
+do_test is_struct-1.m
+
+set test is_struct-2
+set prog_output "ans = 0"
+do_test is_struct-2.m
+
+set test is_struct-3
+set prog_output "ans = 0"
+do_test is_struct-3.m
+
+set test is_struct-4
+set prog_output "ans = 0"
+do_test is_struct-4.m
+
+set test is_struct-5
+set prog_output "ans = 0"
+do_test is_struct-5.m
+
+set test is_struct-6
+set prog_output "ans = 0"
+do_test is_struct-6.m
+
+set test is_struct-7
+set prog_output "ans = 0"
+do_test is_struct-7.m
+
+set test is_struct-8
+set prog_output "ans = 1"
+do_test is_struct-8.m
+
+set test is_struct-9
+set prog_output "ans = 1"
+do_test is_struct-9.m
+
+set test is_struct-10
+set prog_output "\n... is_struct:.*"
+do_test is_struct-10.m
+
+set test is_struct-11
+set prog_output "\n... is_struct:.*"
+do_test is_struct-11.m
+
+set test struct_contains-1
+set prog_output "ans = 1"
+do_test struct_contains-1.m
+
+set test struct_contains-2
+set prog_output "ans = 0"
+do_test struct_contains-2.m
+
+set test struct_contains-3
+set prog_output "\n... struct_contains:.*"
+do_test struct_contains-3.m
+
+set test struct_contains-4
+set prog_output "\n... struct_contains:.*"
+do_test struct_contains-4.m
+
+set test struct_contains-5
+set prog_output "\n... struct_contains:.*"
+do_test struct_contains-5.m
+
+set test struct_contains-6
+set prog_output "\n... struct_contains:.*"
+do_test struct_contains-6.m
+
+set test struct_elements-1
+set prog_output "ans = 1"
+do_test struct_elements-1.m
+
+set test struct_elements-2
+set prog_output "ans = 1"
+do_test struct_elements-2.m
+
+set test struct_elements-3
+set prog_output "\n... struct_elements:.*"
+do_test struct_elements-3.m
+
+set test struct_elements-4
+set prog_output "\n... struct_elements:.*"
+do_test struct_elements-4.m
+
+set test struct_elements-5
+set prog_output "error:.*"
+do_test struct_elements-5.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-1.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,3 @@
+s.aaa = 1;
+s.a = 2;
+struct_contains (s, "a")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-2.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,3 @@
+s.aaa = 1;
+s.a = 2;
+struct_contains (s, "b")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-3.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+struct_contains ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-4.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,3 @@
+s.aaa = 1;
+s.a = 2;
+struct_contains (s, "a", 3)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-5.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+struct_contains (1, "m")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_contains-6.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = 2;
+struct_contains (s, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_elements-1.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = 1;
+strcmp (struct_elements (s), "a")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_elements-2.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a.b = 1;
+strcmp (struct_elements (s.a), "b")
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_elements-3.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+struct_elements ()
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_elements-4.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,2 @@
+s.a = 1;
+struct_elements (s, 1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/struct/struct_elements-5.m	Sun Feb 23 06:10:54 1997 +0000
@@ -0,0 +1,1 @@
+struct_elements (1)