* Bug #13166: NR test added: 'l' & 'b' flags were sticky in mget & mgeti
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_13166.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 13166 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/13166
14 //
15 // <-- Short Description -->
16 // The "l" and "b" endian modes were sticky with mget and mgeti
17 binfile = TMPDIR+"/mgetest.bin";
18 idF = mopen(binfile, "wb");
19 mput(int8(0:16),"uc");
20 mclose(idF);
21 for mod = ["c" "uc" "s" "us" "i" "ui" "l" "ul"]
22     idF = mopen(binfile, "rb");
23     dres = mget(1, mod);   // Default endian mode
24     mseek(0);
25     mget(1, mod+"l");
26     mseek(0);
27     assert_checkequal(mget(1,mod), dres);
28     mseek(0);
29     mget(1, mod+"b");
30     mseek(0);
31     assert_checkequal(mget(1, mod), dres);
32     mseek(0);
33     dres = mgeti(1, mod);
34     mseek(0);
35     mgeti(1, mod+"l");
36     mseek(0);
37     assert_checkequal(mgeti(1, mod), dres);
38     mseek(0);
39     mgeti(1, mod+"b");
40     mseek(0);
41     assert_checkequal(mgeti(1, mod), dres);
42     mclose(idF);
43 end