Original Version

1 files changed, 31 insertions, 0 deletions

diff --git a/tests/unit_tests/double/test_Find.sci b/tests/unit_tests/double/test_Find.sci
new file mode 100644
index 0000000..0f5681f
--- /dev/null
+++ b/tests/unit_tests/double/test_Find.sci
@@ -0,0 +1,31 @@
+function test_Find ()
+
+	disp (find( 1 == 3 )); // d0Findd0
+	
+	a = [1 2 3; 4 5 6];
+	b = [1 8 3; 9 5 6];
+	disp (find( a == b )); // d2Findd2
+
+	[ z , j ] = find (1 == 3); // d0Findd0d0
+	[ k , l ] = find (a == b); // d2Findd2d2
+	
+	disp(z);
+	disp(j);
+	disp(k);
+	disp(l);
+
+	disp ( find( 1 == 3 , 2 )); // d0d0Findd0
+	
+	c = [1 2 3; 4 5 6];
+	d = [1 8 3; 9 5 6];
+	disp (find( c == d , 2 )); // d2d0Findd2
+
+	[ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0
+	[ q , s ] = find (c == d , 2); // d2d0Findd2d2
+
+	disp(o);
+	disp(p);
+	disp(q);
+	disp(s);
+
+endfunction