changeset 2837:aa3630ffbd8e

[project @ 1997-03-26 21:19:26 by jwe]
author jwe
date Wed, 26 Mar 1997 21:19:38 +0000
parents 71105fa44c13
children 4a6658d653a2
files test/octave.test/zero-one/ft/m-1.m test/octave.test/zero-one/ft/m-10.m test/octave.test/zero-one/ft/m-11.m test/octave.test/zero-one/ft/m-12.m test/octave.test/zero-one/ft/m-13.m test/octave.test/zero-one/ft/m-14.m test/octave.test/zero-one/ft/m-15.m test/octave.test/zero-one/ft/m-16.m test/octave.test/zero-one/ft/m-17.m test/octave.test/zero-one/ft/m-18.m test/octave.test/zero-one/ft/m-19.m test/octave.test/zero-one/ft/m-2.m test/octave.test/zero-one/ft/m-20.m test/octave.test/zero-one/ft/m-21.m test/octave.test/zero-one/ft/m-22.m test/octave.test/zero-one/ft/m-23.m test/octave.test/zero-one/ft/m-24.m test/octave.test/zero-one/ft/m-25.m test/octave.test/zero-one/ft/m-26.m test/octave.test/zero-one/ft/m-27.m test/octave.test/zero-one/ft/m-28.m test/octave.test/zero-one/ft/m-29.m test/octave.test/zero-one/ft/m-3.m test/octave.test/zero-one/ft/m-30.m test/octave.test/zero-one/ft/m-31.m test/octave.test/zero-one/ft/m-32.m test/octave.test/zero-one/ft/m-33.m test/octave.test/zero-one/ft/m-34.m test/octave.test/zero-one/ft/m-35.m test/octave.test/zero-one/ft/m-36.m test/octave.test/zero-one/ft/m-4.m test/octave.test/zero-one/ft/m-5.m test/octave.test/zero-one/ft/m-6.m test/octave.test/zero-one/ft/m-7.m test/octave.test/zero-one/ft/m-8.m test/octave.test/zero-one/ft/m-9.m test/octave.test/zero-one/ft/s-1.m test/octave.test/zero-one/ft/s-2.m test/octave.test/zero-one/ft/s-3.m test/octave.test/zero-one/ft/s-4.m test/octave.test/zero-one/ft/v-1.m test/octave.test/zero-one/ft/v-2.m test/octave.test/zero-one/ft/v-3.m test/octave.test/zero-one/ft/v-4.m test/octave.test/zero-one/ft/zero-one.exp test/octave.test/zero-one/tf/m-1.m test/octave.test/zero-one/tf/m-10.m test/octave.test/zero-one/tf/m-11.m test/octave.test/zero-one/tf/m-12.m test/octave.test/zero-one/tf/m-13.m test/octave.test/zero-one/tf/m-14.m test/octave.test/zero-one/tf/m-15.m test/octave.test/zero-one/tf/m-16.m test/octave.test/zero-one/tf/m-17.m test/octave.test/zero-one/tf/m-18.m test/octave.test/zero-one/tf/m-19.m test/octave.test/zero-one/tf/m-2.m test/octave.test/zero-one/tf/m-20.m test/octave.test/zero-one/tf/m-21.m test/octave.test/zero-one/tf/m-22.m test/octave.test/zero-one/tf/m-23.m test/octave.test/zero-one/tf/m-24.m test/octave.test/zero-one/tf/m-25.m test/octave.test/zero-one/tf/m-26.m test/octave.test/zero-one/tf/m-27.m test/octave.test/zero-one/tf/m-28.m test/octave.test/zero-one/tf/m-29.m test/octave.test/zero-one/tf/m-3.m test/octave.test/zero-one/tf/m-30.m test/octave.test/zero-one/tf/m-31.m test/octave.test/zero-one/tf/m-32.m test/octave.test/zero-one/tf/m-33.m test/octave.test/zero-one/tf/m-34.m test/octave.test/zero-one/tf/m-35.m test/octave.test/zero-one/tf/m-36.m test/octave.test/zero-one/tf/m-4.m test/octave.test/zero-one/tf/m-5.m test/octave.test/zero-one/tf/m-6.m test/octave.test/zero-one/tf/m-7.m test/octave.test/zero-one/tf/m-8.m test/octave.test/zero-one/tf/m-9.m test/octave.test/zero-one/tf/s-1.m test/octave.test/zero-one/tf/s-2.m test/octave.test/zero-one/tf/s-3.m test/octave.test/zero-one/tf/s-4.m test/octave.test/zero-one/tf/v-1.m test/octave.test/zero-one/tf/v-2.m test/octave.test/zero-one/tf/v-3.m test/octave.test/zero-one/tf/v-4.m test/octave.test/zero-one/tf/zero-one.exp
diffstat 90 files changed, 363 insertions(+), 363 deletions(-) [+]
line wrap: on
line diff
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-1.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-isempty (a(logical ([0,0,0,0])))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-10.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical (0:1),logical ([1,1])) == [7,6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-11.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(2:-1:1,logical (0:1)) == [6;8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-12.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(2:-1:1,logical ([0,1])) == [6;8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-13.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-14.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical ([0,1]),logical (0:1)) == 6
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-15.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([0,1]),2:-1:1) == [6,7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-16.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical ([0,1]),logical ([0,1])) == 6
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-17.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([0,1]),[2,1]) == [6,7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-18.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([0,1]),:) == [7,6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-19.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical ([0,1]),1) == 7
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-2.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([1,1,1,1])) == [9;7;8;6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-20.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([0,1]),logical ([1,1])) == [7,6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-21.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a([2,1],logical (0:1)) == [6;8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-22.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a([2,1],logical ([0,1])) == [6;8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-23.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-24.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(:,logical (0:1)) == [8;6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-25.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(:,logical ([0,1])) == [8;6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-26.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(:,logical ([1,1])) == [9,8;7,6]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-27.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(1,logical (0:1)) == 8
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-28.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(1,logical ([0,1])) == 8
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-29.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(1,logical ([1,1])) == [9,8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-3.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([0,1,1,0])) == [7;8])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-30.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([1,1]),logical (0:1)) == [8;6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-31.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-32.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([1,1]),logical ([0,1])) == [8;6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-33.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-34.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(logical ([1,1]),:) == [9,8;7,6]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-35.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical ([1,1]),1) == [9;7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-36.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-4.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical (0:1),logical (0:1)) == 6
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-5.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical (0:1),2:-1:1) == [6,7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-6.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical (0:1),logical ([0,1])) == 6
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-7.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical (0:1),[2,1]) == [6,7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-8.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-all (a(logical (0:1),:) == [7,6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/m-9.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8;7,6];
-a(logical (0:1),1) == 7
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/s-1.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [];
-a(0)
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/s-2.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = 2;
-a(1) == 2
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/s-3.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = 2;
-a(1) == 2
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/s-4.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = 2;
-all (a(logical ([1,1])) == [2,2])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/v-1.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8,7,6];
-isempty (a(logical ([0,0,0,0])))
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/v-2.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8,7,6];
-all (a(logical ([1,1,1,1])) == [9,8,7,6])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/v-3.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8,7,6];
-all (a(logical ([0,1,1,0])) == [8,7])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/v-4.m
+++ /dev/null
@@ -1,4 +0,0 @@
-prefer_column_vectors = 0;
-do_fortran_indexing = 1;
-a = [9,8,7,6];
-all (a(logical ([1,1])) == [9,9])
deleted file mode 100644
--- a/test/octave.test/zero-one/ft/zero-one.exp
+++ /dev/null
@@ -1,187 +0,0 @@
-## Tests with:
-##
-## prefer_zero_one_indexing == "true"
-## prefer_column_vectors    == "false"
-## do_fortran_indexing      == "true"
-
-## scalar tests
-
-set test zero-one-tft-s-1
-set prog_output "error:.*"
-do_test s-1.m
-
-set test zero-one-tft-s-2
-set prog_output "ans = *1"
-do_test s-2.m
-
-set test zero-one-tft-s-3
-set prog_output "ans = *1"
-do_test s-3.m
-
-set test zero-one-tft-s-4
-set prog_output "ans = *1"
-do_test s-4.m
-
-## vector tests
-
-set test zero-one-tft-v-1
-set prog_output "ans = *1"
-do_test v-1.m
-
-set test zero-one-tft-v-2
-set prog_output "ans = *1"
-do_test v-2.m
-
-set test zero-one-tft-v-3
-set prog_output "ans = *1"
-do_test v-3.m
-
-set test zero-one-tft-v-4
-set prog_output "ans = *1"
-do_test v-4.m
-
-## matrix tests
-
-set test zero-one-tft-m-1
-set prog_output "ans = *1"
-do_test m-1.m
-
-set test zero-one-tft-m-2
-set prog_output "ans = *1"
-do_test m-2.m
-
-set test zero-one-tft-m-3
-set prog_output "ans = *1"
-do_test m-3.m
-
-set test zero-one-tft-m-4
-set prog_output "ans = *1"
-do_test m-4.m
-
-set test zero-one-tft-m-5
-set prog_output "ans = *1"
-do_test m-5.m
-
-set test zero-one-tft-m-6
-set prog_output "ans = *1"
-do_test m-6.m
-
-set test zero-one-tft-m-7
-set prog_output "ans = *1"
-do_test m-7.m
-
-set test zero-one-tft-m-8
-set prog_output "ans = *1"
-do_test m-8.m
-
-set test zero-one-tft-m-9
-set prog_output "ans = *1"
-do_test m-9.m
-
-set test zero-one-tft-m-10
-set prog_output "ans = *1"
-do_test m-10.m
-
-set test zero-one-tft-m-11
-set prog_output "ans = *1"
-do_test m-11.m
-
-set test zero-one-tft-m-12
-set prog_output "ans = *1"
-do_test m-12.m
-
-set test zero-one-tft-m-13
-set prog_output "ans = *1"
-do_test m-13.m
-
-set test zero-one-tft-m-14
-set prog_output "ans = *1"
-do_test m-14.m
-
-set test zero-one-tft-m-15
-set prog_output "ans = *1"
-do_test m-15.m
-
-set test zero-one-tft-m-16
-set prog_output "ans = *1"
-do_test m-16.m
-
-set test zero-one-tft-m-17
-set prog_output "ans = *1"
-do_test m-17.m
-
-set test zero-one-tft-m-18
-set prog_output "ans = *1"
-do_test m-18.m
-
-set test zero-one-tft-m-19
-set prog_output "ans = *1"
-do_test m-19.m
-
-set test zero-one-tft-m-20
-set prog_output "ans = *1"
-do_test m-20.m
-
-set test zero-one-tft-m-21
-set prog_output "ans = *1"
-do_test m-21.m
-
-set test zero-one-tft-m-22
-set prog_output "ans = *1"
-do_test m-22.m
-
-set test zero-one-tft-m-23
-set prog_output "ans = *1"
-do_test m-23.m
-
-set test zero-one-tft-m-24
-set prog_output "ans = *1"
-do_test m-24.m
-
-set test zero-one-tft-m-25
-set prog_output "ans = *1"
-do_test m-25.m
-
-set test zero-one-tft-m-26
-set prog_output "ans = *1"
-do_test m-26.m
-
-set test zero-one-tft-m-27
-set prog_output "ans = *1"
-do_test m-27.m
-
-set test zero-one-tft-m-28
-set prog_output "ans = *1"
-do_test m-28.m
-
-set test zero-one-tft-m-29
-set prog_output "ans = *1"
-do_test m-29.m
-
-set test zero-one-tft-m-30
-set prog_output "ans = *1"
-do_test m-30.m
-
-set test zero-one-tft-m-31
-set prog_output "ans = *1"
-do_test m-31.m
-
-set test zero-one-tft-m-32
-set prog_output "ans = *1"
-do_test m-32.m
-
-set test zero-one-tft-m-33
-set prog_output "ans = *1"
-do_test m-33.m
-
-set test zero-one-tft-m-34
-set prog_output "ans = *1"
-do_test m-34.m
-
-set test zero-one-tft-m-35
-set prog_output "ans = *1"
-do_test m-35.m
-
-set test zero-one-tft-m-36
-set prog_output "ans = *1"
-do_test m-36.m
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+isempty (a(logical ([0,0,0,0])))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-10.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),logical ([1,1])) == [7,6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-11.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(2:-1:1,logical (0:1)) == [6;8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-12.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(2:-1:1,logical ([0,1])) == [6;8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-13.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-14.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),logical (0:1)) == 6
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-15.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),2:-1:1) == [6,7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-16.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),logical ([0,1])) == 6
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-17.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),[2,1]) == [6,7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-18.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),:) == [7,6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-19.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical ([0,1]),1) == 7
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1,1,1])) == [9;7;8;6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-20.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1]),logical ([1,1])) == [7,6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-21.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a([2,1],logical (0:1)) == [6;8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-22.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a([2,1],logical ([0,1])) == [6;8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-23.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-24.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(:,logical (0:1)) == [8;6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-25.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(:,logical ([0,1])) == [8;6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-26.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(:,logical ([1,1])) == [9,8;7,6]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-27.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(1,logical (0:1)) == 8
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-28.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(1,logical ([0,1])) == 8
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-29.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(1,logical ([1,1])) == [9,8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([0,1,1,0])) == [7;8])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-30.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),logical (0:1)) == [8;6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-31.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-32.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),logical ([0,1])) == [8;6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-33.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-34.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),:) == [9,8;7,6]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-35.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical ([1,1]),1) == [9;7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-36.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),logical (0:1)) == 6
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-5.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),2:-1:1) == [6,7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-6.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),logical ([0,1])) == 6
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-7.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),[2,1]) == [6,7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-8.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+all (a(logical (0:1),:) == [7,6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/m-9.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8;7,6];
+a(logical (0:1),1) == 7
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/s-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [];
+a(0)
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/s-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = 2;
+a(1) == 2
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/s-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = 2;
+a(1) == 2
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/s-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = 2;
+all (a(logical ([1,1])) == [2,2])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/v-1.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+isempty (a(logical ([0,0,0,0])))
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/v-2.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([1,1,1,1])) == [9,8,7,6])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/v-3.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([0,1,1,0])) == [8,7])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/v-4.m
@@ -0,0 +1,4 @@
+prefer_column_vectors = 0;
+do_fortran_indexing = 1;
+a = [9,8,7,6];
+all (a(logical ([1,1])) == [9,9])
new file mode 100644
--- /dev/null
+++ b/test/octave.test/zero-one/tf/zero-one.exp
@@ -0,0 +1,187 @@
+## Tests with:
+##
+## prefer_zero_one_indexing == "true"
+## prefer_column_vectors    == "false"
+## do_fortran_indexing      == "true"
+
+## scalar tests
+
+set test zero-one-tft-s-1
+set prog_output "error:.*"
+do_test s-1.m
+
+set test zero-one-tft-s-2
+set prog_output "ans = *1"
+do_test s-2.m
+
+set test zero-one-tft-s-3
+set prog_output "ans = *1"
+do_test s-3.m
+
+set test zero-one-tft-s-4
+set prog_output "ans = *1"
+do_test s-4.m
+
+## vector tests
+
+set test zero-one-tft-v-1
+set prog_output "ans = *1"
+do_test v-1.m
+
+set test zero-one-tft-v-2
+set prog_output "ans = *1"
+do_test v-2.m
+
+set test zero-one-tft-v-3
+set prog_output "ans = *1"
+do_test v-3.m
+
+set test zero-one-tft-v-4
+set prog_output "ans = *1"
+do_test v-4.m
+
+## matrix tests
+
+set test zero-one-tft-m-1
+set prog_output "ans = *1"
+do_test m-1.m
+
+set test zero-one-tft-m-2
+set prog_output "ans = *1"
+do_test m-2.m
+
+set test zero-one-tft-m-3
+set prog_output "ans = *1"
+do_test m-3.m
+
+set test zero-one-tft-m-4
+set prog_output "ans = *1"
+do_test m-4.m
+
+set test zero-one-tft-m-5
+set prog_output "ans = *1"
+do_test m-5.m
+
+set test zero-one-tft-m-6
+set prog_output "ans = *1"
+do_test m-6.m
+
+set test zero-one-tft-m-7
+set prog_output "ans = *1"
+do_test m-7.m
+
+set test zero-one-tft-m-8
+set prog_output "ans = *1"
+do_test m-8.m
+
+set test zero-one-tft-m-9
+set prog_output "ans = *1"
+do_test m-9.m
+
+set test zero-one-tft-m-10
+set prog_output "ans = *1"
+do_test m-10.m
+
+set test zero-one-tft-m-11
+set prog_output "ans = *1"
+do_test m-11.m
+
+set test zero-one-tft-m-12
+set prog_output "ans = *1"
+do_test m-12.m
+
+set test zero-one-tft-m-13
+set prog_output "ans = *1"
+do_test m-13.m
+
+set test zero-one-tft-m-14
+set prog_output "ans = *1"
+do_test m-14.m
+
+set test zero-one-tft-m-15
+set prog_output "ans = *1"
+do_test m-15.m
+
+set test zero-one-tft-m-16
+set prog_output "ans = *1"
+do_test m-16.m
+
+set test zero-one-tft-m-17
+set prog_output "ans = *1"
+do_test m-17.m
+
+set test zero-one-tft-m-18
+set prog_output "ans = *1"
+do_test m-18.m
+
+set test zero-one-tft-m-19
+set prog_output "ans = *1"
+do_test m-19.m
+
+set test zero-one-tft-m-20
+set prog_output "ans = *1"
+do_test m-20.m
+
+set test zero-one-tft-m-21
+set prog_output "ans = *1"
+do_test m-21.m
+
+set test zero-one-tft-m-22
+set prog_output "ans = *1"
+do_test m-22.m
+
+set test zero-one-tft-m-23
+set prog_output "ans = *1"
+do_test m-23.m
+
+set test zero-one-tft-m-24
+set prog_output "ans = *1"
+do_test m-24.m
+
+set test zero-one-tft-m-25
+set prog_output "ans = *1"
+do_test m-25.m
+
+set test zero-one-tft-m-26
+set prog_output "ans = *1"
+do_test m-26.m
+
+set test zero-one-tft-m-27
+set prog_output "ans = *1"
+do_test m-27.m
+
+set test zero-one-tft-m-28
+set prog_output "ans = *1"
+do_test m-28.m
+
+set test zero-one-tft-m-29
+set prog_output "ans = *1"
+do_test m-29.m
+
+set test zero-one-tft-m-30
+set prog_output "ans = *1"
+do_test m-30.m
+
+set test zero-one-tft-m-31
+set prog_output "ans = *1"
+do_test m-31.m
+
+set test zero-one-tft-m-32
+set prog_output "ans = *1"
+do_test m-32.m
+
+set test zero-one-tft-m-33
+set prog_output "ans = *1"
+do_test m-33.m
+
+set test zero-one-tft-m-34
+set prog_output "ans = *1"
+do_test m-34.m
+
+set test zero-one-tft-m-35
+set prog_output "ans = *1"
+do_test m-35.m
+
+set test zero-one-tft-m-36
+set prog_output "ans = *1"
+do_test m-36.m