8e6c1b92b51faf3f2cb01bca583ac3c8c8a92bdb
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_3831.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 3831 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=3831
12 //
13 // <-- Short Description -->
14 // Display bug of ascii() in SciLab 5.x
15 // In scilab 6, ascii(0) is equal to '\0' (end of string)
16 refASCIICODE = [84  114  97  110  115  109  105  115  115  105  111  110];
17 refSTRING = "Transmission";
18 res = ascii(refASCIICODE);
19 if length(res) <> length(refSTRING) then bugmes();quit;end
20 if refSTRING <> res then bugmes();quit;end
21 refASCIICODE2 = [84  114  97  110  115  105  115  115  105  111  110];
22 refSTRING2 = "Trans" + ascii(0) + "ission";
23 // no ; to display result
24 res = ascii(refASCIICODE2)
25  res  = 
26  Transission
27 if length(res) <> length(refSTRING2) then bugmes();quit;end
28 if refSTRING2 <> res then bugmes();quit;end
29 refASCIICODE3 = [84  114  97  110  115  0  105  115  115  105  111  110];
30 refSTRING3 = "Trans" + ascii(0);
31 // no ; to display result
32 res = ascii(refASCIICODE3)
33  res  = 
34  Trans
35 if length(res) <> length(refSTRING3) then bugmes();quit;end
36 if refSTRING3 <> res then bugmes();quit;end