fix prompt
[scilab.git] / scilab / modules / console / tests / unit_tests / prompt.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // =============================================================================
9 curprompt = prompt();
10 if curprompt <> ascii([45.    45.    62.]) then pause,end
11
12 [curprompt, pause_level] = prompt();
13 if curprompt <> ascii([45.    45.    62.]) then pause,end
14 if pause_level <> 0 then pause,end
15
16 prompt("-- My Prompt -->");
17 1+1;
18
19 ierr = execstr("[a,b,c] = prompt();","errcatch");
20 if ierr <> 999 then pause,end
21
22 ierr = execstr("[a,b] = prompt(1);","errcatch");
23 if ierr <> 999 then pause,end
24
25 ierr = execstr("[a,b] = prompt(''1'');","errcatch");
26 if ierr <> 999 then pause,end
27 // =============================================================================
28