# HG changeset patch
# User jwe
# Date 856678254 0
# Node ID 878e5fd30580efd0be8d7917bdbd3a80c591403d
# Parent  e03bf13a6aca80180ce7e0235f139ea93116b10a
[project @ 1997-02-23 06:10:49 by jwe]

diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-1.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-10.m
--- /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 ()
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-11.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-2.m
--- /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])
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-3.m
--- /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 ([])
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-4.m
--- /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])
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-5.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-6.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-7.m
--- /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"])
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-8.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/is_struct-9.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct.exp
--- 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
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-1.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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-2.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-3.m
--- /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 ()
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-4.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-5.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_contains-6.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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_elements-1.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_elements-2.m
--- /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")
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_elements-3.m
--- /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 ()
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_elements-4.m
--- /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)
diff -r e03bf13a6aca -r 878e5fd30580 test/octave.test/struct/struct_elements-5.m
--- /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)