bug 11079 fixed: tlist(['r','num','den','dt'] replaced by rlist
[scilab.git] / scilab / modules / core / tests / unit_tests / macro.tst
index 1fc4642..5a8879a 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-funcprot(0)
+funcprot(0);
 // simple
 //
 deff('[x,y]=t1(a,b)','x=a+b,y=a-b','n')
@@ -486,7 +486,7 @@ deff('[r]=horner(p,x)',['if type(p)==15|type(p)==16 then';
                            'r=horner(p(2),x)./horner(p(3),x),';
                            'return,';
                         'end;';
-                        'd=maxi(degree(p));';
+                        'd=max(degree(p));';
                         'r=coeff(p,d);';
                         'for k=1:d,';
                           'r=r*x+coeff(p,d-k)*eye();';
@@ -495,28 +495,28 @@ deff('[f]=%p_r_p(p1,p2)',['[l,c]=size(p2);';
                         'if l*c <>1 then f=p1*invr(p2),return,end;';
                         '[l,c]=size(p1);';
                         '[p1 p2]=simp(p1,p2*ones(l,c));';
-                        'f=tlist([''r'',''num'',''den'',''dt''],p1,p2,[]);'],'n')
+                        'f=rlist(p1,p2,[]);'],'n')
  
  
  
 horn=horner;
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then pause,end
+if cplist(h,rlist(1,s,[]))==0 then pause,end
 h1=(z-1)/(z+1);
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then pause,end
+if cplist(h,rlist(1,s,[]))==0 then pause,end
 h1=(z-1)/(z+1);
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 //
 //