Fix tests in string module: 83/12583/2
Vincent COUVERT [Wed, 18 Sep 2013 11:54:37 +0000 (13:54 +0200)]
 - part.tst: wrong ref with single quotes instead of double quotes
 - bug_2328.tst: overloads %p_part introduced by https://codereview.scilab.org/#/c/12396/

To test:
test_run string part
test_run string bug_2328

Change-Id: Ie451308da5fc694865b19e266f3fe57a75f70780

scilab/modules/string/tests/nonreg_tests/bug_2328.dia.ref
scilab/modules/string/tests/nonreg_tests/bug_2328.tst
scilab/modules/string/tests/unit_tests/part.dia.ref

index 2915599..c71e2bc 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- ENGLISH IMPOSED -->
 // <-- CLI SHELL MODE -->
 // <-- Non-regression test for bug 2328 -->
 //
 if part([],1)<>[] then bugmes();quit;end
 //testing overloading
 function t=%p_part(t,p)
-  n=horner(p,length(t))
-  t=part(t,n)
+    n=horner(p,length(t))
+    t=part(t,n)
 endfunction
-if part('xyz',$)<>'z' then bugmes();quit;end
+Warning : redefining function: %p_part                 . Use funcprot(0) to avoid this message
+
+if part("xyz",$)<>"z" then bugmes();quit;end
 //testing overloading
 function t=%s_part(t,p)
-t=t(p)
+    t=t(p)
 endfunction
 if part([1 2 3],2)<>2 then bugmes();quit;end
index 68d38d4..3a32845 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- ENGLISH IMPOSED -->
+
 // <-- CLI SHELL MODE -->
 
 // <-- Non-regression test for bug 2328 -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=2328
 //
 // <-- Short Description -->
-//The built-in function part() generates an error report when the first 
-//argument is []. For consistency, it should return a [] result, rather 
+//The built-in function part() generates an error report when the first
+//argument is []. For consistency, it should return a [] result, rather
 //than generate an error.
 
 if part([],1)<>[] then pause,end
 
 //testing overloading
 function t=%p_part(t,p)
-  n=horner(p,length(t))
-  t=part(t,n)
+    n=horner(p,length(t))
+    t=part(t,n)
 endfunction
 
-if part('xyz',$)<>'z' then pause,end
+if part("xyz",$)<>"z" then pause,end
 
 //testing overloading
 function t=%s_part(t,p)
-t=t(p)
+    t=t(p)
 endfunction
 
 if part([1 2 3],2)<>2 then pause,end
index a81913e..64aad91 100644 (file)
@@ -8,8 +8,8 @@
 //===============================
 // unit tests part
 //===============================
-EMPTY_STR = '';
-BLANK = ' ';
+EMPTY_STR = "";
+BLANK = " ";
 //===============================
 s = part(EMPTY_STR ,[]);
 if (s <> EMPTY_STR ) then bugmes();quit;end
@@ -19,44 +19,44 @@ N = 50;
 s = part(EMPTY_STR ,N);
 if (s <> BLANK) then bugmes();quit;end
 //===============================
-s = part(['a','abc','abcd'],[1,1,2]);
-if (s <> ['aa','aab','aab']) then bugmes();quit;end
+s = part(["a","abc","abcd"],[1,1,2]);
+if (s <> ["aa","aab","aab"]) then bugmes();quit;end
 //===============================
-s1 = part(['a','abc','abcd'],[2,4,6]);
-s2 = part(['a','abc','abcd'],[2,4,5]);
+s1 = part(["a","abc","abcd"],[2,4,6]);
+s2 = part(["a","abc","abcd"],[2,4,5]);
 if (s1 <> s2)  then bugmes();quit;end
-if (s1 <> ['   ','b','bd']) then bugmes();quit;end
+if (s1 <> ["   ","b","bd"]) then bugmes();quit;end
 //===============================
 N = 20;
 s = part(" ",ones(1,N));
 if (blanks(N) <> s) then bugmes();quit;end
 //===============================
-if part('abc',1)<>'a' then bugmes();quit;end
-if part('abc',[1 1])<>'aa' then bugmes();quit;end
-if part('abc',[1;1])<>'aa' then bugmes();quit;end
-if part('abc',[])<>emptystr() then bugmes();quit;end
-if part('abc',5)<>BLANK then bugmes();quit;end
-if part('abc',5:6)<>'  ' then bugmes();quit;end
-if or(part(['abc';'x'],1)<>['a';'x']) then bugmes();quit;end
-if or(part(['abc';'x'],[1,1])<>['aa';'xx']) then bugmes();quit;end
-if or(part(['abc';'x'],[1,2])<>['ab';'x ']) then bugmes();quit;end
-if or(part(['abc';'x'],[1;1])<>['aa';'xx']) then bugmes();quit;end
-if or(part(['abc';'x'],[1;2])<>['ab';'x ']) then bugmes();quit;end
-//===============================
-a=part(['a','abc','abcd'],[1]);
-assert_checkequal(a,['a','a','a']);
-a=part(['a','abc','abcd'],[1,1]);
-assert_checkequal(a,['aa','aa','aa']);
-a=part(['a','abc','abcd'],[1,1,2]);
-assert_checkequal(a,['aa ','aab','aab']);
-N = 10; a=part('-',ones(1:N));
+if part("abc",1)<>"a" then bugmes();quit;end
+if part("abc",[1 1])<>"aa" then bugmes();quit;end
+if part("abc",[1;1])<>"aa" then bugmes();quit;end
+if part("abc",[])<>emptystr() then bugmes();quit;end
+if part("abc",5)<>BLANK then bugmes();quit;end
+if part("abc",5:6)<>"  " then bugmes();quit;end
+if or(part(["abc";"x"],1)<>["a";"x"]) then bugmes();quit;end
+if or(part(["abc";"x"],[1,1])<>["aa";"xx"]) then bugmes();quit;end
+if or(part(["abc";"x"],[1,2])<>["ab";"x "]) then bugmes();quit;end
+if or(part(["abc";"x"],[1;1])<>["aa";"xx"]) then bugmes();quit;end
+if or(part(["abc";"x"],[1;2])<>["ab";"x "]) then bugmes();quit;end
+//===============================
+a=part(["a","abc","abcd"],[1]);
+assert_checkequal(a,["a","a","a"]);
+a=part(["a","abc","abcd"],[1,1]);
+assert_checkequal(a,["aa","aa","aa"]);
+a=part(["a","abc","abcd"],[1,1,2]);
+assert_checkequal(a,["aa ","aab","aab"]);
+N = 10; a=part("-",ones(1:N));
 assert_checkequal(a,"----------");
-N = 6; pat = '- ';
+N = 6; pat = "- ";
 a=part(pat, ones(1:N).*.(1:length(pat)));
 assert_checkequal(a,"- - - - - - ");
-a=part(['a string'  'another longer one'], $-2:$ );
+a=part(["a string"  "another longer one"], $-2:$ );
 assert_checkequal(a,["ing","one"]);
-a=part('Hello world', $:-1:1);
+a=part("Hello world", $:-1:1);
 assert_checkequal(a,"dlrow olleH");
-a=part('Hello world', [ $ 5:6 ]);
+a=part("Hello world", [ $ 5:6 ]);
 assert_checkequal(a,"do ");