bug2052.sci added

2 files changed, 51 insertions, 0 deletions

diff --git a/tests/nonRegression/bug2052.sci b/tests/nonRegression/bug2052.sci
new file mode 100644
index 0000000..27f23a7
--- /dev/null
+++ b/tests/nonRegression/bug2052.sci
@@ -0,0 +1,50 @@
+// Non-regression test file for bug 2052
+// Serge Steer - Scilab Project
+// Copyright INRIA
+// 19/02/2007
+
+mode(-1);
+clear;
+cur=pwd();
+cd(TMPDIR);
+//first create a function changetype 
+code=['#include ""stack-c.h""'
+'int intchangetype(fname)'
+'   char *fname;'
+'{'
+' int m1,n1,l1;'
+' CheckRhs(2,2);'
+' CheckLhs(1,1);'
+' GetRhsVar(2,""i"",&m1,&n1,&l1)'
+' /* change the type */'
+' *istk(iadr(*Lstk(Top-1)))=*istk(l1);'
+' C2F(intersci).ntypes[0] = ''$'';'
+' LhsVar(1)=1;'
+' return 0;'
+'}'];
+mputl(code,'intchangetype.c');
+ilib_build('libtest',['changetype','intchangetype'],'intchangetype',[]);
+exec('loader.sce')
+cd(cur);
+
+
+//create variables of type 222
+A=rand(3,2);
+a=changetype(A,222);
+//associate a typename to 222
+typename("bug2052", 222)
+//define overloading function for isequal
+function r=%bug2052_isequal(x,y)
+  r=type(x)==222&type(y)==222
+  if r then
+    x=changetype(x,1)
+    y=changetype(y,1)
+    r=r&and(x==y)
+  end
+endfunction
+//Check if everything is ok
+l=list(1,2,3);
+r=isequal(a,a)&~isequal(a,A)&~isequal(A,a)&isequal(A,A)&isequal(l,l)&~isequal(l,A);
+
+affich_result(r,2052);
+clear
diff --git a/tests/nonRegression/list_nonreg.txt b/tests/nonRegression/list_nonreg.txt
index 35556ac..7b9fa46 100644
--- a/tests/nonRegression/list_nonreg.txt
+++ b/tests/nonRegression/list_nonreg.txt
@@ -147,6 +147,7 @@
 2038
 2039
 2045
+2052
 2067
 2067
 2092