[functions] fix tests
[scilab.git] / scilab / modules / functions / tests / unit_tests / exec_UTF8BOM.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 tab_ref = [
9 "世界您好",
10 "азеазея",
11 "ハロー・ワールド",
12 "เฮลโลเวิลด์",
13 "حريات وحقوق",
14 "תוכנית"];
15 str_exec = 'disp(''OK'');';
16 for i = 1 : size(tab_ref,'*')
17   mkdir(TMPDIR + filesep() + tab_ref(i));
18   fd = mopen(TMPDIR + filesep() + tab_ref(i) + filesep() + tab_ref(i) + '.sce','wt');
19   mputl(str_exec,fd);
20   mclose(fd);
21   exec(TMPDIR + filesep() + tab_ref(i) + filesep() + tab_ref(i) + '.sce');
22   mdelete(TMPDIR + filesep() + tab_ref(i) + filesep() + tab_ref(i) + '.sce');
23   rmdir(TMPDIR + filesep() + tab_ref(i));
24 end
25   "OK"
26   "OK"
27   "OK"
28   "OK"
29   "OK"
30   "OK"
31 // create a script file
32 mputl('a=1;b=2',TMPDIR+'/myscript')
33  ans  =
34   T
35 // execute it
36 exec(TMPDIR+'/myscript')
37 a=1;b=2
38  b  = 
39    2.
40 if isdef('a')<> %t then bugmes();quit;end
41 if isdef('b')<> %t then bugmes();quit;end
42 if a <> 1 then bugmes();quit;end
43 if b <> 2 then bugmes();quit;end
44 // create a function
45 deff('y=foo(x)','a=x+1;y=a^2');
46 clear a b
47 // call the function
48 k = foo(1);
49 if isdef('k')<> %t then bugmes();quit;end
50 if isdef('a')<> %f then bugmes();quit;end
51 if k <> 4 then bugmes();quit;end
52 x=4; //create x to make it known by the script foo
53 clear k y
54 exec(foo);
55  y  = 
56    25.
57 if isdef('y')<> %t then bugmes();quit;end
58 if y <> 25 then bugmes();quit;end