bug396 fixed
Serge Steer [Wed, 16 May 2007 15:03:17 +0000 (15:03 +0000)]
tests/nonRegression/bug2396.sci [new file with mode: 0644]
tests/nonRegression/list_nonreg.txt

diff --git a/tests/nonRegression/bug2396.sci b/tests/nonRegression/bug2396.sci
new file mode 100644 (file)
index 0000000..29b5a13
--- /dev/null
@@ -0,0 +1,14 @@
+// Non-regression test file for bug 2396
+// Serge Steer - Scilab Project
+// Copyright INRIA
+// 14 may 2007
+
+mode(-1);
+clear;
+
+a1 = [1 2 3]
+a2 = [1 3 4 5 1 6 7]
+function y=elfind(x),y = (find(a2 == x) ~= []),endfunction
+T=execstr('z=feval(a1,elfind)','errcatch')==98
+
+affich_result(T,2396);