Removed tests using fun2string (removed function). 25/15725/6
Anais AUBERT [Mon, 22 Dec 2014 10:03:56 +0000 (11:03 +0100)]
Change-Id: Iaed8834538883fe519b220966c6d6f2a3ca21861

23 files changed:
git_hooks/pre-commit
scilab/modules/functions/tests/nonreg_tests/bug_1074.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_1074.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2347.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2347.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2378.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2378.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2420.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2420.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2476.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_2476.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_528.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_528.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_670.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_670.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_6841.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_6841.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_7163.tst [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_7369.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_7369.tst [deleted file]
scilab/modules/functions/tests/unit_tests/fun2string.dia.ref [deleted file]
scilab/modules/functions/tests/unit_tests/fun2string.tst [deleted file]

index 2fce661..0f4e39a 100755 (executable)
@@ -109,8 +109,8 @@ indent() {
     FILES=$(git diff --cached --name-only --diff-filter=ACM $against |grep -E "\.java$" |grep -v -F "$ASTYLE_IGNORED")
     [ -z "$FILES" ] || __indent_java;
 
-    FILES=$(git diff --cached --name-only --diff-filter=ACM $against |grep -E "\.(sce|sci|tst)$")
-    [ -z "$FILES" ] || __indent_scilab;
+#    FILES=$(git diff --cached --name-only --diff-filter=ACM $against |grep -E "\.(sce|sci|tst)$")
+#    [ -z "$FILES" ] || __indent_scilab;
 
     return 0;
 }
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_1074.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_1074.dia.ref
deleted file mode 100644 (file)
index 190948a..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-// <-- Non-regression test for bug 1074 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1074
-//
-// <-- Short Description -->
-//    fun2string()  converts anomalously function calls with more
-//    than 1 return argument, and does not retain the function name
-// Non-regression test file for bug 1057
-// Pierre MARECHAL - Scilab Project
-// Copyright INRIA
-// 1er juin 2005
-mode(-1);
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_1074.tst b/scilab/modules/functions/tests/nonreg_tests/bug_1074.tst
deleted file mode 100644 (file)
index 766c07c..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 1074 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1074
-//
-// <-- Short Description -->
-//    fun2string()  converts anomalously function calls with more
-//    than 1 return argument, and does not retain the function name
-
-mode(-1);
-clear;
-
-function foo()
-       [a,b,c]=foo1(1)
-endfunction
-
-A = fun2string(foo)
-B = ["function []=ans()";"  [a,b,c] = foo1(1)";"endfunction"]
-
-if or( A <> B ) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2347.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_2347.dia.ref
deleted file mode 100644 (file)
index 87a781d..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2009 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 2347 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2347
-//
-// <-- Short Description -->
-// fun2string does not correctly indent several 'case' clauses.
-//
-function testfun(a)
-select a
-case 1 then
-disp('a is 1')
-case 2 then
-disp('a is')
-disp('2')
-case 3 then
-disp('3')
-else
-disp('a is greater')
-end
-endfunction
-s=fun2string(testfun,'testf');
-ref=["function []=testf(a)";
-     "  select a";
-     "  case 1 then";
-     "    disp(''a is 1'')";
-     "  case 2 then";
-     "    disp(''a is'')";
-     "    disp(''2'')";
-     "  case 3 then";
-     "    disp(''3'')";
-     "  else";
-     "    disp(''a is greater'')";
-     "  end,";
-     "endfunction"]
- ref  =
-!function []=testf(a)      !
-!                          !
-!  select a                !
-!                          !
-!  case 1 then             !
-!                          !
-!    disp('a is 1')        !
-!                          !
-!  case 2 then             !
-!                          !
-!    disp('a is')          !
-!                          !
-!    disp('2')             !
-!                          !
-!  case 3 then             !
-!                          !
-!    disp('3')             !
-!                          !
-!  else                    !
-!                          !
-!    disp('a is greater')  !
-!                          !
-!  end,                    !
-!                          !
-!endfunction               !
-if or(s<>ref) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2347.tst b/scilab/modules/functions/tests/nonreg_tests/bug_2347.tst
deleted file mode 100644 (file)
index ce93faf..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2009 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 2347 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2347
-//
-// <-- Short Description -->
-// fun2string does not correctly indent several 'case' clauses.
-//    
-function testfun(a)
-select a
-case 1 then
-disp('a is 1')
-case 2 then
-disp('a is')
-disp('2')
-case 3 then
-disp('3')
-else
-disp('a is greater')
-end
-endfunction
-s=fun2string(testfun,'testf');                    
-ref=["function []=testf(a)";
-     "  select a";
-     "  case 1 then";
-     "    disp(''a is 1'')";
-     "  case 2 then";
-     "    disp(''a is'')";
-     "    disp(''2'')";
-     "  case 3 then";
-     "    disp(''3'')";
-     "  else";
-     "    disp(''a is greater'')";
-     "  end,";
-     "endfunction"]
-if or(s<>ref) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2378.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_2378.dia.ref
deleted file mode 100644 (file)
index 81ae22f..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Vincent COUVERT
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 2378 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2378
-//
-// <-- Short Description -->
-//     fun2string produces erroneous output (an extra 2 character appears) when there is a comment after an assignment.
-function []=f()
-a=b//
-endfunction
-t=fun2string(f);
-if or(stripblanks(t)<>["function []=ans()";"a = b//";"endfunction"]) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2378.tst b/scilab/modules/functions/tests/nonreg_tests/bug_2378.tst
deleted file mode 100644 (file)
index 902efe5..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Vincent COUVERT
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 2378 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2378
-//
-// <-- Short Description -->
-//     fun2string produces erroneous output (an extra 2 character appears) when there is a comment after an assignment.
-
-function []=f()                                          
-a=b//                                   
-endfunction   
-
-t=fun2string(f);
-if or(stripblanks(t)<>["function []=ans()";"a = b//";"endfunction"]) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2420.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_2420.dia.ref
deleted file mode 100644 (file)
index 0bf6ba3..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 2420 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2420
-//
-// <-- Short Description -->
-//    fun2string converts the sequence \@ as carriage return
-function a=strudel(),a='+\@+';endfunction
-t=fun2string(strudel);
-if stripblanks(t)<>"function a=ans(),a = ''+\@+'';endfunction" then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2420.tst b/scilab/modules/functions/tests/nonreg_tests/bug_2420.tst
deleted file mode 100644 (file)
index 8f7160a..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 2420 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2420
-//
-// <-- Short Description -->
-//    fun2string converts the sequence \@ as carriage return
-
-function a=strudel(),a='+\@+';endfunction
-t=fun2string(strudel);
-if stripblanks(t)<>"function a=ans(),a = ''+\@+'';endfunction" then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2476.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_2476.dia.ref
deleted file mode 100644 (file)
index 785a6de..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 2476 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2476
-//
-// <-- Short Description -->
-//    Problems with quit and exit when using fun2string
-function foo1,exit,endfunction
-function foo2,quit,endfunction
-if execstr('fun2string(foo1)','errcatch')<>0 then bugmes();quit;end
-if execstr('fun2string(foo2)','errcatch')<>0 then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_2476.tst b/scilab/modules/functions/tests/nonreg_tests/bug_2476.tst
deleted file mode 100644 (file)
index 5de44ee..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 2476 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=2476
-//
-// <-- Short Description -->
-//    Problems with quit and exit when using fun2string
-
-
-function foo1,exit,endfunction
-function foo2,quit,endfunction
-
-if execstr('fun2string(foo1)','errcatch')<>0 then pause,end
-if execstr('fun2string(foo2)','errcatch')<>0 then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_528.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_528.dia.ref
deleted file mode 100644 (file)
index f4da9e5..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 528 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=528
-//
-// <-- Short Description -->
-//    Bug Report Id: 12711200382914450
-//     misleading error message (I think the error means: "hardcoded function cannot be translated in lingo")
-//
-//    On Scilab CVS with " fun2string()   " function
-//    The Error Messages are:
-//      -->fun2string(ones)    
-//     Warning: obsolete use of eye rand or ones
-//                 !       
-//
-//
-//     !--error    44 
-//    first argument is incorrect
-//    at line      13 of function fun2string               called by :  
-//    fun2string(ones)
-//
-//
-//
-//    Commands:  fun2string(ones)   
-//
-//    Enrico SEGRE on Linux version  distribution RH9-i386 with   as window manager
-// ...
-// exec("bug528.sce")
-execstr("fun2string(ones)","errcatch");
-if lasterror()<> msprintf(gettext("Wrong first argument.\n")) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_528.tst b/scilab/modules/functions/tests/nonreg_tests/bug_528.tst
deleted file mode 100644 (file)
index c332382..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 528 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=528
-//
-// <-- Short Description -->
-//    Bug Report Id: 12711200382914450
-//     misleading error message (I think the error means: "hardcoded function cannot be translated in lingo")
-//
-//    On Scilab CVS with " fun2string()   " function
-//    The Error Messages are:
-//      -->fun2string(ones)    
-//     Warning: obsolete use of eye rand or ones
-//                 !       
-//
-//
-//     !--error    44 
-//    first argument is incorrect
-//    at line      13 of function fun2string               called by :  
-//    fun2string(ones)
-//
-//
-//
-//    Commands:  fun2string(ones)   
-//
-//    Enrico SEGRE on Linux version  distribution RH9-i386 with   as window manager
-// ...
-
-// exec("bug528.sce")
-
-execstr("fun2string(ones)","errcatch");
-if lasterror()<> msprintf(gettext("Wrong first argument.\n")) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_670.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_670.dia.ref
deleted file mode 100644 (file)
index 83ccf72..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-// <-- Non-regression test for bug 670 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=670
-//
-// <-- Short Description -->
-//    Stack problem in FUN2STRING. Occurs in many different
-//    situations, one situation can be reproduced using the code
-//    below.
-// Copyright INRIA
-// Scilab Project - Serge Steer
-// Copyright INRIA 2006
-// Date : 10 janvier 2006
-deff('a = foo()', ...
-               'b = tlist([''b''; ''c''], 0); ' + ...
-               'a = tlist([''a''; ''b''], b); ' + ...
-               'a.b.c = getText() + ''text 2'' ');
-t=fun2string(foo);
-t_ref=["function a=ans()";
-"  b = tlist([''b'';''c''], 0);a = tlist([''a'';''b''], b);a.b.c = getText() + ''text 2''";
-"endfunction"];
-if or( t <> t_ref ) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_670.tst b/scilab/modules/functions/tests/nonreg_tests/bug_670.tst
deleted file mode 100644 (file)
index b73579e..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 670 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=670
-//
-// <-- Short Description -->
-//    Stack problem in FUN2STRING. Occurs in many different 
-//    situations, one situation can be reproduced using the code 
-//    below.
-
-deff('a = foo()', ...
-               'b = tlist([''b''; ''c''], 0); ' + ...
-               'a = tlist([''a''; ''b''], b); ' + ...
-               'a.b.c = getText() + ''text 2'' ');
-
-t=fun2string(foo);
-
-t_ref=["function a=ans()";
-"  b = tlist([''b'';''c''], 0);a = tlist([''a'';''b''], b);a.b.c = getText() + ''text 2''";
-"endfunction"];
-
-if or( t <> t_ref ) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_6841.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_6841.dia.ref
deleted file mode 100644 (file)
index 1b2198f..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Vincent COUVERT
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 6841 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=6841
-//
-// <-- Short Description -->
-// fun2string does not work on a simple example.
-function myfoo ( )
-  B = zeros(2,1)
-  v = B(1,1)
-endfunction
-fun2string(myfoo)
- ans  =
-!function []=ans()  !
-!                   !
-!  B = zeros(2, 1)  !
-!                   !
-!  v = B(1, 1)      !
-!                   !
-!endfunction        !
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_6841.tst b/scilab/modules/functions/tests/nonreg_tests/bug_6841.tst
deleted file mode 100644 (file)
index 9374e30..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Vincent COUVERT
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 6841 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=6841
-//
-// <-- Short Description -->
-// fun2string does not work on a simple example.
-
-function myfoo ( )
-  B = zeros(2,1)
-  v = B(1,1)
-endfunction
-fun2string(myfoo)
\ No newline at end of file
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref
deleted file mode 100644 (file)
index 9e04606..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 7163 -->
-//
-// <-- Bugzilla URL -->
-// http://www.scilab.org/cgi-bin/bugzilla_bugAdmin_II/show_bug.cgi?id=7163
-//
-// <-- Short Description -->
-//   assignment index : are translated into eye()
-function foo
-  a(:)
-  a(:,1)
-  a(1,:)
-  a(:,:)
-  a(:)=3
-  a(:,1)=4
-  a(1,:)=5
-  a(:,:)=6
-endfunction
-t=stripblanks(fun2string(foo));
-t=strsubst(t(2:$-1),' ','');
-tref=["a(:)";"a(:,1)";"a(1,:)";"a(:,:)";"";"a(:)=3";"a(:,1)=4";"a(1,:)=5";"a(:,:)=6"];
-if or(t<>tref) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_7163.tst b/scilab/modules/functions/tests/nonreg_tests/bug_7163.tst
deleted file mode 100644 (file)
index d6d660f..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// <-- Non-regression test for bug 7163 -->
-//
-// <-- Bugzilla URL -->
-// http://www.scilab.org/cgi-bin/bugzilla_bugAdmin_II/show_bug.cgi?id=7163
-//
-// <-- Short Description -->
-//   assignment index : are translated into eye()
-function foo
-  a(:)
-  a(:,1)
-  a(1,:)
-  a(:,:)
-
-  a(:)=3
-  a(:,1)=4
-  a(1,:)=5
-  a(:,:)=6
-endfunction
-t=stripblanks(fun2string(foo));
-t=strsubst(t(2:$-1),' ','');
-tref=["a(:)";"a(:,1)";"a(1,:)";"a(:,:)";"";"a(:)=3";"a(:,1)=4";"a(1,:)=5";"a(:,:)=6"];
-if or(t<>tref) then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_7369.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_7369.dia.ref
deleted file mode 100644 (file)
index 75b6af0..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 7619 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7369
-//
-// <-- Short Description -->
-//fun2string may produce invalid output code
-function y=foo(ntimes)
-  a=33;b=7;
-  y  = sqrt(a/ntimes - (b/ntimes)^2);
-endfunction
-execstr(fun2string(foo,"foo1"));
-if foo(4)<>foo1(4) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_7369.tst b/scilab/modules/functions/tests/nonreg_tests/bug_7369.tst
deleted file mode 100644 (file)
index 2a73a60..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 7619 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7369
-//
-// <-- Short Description -->
-//fun2string may produce invalid output code
-
-function y=foo(ntimes)
-  a=33;b=7;
-  y  = sqrt(a/ntimes - (b/ntimes)^2);
-endfunction
-
-execstr(fun2string(foo,"foo1"));
-if foo(4)<>foo1(4) then pause,end
diff --git a/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref b/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref
deleted file mode 100644 (file)
index 5d72325..0000000
+++ /dev/null
@@ -1,174 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-funcprot(0);
-function y=foo(a)
-  y=a+1
-endfunction
-ref=["function y=ans(a)";
-     "  y = a + 1";
-     "endfunction"];
-if or(fun2string(foo)<>ref) then bugmes();quit;end
-ref=["function y=foo(a)";
-     "  y = a + 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function y=foo()
-  y=1
-endfunction
-ref=["function y=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-  y=1
-endfunction
-ref=["function []=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-  y=1,
-endfunction
-ref=["function []=foo()";
-     "  y = 1,";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-  y=1;
-endfunction
-ref=["function []=foo()";
-     "  y = 1;";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo(),y=1
-endfunction
-ref=["function []=foo(),y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo(),y=1;endfunction
-ref=["function []=foo(),y = 1;endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo(),endfunction
-ref=["function []=foo(),endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-if %t then a=1,end
-if b==3 then
-  a=5
-else
-  c=8
-end
-endfunction
-ref = ["function []=foo()";
-       "  if %t then   a = 1,end,";
-       "  if b == 3 then ";
-       "    a = 5";
-       "  else ";
-       "    c = 8";
-       "  end,";
-       "endfunction"]
- ref  =
-!function []=foo()          !
-!                           !
-!  if %t then   a = 1,end,  !
-!                           !
-!  if b == 3 then           !
-!                           !
-!    a = 5                  !
-!                           !
-!  else                     !
-!                           !
-!    c = 8                  !
-!                           !
-!  end,                     !
-!                           !
-!endfunction                !
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-// with deff
-// ---------
-deff('foo','y=1')
-ref=["function []=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-deff('foo',['y=1';'z=3;'])
-ref=["function []=foo()";
-     "  y = 1";
-     "  z = 3;";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-// with getf
-// ------------
-ref=["function []=foo()";
-     "  y = 1";
-     "  z = 3;";
-     "endfunction"];
-mputl(ref,TMPDIR+'/foo.sci');
-warning('off');
-exec(TMPDIR+'/foo.sci');
-warning('on');
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-// with nested functions
-// ---------------------
-function y=foo(x)
-  function y=foo1(x),
-  y=x+1;
-  endfunction
-endfunction
-ref= ["function y=foo(x)";
-      "  function y=foo1(x)";
-      "    y=x+1;";
-      "  endfunction";
-      "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-  function foo3,a=1,
-  endfunction,
-endfunction    
-ref=["function []=foo()";
-     "  function foo3,a=1,";
-     "  endfunction,";
-     "endfunction"]
- ref  =
-!function []=foo()     !
-!                      !
-!  function foo3,a=1,  !
-!                      !
-!  endfunction,        !
-!                      !
-!endfunction           !
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()
-  function foo3,a=1,endfunction
-endfunction    
-ref=["function []=foo()";
-     "  function foo3,a=1,endfunction";
-     "endfunction"]; 
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-// with comments
-// -------------
-function a=foo//
-    if a> 10 then //
-    end 
-endfunction
-ref= ["function a=foo(),//";
-      "  if a > 10 then   //";
-      "  end,";
-      "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
-function foo()//
-  function foo3()//
-  endfunction
-endfunction    
-ref=["function []=foo(),//";
-     "  function foo3(),//";
-     "  endfunction";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/unit_tests/fun2string.tst b/scilab/modules/functions/tests/unit_tests/fun2string.tst
deleted file mode 100644 (file)
index 8d52d99..0000000
+++ /dev/null
@@ -1,177 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-funcprot(0);
-
-function y=foo(a)
-  y=a+1
-endfunction
-ref=["function y=ans(a)";
-     "  y = a + 1";
-     "endfunction"];
-if or(fun2string(foo)<>ref) then pause,end
-
-ref=["function y=foo(a)";
-     "  y = a + 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-function y=foo()
-  y=1
-endfunction
-ref=["function y=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-function foo()
-  y=1
-endfunction
-ref=["function []=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-function foo()
-  y=1,
-endfunction
-ref=["function []=foo()";
-     "  y = 1,";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-function foo()
-  y=1;
-endfunction
-ref=["function []=foo()";
-     "  y = 1;";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-function foo(),y=1
-endfunction
-ref=["function []=foo(),y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-function foo(),y=1;endfunction
-ref=["function []=foo(),y = 1;endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-function foo(),endfunction
-ref=["function []=foo(),endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-function foo()
-if %t then a=1,end
-if b==3 then
-  a=5
-else
-  c=8
-end
-endfunction
-ref = ["function []=foo()";
-       "  if %t then   a = 1,end,";
-       "  if b == 3 then ";
-       "    a = 5";
-       "  else ";
-       "    c = 8";
-       "  end,";
-       "endfunction"]
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-
-// with deff
-// ---------
-deff('foo','y=1')
-ref=["function []=foo()";
-     "  y = 1";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-deff('foo',['y=1';'z=3;'])
-ref=["function []=foo()";
-     "  y = 1";
-     "  z = 3;";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-// with getf
-// ------------
-ref=["function []=foo()";
-     "  y = 1";
-     "  z = 3;";
-     "endfunction"];
-mputl(ref,TMPDIR+'/foo.sci');
-warning('off');
-exec(TMPDIR+'/foo.sci');
-warning('on');
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-// with nested functions
-// ---------------------
-function y=foo(x)
-  function y=foo1(x),
-  y=x+1;
-  endfunction
-endfunction
-ref= ["function y=foo(x)";
-      "  function y=foo1(x)";
-      "    y=x+1;";
-      "  endfunction";
-      "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-
-function foo()
-  function foo3,a=1,
-  endfunction,
-endfunction    
-ref=["function []=foo()";
-     "  function foo3,a=1,";
-     "  endfunction,";
-     "endfunction"]
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-function foo()
-  function foo3,a=1,endfunction
-endfunction    
-ref=["function []=foo()";
-     "  function foo3,a=1,endfunction";
-     "endfunction"]; 
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-// with comments
-// -------------
-function a=foo//
-    if a> 10 then //
-    end 
-endfunction
-ref= ["function a=foo(),//";
-      "  if a > 10 then   //";
-      "  end,";
-      "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end
-
-
-function foo()//
-  function foo3()//
-  endfunction
-endfunction    
-ref=["function []=foo(),//";
-     "  function foo3(),//";
-     "  endfunction";
-     "endfunction"];
-if or(fun2string(foo,'foo')<>ref) then pause,end