Mercurial > hg > octave-nkf
changeset 2717:981cd8a2e41b
[project @ 1997-02-22 19:09:37 by jwe]
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/complement-1.m @@ -0,0 +1,1 @@ +all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/complement-2.m @@ -0,0 +1,1 @@ +all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/complement-3.m @@ -0,0 +1,1 @@ +isempty (complement ([1, 2, 3], [3, 2, 1]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/complement-4.m @@ -0,0 +1,1 @@ +complement (1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/complement-5.m @@ -0,0 +1,1 @@ +complement (1, 2, 3)
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/create_set-1.m @@ -0,0 +1,1 @@ +all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/create_set-2.m @@ -0,0 +1,1 @@ +all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/create_set-3.m @@ -0,0 +1,1 @@ +isempty (create_set ([]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/create_set-4.m @@ -0,0 +1,1 @@ +create_set (1, 2)
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/intersection-1.m @@ -0,0 +1,1 @@ +all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/intersection-2.m @@ -0,0 +1,1 @@ +all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/intersection-3.m @@ -0,0 +1,1 @@ +isempty (intersection ([1, 2, 3], [4; 5; 6]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/intersection-4.m @@ -0,0 +1,1 @@ +intersection (1)
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/intersection-5.m @@ -0,0 +1,1 @@ +intersection (1, 2, 5)
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/set.exp @@ -0,0 +1,75 @@ +set test create_set-1 +set prog_output "ans = 1" +do_test create_set-1.m + +set test create_set-2 +set prog_output "ans = 1" +do_test create_set-2.m + +set test create_set-3 +set prog_output "ans = 1" +do_test create_set-3.m + +set test create_set-4 +set prog_output "error:.*" +do_test create_set-4.m + +set test union-1 +set prog_output "ans = 1" +do_test union-1.m + +set test union-2 +set prog_output "ans = 1" +do_test union-2.m + +set test union-3 +set prog_output "ans = 1" +do_test union-3.m + +set test union-4 +set prog_output "error:.*" +do_test union-4.m + +set test union-5 +set prog_output "error:.*" +do_test union-5.m + +set test intersection-1 +set prog_output "ans = 1" +do_test intersection-1.m + +set test intersection-2 +set prog_output "ans = 1" +do_test intersection-2.m + +set test intersection-3 +set prog_output "ans = 1" +do_test intersection-3.m + +set test intersection-4 +set prog_output "error:.*" +do_test intersection-4.m + +set test intersection-5 +set prog_output "error:.*" +do_test intersection-5.m + +set test complement-1 +set prog_output "ans = 1" +do_test complement-1.m + +set test complement-2 +set prog_output "ans = 1" +do_test complement-2.m + +set test complement-3 +set prog_output "ans = 1" +do_test complement-3.m + +set test complement-4 +set prog_output "error:.*" +do_test complement-4.m + +set test complement-5 +set prog_output "error:.*" +do_test complement-5.m
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/union-1.m @@ -0,0 +1,1 @@ +all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))
new file mode 100644 --- /dev/null +++ b/test/octave.test/set/union-2.m @@ -0,0 +1,1 @@ +all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))