Mercurial > octave-nkf

changeset 2717:981cd8a2e41b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-22 19:09:37 by jwe]
author jwe
date Sat, 22 Feb 1997 19:09:39 +0000
parents 2b5c27299cde
children b61fc4f720e7
files test/octave.test/set/complement-1.m test/octave.test/set/complement-2.m test/octave.test/set/complement-3.m test/octave.test/set/complement-4.m test/octave.test/set/complement-5.m test/octave.test/set/create_set-1.m test/octave.test/set/create_set-2.m test/octave.test/set/create_set-3.m test/octave.test/set/create_set-4.m test/octave.test/set/intersection-1.m test/octave.test/set/intersection-2.m test/octave.test/set/intersection-3.m test/octave.test/set/intersection-4.m test/octave.test/set/intersection-5.m test/octave.test/set/set.exp test/octave.test/set/union-1.m test/octave.test/set/union-2.m test/octave.test/set/union-3.m test/octave.test/set/union-4.m test/octave.test/set/union-5.m
diffstat 20 files changed, 94 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/complement-1.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/complement-2.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/complement-3.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+isempty (complement ([1, 2, 3], [3, 2, 1]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/complement-4.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+complement (1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/complement-5.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+complement (1, 2, 3)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/create_set-1.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/create_set-2.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/create_set-3.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+isempty (create_set ([]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/create_set-4.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+create_set (1, 2)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/intersection-1.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/intersection-2.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/intersection-3.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+isempty (intersection ([1, 2, 3], [4; 5; 6]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/intersection-4.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+intersection (1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/intersection-5.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+intersection (1, 2, 5)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/set.exp	Sat Feb 22 19:09:39 1997 +0000
@@ -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
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/union-1.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/union-2.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/union-3.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9]))
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/union-4.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+union (1)
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/set/union-5.m	Sat Feb 22 19:09:39 1997 +0000
@@ -0,0 +1,1 @@
+union (1, 2, 3)