Mercurial > hg > octave-max
changeset 2842:97c3d07bcf38
[project @ 1997-03-26 21:26:54 by jwe]
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