english imposed for these tests - creation of new refs
Yann Collette [Mon, 29 Jun 2009 08:55:10 +0000 (10:55 +0200)]
scilab/modules/cacsd/tests/unit_tests/bode.dia.ref
scilab/modules/cacsd/tests/unit_tests/bode.tst
scilab/modules/cacsd/tests/unit_tests/csim.dia.ref
scilab/modules/cacsd/tests/unit_tests/csim.tst
scilab/modules/cacsd/tests/unit_tests/nyquist.dia.ref
scilab/modules/cacsd/tests/unit_tests/nyquist.tst

index 358502d..eb9ffb2 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- TEST WITH GRAPHIC -->
+// <-- ENGLISH IMPOSED -->
 function r=checkbode(h,leg)
   fig=gcf();
   r=%t
@@ -23,7 +24,7 @@ function r=checkbode(h,leg)
     [frq,rf]=repfreq(h(k,1),pm.data(:,1));[phi,d]=phasemag(rf);
     if norm(d(:)-pm.data(:,2))> 1d-15 then r=%f;return,end
   end
-  if argn(2)==2 then
+  if argn(2)==2 then 
     if size(ap.children,'*')<2 then r=%f;return,end
     if ap.children(1).type<>'Legend' then r=%f;return,end
     if size(ap.children(1).links,'*')<>n then r=%f;return,end
index 4b095c9..5e408e0 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- TEST WITH GRAPHIC -->
+// <-- ENGLISH IMPOSED -->
 
 function r=checkbode(h,leg)
   fig=gcf();
index 3e31025..7546ad5 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- ENGLISH IMPOSED -->
 a=0;b=1;c=2;
 t=0:0.1:1;
 sl=syslin('c',a,b,c);
index 7b2c548..4f6df99 100644 (file)
@@ -4,6 +4,9 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+
+// <-- ENGLISH IMPOSED -->
+
 a=0;b=1;c=2;
 t=0:0.1:1;
 sl=syslin('c',a,b,c);
index 26622b3..18876d6 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- TEST WITH GRAPHIC -->
+// <-- ENGLISH IMPOSED -->
 function r=checknyquist(Args,leg)
   if size(Args)==1 then Args($+1)=1d-3; Args($+1)=1d+3;end
   [frq,rf,splitf]=repfreq(Args(:));repi=imag(rf);repf=real(rf);
@@ -31,10 +32,12 @@ function r=checknyquist(Args,leg)
     if size(a.children($+1-k).children,'*')<>2  then r=5;return,end
     if a.children($+1-k).children(1).type<>'Compound'  then r=6;return, end
     if a.children($+1-k).children(2).type<>'Polyline'  then r=7;return, end
-    if a.children($+1-k).children(1).children(1).type<>'Segs' then r=8;return, end
-    ns=size(a.children($+1-k).children(1).children(1).data,1);
-    if size(a.children($+1-k).children(1).children,'*')-2<>(ns/2) then r=9;return, end
-    if or(a.children($+1-k).children(1).children(2:$).type<>'Text') then r=10;return, end
+    if %f then //temporarily removed for 5.0
+      if a.children($+1-k).children(1).children(1).type<>'Segs' then r=8;return, end
+      ns=size(a.children($+1-k).children(1).children(1).data,1);
+      if size(a.children($+1-k).children(1).children,'*')-2<>(ns/2) then r=9;return, end
+      if or(a.children($+1-k).children(1).children(2:$).type<>'Text') then r=10;return, end
+    end
     if or(l<>find(~isnan(a.children($+1-k).children(2).data(:,1)))) then r=11;return, end
     if norm(a.children($+1-k).children(2).data(l,:)-[R(k,l)' I(k,l)'])> 1d-14 then r=12;return, end
     s= a.children($+1-k).children(1).children(1);
index 7ad7b43..e4b1e8e 100644 (file)
@@ -6,6 +6,8 @@
 // =============================================================================
 
 // <-- TEST WITH GRAPHIC -->
+// <-- ENGLISH IMPOSED -->
+
 function r=checknyquist(Args,leg)
   if size(Args)==1 then Args($+1)=1d-3; Args($+1)=1d+3;end
   [frq,rf,splitf]=repfreq(Args(:));repi=imag(rf);repf=real(rf);