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