Mercurial > hg > octave-max

changeset 2842:97c3d07bcf38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-03-26 21:26:54 by jwe]
author jwe
date Wed, 26 Mar 1997 21:26:59 +0000
parents cf388123941a
children 79841c89e27d
files test/octave.test/zero-one/tt/m-1.m test/octave.test/zero-one/tt/m-10.m test/octave.test/zero-one/tt/m-11.m test/octave.test/zero-one/tt/m-12.m test/octave.test/zero-one/tt/m-13.m test/octave.test/zero-one/tt/m-14.m test/octave.test/zero-one/tt/m-15.m test/octave.test/zero-one/tt/m-16.m test/octave.test/zero-one/tt/m-17.m test/octave.test/zero-one/tt/m-18.m test/octave.test/zero-one/tt/m-19.m test/octave.test/zero-one/tt/m-2.m test/octave.test/zero-one/tt/m-20.m test/octave.test/zero-one/tt/m-21.m test/octave.test/zero-one/tt/m-22.m test/octave.test/zero-one/tt/m-23.m test/octave.test/zero-one/tt/m-24.m test/octave.test/zero-one/tt/m-25.m test/octave.test/zero-one/tt/m-26.m test/octave.test/zero-one/tt/m-27.m test/octave.test/zero-one/tt/m-28.m test/octave.test/zero-one/tt/m-29.m test/octave.test/zero-one/tt/m-3.m test/octave.test/zero-one/tt/m-30.m test/octave.test/zero-one/tt/m-31.m test/octave.test/zero-one/tt/m-32.m test/octave.test/zero-one/tt/m-33.m test/octave.test/zero-one/tt/m-34.m test/octave.test/zero-one/tt/m-35.m test/octave.test/zero-one/tt/m-36.m test/octave.test/zero-one/tt/m-4.m test/octave.test/zero-one/tt/m-5.m test/octave.test/zero-one/tt/m-6.m test/octave.test/zero-one/tt/m-7.m test/octave.test/zero-one/tt/m-8.m test/octave.test/zero-one/tt/m-9.m test/octave.test/zero-one/tt/s-1.m test/octave.test/zero-one/tt/s-2.m test/octave.test/zero-one/tt/s-3.m test/octave.test/zero-one/tt/s-4.m test/octave.test/zero-one/tt/v-1.m test/octave.test/zero-one/tt/v-2.m test/octave.test/zero-one/tt/v-3.m test/octave.test/zero-one/tt/v-4.m test/octave.test/zero-one/tt/zero-one.exp
diffstat 45 files changed, 363 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
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])))
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])
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])
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])
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]))
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
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])
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
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])
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])
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
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])
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])
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])
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])
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]))
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])
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])
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]))
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
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
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])
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])
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])
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]))
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])
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]))
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]))
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])
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]))
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
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])
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
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])
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])
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
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))
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
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
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])
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])))
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])
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])
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])
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