Fix tests after 3f9d15da
[scilab.git] / scilab / modules / io / tests / nonreg_tests / bug_14058.dia.ref
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2015 - Scilab Enterprises - Charlotte Hecquet
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- Non-regression test for bug 14058 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/14058
12 //
13 // <-- Short Description -->
14 // Scilab crashes with 'file("close", file())' instruction
15 [units,typs,nams] = file();
16 u = mopen(SCI+'/ACKNOWLEDGEMENTS', 'rt');
17 u2 = mopen(SCI+'/CHANGES', 'rt');
18 [units_open,typs,nams] = file();
19 assert_checkequal(gsort([units, u, u2], "c", "i"), units_open);
20 file("close", file());
21 [units_close,typs,nams] = file();
22 // Delete 1 in units because it represents bug_14058.tst file which was opened in Scilab
23 ind = find(units == 1);
24 units(ind) = [];
25 assert_checkequal(units_close, units);