* Bug #14375 fixed - Calling input function with a argument of 64 characters or more...
[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.    32.]) then pause,end
11
12 [curprompt, pause_level] = prompt();
13 if curprompt <> ascii([45.    45.    62.    32.]) then pause,end
14 assert_checkequal(pause_level, 0);
15
16 prompt("-- My Prompt -->");
17 1+1;
18
19 ierr = execstr("[a,b,c] = prompt();","errcatch");
20 assert_checkequal(ierr, 999);
21
22 ierr = execstr("[a,b] = prompt(1);","errcatch");
23 assert_checkequal(ierr, 999);
24
25 ierr = execstr("[a,b] = prompt(''1'');","errcatch");
26 assert_checkequal(ierr, 999);
27
28 ierr = execstr("prompt(""1234567890123456789012345678901234567890123456789012345678901234"");","errcatch");
29 assert_checkequal(ierr, 999);
30
31 ierr = execstr("prompt(""123456789012345678901234567890123456789012345678901234567890123"");","errcatch");
32 assert_checkequal(ierr, 0);
33
34 ierr = execstr("prompt(""这段文字很长这段文字很长这段文字很长这段文字很长这段文字很长"");", "errcatch");
35 assert_checkequal(ierr, 999);
36