1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
// =============================================================================
// 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.
// =============================================================================
// <-- JVM NOT MANDATORY -->
// <-- 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
|
