bug 14821: getio function added.
[scilab.git] / scilab / modules / io / tests / nonreg_tests / bug_14821.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - Scilab Enterprises - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- Non-regression test for bug 14821 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/14821
12 //
13 // <-- Short Description -->
14 // getio function has been added.
15
16 // WARNING: a diary file opened with test_run !
17 res = getio();
18 assert_checkequal(res, [5 5 1 6]);
19
20 a = diary(fullfile("TMPDIR", "diary.txt"));
21 res = getio();
22 assert_checkequal(res, [5 5 2 6]);
23
24 // error
25 str = "getio(1)";
26 assert_checkfalse(execstr(str   ,"errcatch") == 0);
27 refMsg = msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "getio", 0);
28 assert_checkerror(str, refMsg);
29
30 str = "[a,b] = getio()";
31 assert_checkfalse(execstr(str   ,"errcatch") == 0);
32 refMsg = msprintf(_("%s: Wrong number of output argument(s): %d expected.\n"), "getio", 1);
33 assert_checkerror(str, refMsg);
34
35