# HG changeset patch
# User jwe
# Date 859411619 0
# Node ID 97c3d07bcf38e22182b85cdb77858442f73128eb
# Parent  cf388123941a20f9d4394205746fc2e9f2daa517
[project @ 1997-03-26 21:26:54 by jwe]

diff --git a/test/octave.test/zero-one/tt/m-1.m b/test/octave.test/zero-one/tt/m-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+isempty (a(logical ([0,0,0,0])))
diff --git a/test/octave.test/zero-one/tt/m-10.m b/test/octave.test/zero-one/tt/m-10.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-10.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),logical ([1,1])) == [7,6])
diff --git a/test/octave.test/zero-one/tt/m-11.m b/test/octave.test/zero-one/tt/m-11.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-11.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(2:-1:1,logical (0:1)) == [6;8])
diff --git a/test/octave.test/zero-one/tt/m-12.m b/test/octave.test/zero-one/tt/m-12.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-12.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(2:-1:1,logical ([0,1])) == [6;8])
diff --git a/test/octave.test/zero-one/tt/m-13.m b/test/octave.test/zero-one/tt/m-13.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-13.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))
diff --git a/test/octave.test/zero-one/tt/m-14.m b/test/octave.test/zero-one/tt/m-14.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-14.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),logical (0:1)) == 6
diff --git a/test/octave.test/zero-one/tt/m-15.m b/test/octave.test/zero-one/tt/m-15.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-15.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),2:-1:1) == [6,7])
diff --git a/test/octave.test/zero-one/tt/m-16.m b/test/octave.test/zero-one/tt/m-16.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-16.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),logical ([0,1])) == 6
diff --git a/test/octave.test/zero-one/tt/m-17.m b/test/octave.test/zero-one/tt/m-17.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-17.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),[2,1]) == [6,7])
diff --git a/test/octave.test/zero-one/tt/m-18.m b/test/octave.test/zero-one/tt/m-18.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-18.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),:) == [7,6])
diff --git a/test/octave.test/zero-one/tt/m-19.m b/test/octave.test/zero-one/tt/m-19.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-19.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),1) == 7
diff --git a/test/octave.test/zero-one/tt/m-2.m b/test/octave.test/zero-one/tt/m-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1,1,1])) == [9;7;8;6])
diff --git a/test/octave.test/zero-one/tt/m-20.m b/test/octave.test/zero-one/tt/m-20.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-20.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),logical ([1,1])) == [7,6])
diff --git a/test/octave.test/zero-one/tt/m-21.m b/test/octave.test/zero-one/tt/m-21.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-21.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a([2,1],logical (0:1)) == [6;8])
diff --git a/test/octave.test/zero-one/tt/m-22.m b/test/octave.test/zero-one/tt/m-22.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-22.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a([2,1],logical ([0,1])) == [6;8])
diff --git a/test/octave.test/zero-one/tt/m-23.m b/test/octave.test/zero-one/tt/m-23.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-23.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))
diff --git a/test/octave.test/zero-one/tt/m-24.m b/test/octave.test/zero-one/tt/m-24.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-24.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(:,logical (0:1)) == [8;6])
diff --git a/test/octave.test/zero-one/tt/m-25.m b/test/octave.test/zero-one/tt/m-25.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-25.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(:,logical ([0,1])) == [8;6])
diff --git a/test/octave.test/zero-one/tt/m-26.m b/test/octave.test/zero-one/tt/m-26.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-26.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(:,logical ([1,1])) == [9,8;7,6]))
diff --git a/test/octave.test/zero-one/tt/m-27.m b/test/octave.test/zero-one/tt/m-27.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-27.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(1,logical (0:1)) == 8
diff --git a/test/octave.test/zero-one/tt/m-28.m b/test/octave.test/zero-one/tt/m-28.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-28.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(1,logical ([0,1])) == 8
diff --git a/test/octave.test/zero-one/tt/m-29.m b/test/octave.test/zero-one/tt/m-29.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-29.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(1,logical ([1,1])) == [9,8])
diff --git a/test/octave.test/zero-one/tt/m-3.m b/test/octave.test/zero-one/tt/m-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1,1,0])) == [7;8])
diff --git a/test/octave.test/zero-one/tt/m-30.m b/test/octave.test/zero-one/tt/m-30.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-30.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),logical (0:1)) == [8;6])
diff --git a/test/octave.test/zero-one/tt/m-31.m b/test/octave.test/zero-one/tt/m-31.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-31.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))
diff --git a/test/octave.test/zero-one/tt/m-32.m b/test/octave.test/zero-one/tt/m-32.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-32.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),logical ([0,1])) == [8;6])
diff --git a/test/octave.test/zero-one/tt/m-33.m b/test/octave.test/zero-one/tt/m-33.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-33.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))
diff --git a/test/octave.test/zero-one/tt/m-34.m b/test/octave.test/zero-one/tt/m-34.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-34.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),:) == [9,8;7,6]))
diff --git a/test/octave.test/zero-one/tt/m-35.m b/test/octave.test/zero-one/tt/m-35.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-35.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),1) == [9;7])
diff --git a/test/octave.test/zero-one/tt/m-36.m b/test/octave.test/zero-one/tt/m-36.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-36.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))
diff --git a/test/octave.test/zero-one/tt/m-4.m b/test/octave.test/zero-one/tt/m-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),logical (0:1)) == 6
diff --git a/test/octave.test/zero-one/tt/m-5.m b/test/octave.test/zero-one/tt/m-5.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-5.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),2:-1:1) == [6,7])
diff --git a/test/octave.test/zero-one/tt/m-6.m b/test/octave.test/zero-one/tt/m-6.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-6.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),logical ([0,1])) == 6
diff --git a/test/octave.test/zero-one/tt/m-7.m b/test/octave.test/zero-one/tt/m-7.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-7.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),[2,1]) == [6,7])
diff --git a/test/octave.test/zero-one/tt/m-8.m b/test/octave.test/zero-one/tt/m-8.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-8.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),:) == [7,6])
diff --git a/test/octave.test/zero-one/tt/m-9.m b/test/octave.test/zero-one/tt/m-9.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/m-9.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),1) == 7
diff --git a/test/octave.test/zero-one/tt/s-1.m b/test/octave.test/zero-one/tt/s-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/s-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [];
+a(logical (0))
diff --git a/test/octave.test/zero-one/tt/s-2.m b/test/octave.test/zero-one/tt/s-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/s-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = 2;
+a(logical (1)) == 2
diff --git a/test/octave.test/zero-one/tt/s-3.m b/test/octave.test/zero-one/tt/s-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/s-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = 2;
+a(logical (1)) == 2
diff --git a/test/octave.test/zero-one/tt/s-4.m b/test/octave.test/zero-one/tt/s-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/s-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = 2;
+all (a(logical ([1,1])) == [2;2])
diff --git a/test/octave.test/zero-one/tt/v-1.m b/test/octave.test/zero-one/tt/v-1.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/v-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+isempty (a(logical ([0,0,0,0])))
diff --git a/test/octave.test/zero-one/tt/v-2.m b/test/octave.test/zero-one/tt/v-2.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/v-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([1,1,1,1])) == [9,8,7,6])
diff --git a/test/octave.test/zero-one/tt/v-3.m b/test/octave.test/zero-one/tt/v-3.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/v-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([0,1,1,0])) == [8,7])
diff --git a/test/octave.test/zero-one/tt/v-4.m b/test/octave.test/zero-one/tt/v-4.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/v-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 1;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([1,1])) == [9,9])
diff --git a/test/octave.test/zero-one/tt/zero-one.exp b/test/octave.test/zero-one/tt/zero-one.exp
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tt/zero-one.exp
@@ -0,0 +1,187 @@
+## Tests with:
+##
+## prefer_zero_one_indexing == "true"
+## prefer_column_vectors    == "true"
+## do_fortran_indexing      == "true"
+
+## scalar tests
+
+set test zero-one-ttt-s-1
+set prog_output "error:.*"
+do_test s-1.m
+
+set test zero-one-ttt-s-2
+set prog_output "ans = *1"
+do_test s-2.m
+
+set test zero-one-ttt-s-3
+set prog_output "ans = *1"
+do_test s-3.m
+
+set test zero-one-ttt-s-4
+set prog_output "ans = *1"
+do_test s-4.m
+
+## vector tests
+
+set test zero-one-ttt-v-1
+set prog_output "ans = *1"
+do_test v-1.m
+
+set test zero-one-ttt-v-2
+set prog_output "ans = *1"
+do_test v-2.m
+
+set test zero-one-ttt-v-3
+set prog_output "ans = *1"
+do_test v-3.m
+
+set test zero-one-ttt-v-4
+set prog_output "ans = *1"
+do_test v-4.m
+
+## matrix tests
+
+set test zero-one-ttt-m-1
+set prog_output "ans = *1"
+do_test m-1.m
+
+set test zero-one-ttt-m-2
+set prog_output "ans = *1"
+do_test m-2.m
+
+set test zero-one-ttt-m-3
+set prog_output "ans = *1"
+do_test m-3.m
+
+set test zero-one-ttt-m-4
+set prog_output "ans = *1"
+do_test m-4.m
+
+set test zero-one-ttt-m-5
+set prog_output "ans = *1"
+do_test m-5.m
+
+set test zero-one-ttt-m-6
+set prog_output "ans = *1"
+do_test m-6.m
+
+set test zero-one-ttt-m-7
+set prog_output "ans = *1"
+do_test m-7.m
+
+set test zero-one-ttt-m-8
+set prog_output "ans = *1"
+do_test m-8.m
+
+set test zero-one-ttt-m-9
+set prog_output "ans = *1"
+do_test m-9.m
+
+set test zero-one-ttt-m-10
+set prog_output "ans = *1"
+do_test m-10.m
+
+set test zero-one-ttt-m-11
+set prog_output "ans = *1"
+do_test m-11.m
+
+set test zero-one-ttt-m-12
+set prog_output "ans = *1"
+do_test m-12.m
+
+set test zero-one-ttt-m-13
+set prog_output "ans = *1"
+do_test m-13.m
+
+set test zero-one-ttt-m-14
+set prog_output "ans = *1"
+do_test m-14.m
+
+set test zero-one-ttt-m-15
+set prog_output "ans = *1"
+do_test m-15.m
+
+set test zero-one-ttt-m-16
+set prog_output "ans = *1"
+do_test m-16.m
+
+set test zero-one-ttt-m-17
+set prog_output "ans = *1"
+do_test m-17.m
+
+set test zero-one-ttt-m-18
+set prog_output "ans = *1"
+do_test m-18.m
+
+set test zero-one-ttt-m-19
+set prog_output "ans = *1"
+do_test m-19.m
+
+set test zero-one-ttt-m-20
+set prog_output "ans = *1"
+do_test m-20.m
+
+set test zero-one-ttt-m-21
+set prog_output "ans = *1"
+do_test m-21.m
+
+set test zero-one-ttt-m-22
+set prog_output "ans = *1"
+do_test m-22.m
+
+set test zero-one-ttt-m-23
+set prog_output "ans = *1"
+do_test m-23.m
+
+set test zero-one-ttt-m-24
+set prog_output "ans = *1"
+do_test m-24.m
+
+set test zero-one-ttt-m-25
+set prog_output "ans = *1"
+do_test m-25.m
+
+set test zero-one-ttt-m-26
+set prog_output "ans = *1"
+do_test m-26.m
+
+set test zero-one-ttt-m-27
+set prog_output "ans = *1"
+do_test m-27.m
+
+set test zero-one-ttt-m-28
+set prog_output "ans = *1"
+do_test m-28.m
+
+set test zero-one-ttt-m-29
+set prog_output "ans = *1"
+do_test m-29.m
+
+set test zero-one-ttt-m-30
+set prog_output "ans = *1"
+do_test m-30.m
+
+set test zero-one-ttt-m-31
+set prog_output "ans = *1"
+do_test m-31.m
+
+set test zero-one-ttt-m-32
+set prog_output "ans = *1"
+do_test m-32.m
+
+set test zero-one-ttt-m-33
+set prog_output "ans = *1"
+do_test m-33.m
+
+set test zero-one-ttt-m-34
+set prog_output "ans = *1"
+do_test m-34.m
+
+set test zero-one-ttt-m-35
+set prog_output "ans = *1"
+do_test m-35.m
+
+set test zero-one-ttt-m-36
+set prog_output "ans = *1"
+do_test m-36.m