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
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Allan CORNET
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
function a = test_mode_foo(level_mode)
mode(level_mode);
a = mode();
endfunction
ierr = execstr('mode(7.2);','errcatch');
if ierr <> 999 then bugmes();quit;end
ierr = execstr('mode(''ffo'');','errcatch');
if ierr <> 999 then bugmes();quit;end
ierr = execstr('mode([1 2]);','errcatch');
if ierr <> 999 then bugmes();quit;end
ierr = execstr('mode(%t);','errcatch');
if ierr <> 999 then bugmes();quit;end
ref = -1;
r = test_mode_foo(ref);
if r <> ref then bugmes();quit;end
ref = 0;
r = test_mode_foo(ref);
if r <> ref then bugmes();quit;end
ref = 500;
r = test_mode_foo(ref);
if r <> ref then bugmes();quit;end
ref = 2;
mode(ref);
|
