fix ast tests
[scilab.git] / scilab / modules / ast / tests / unit_tests / newtype.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009-2010 - DIGITEO
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 ilib_verbose(0);
9 mkdir(pathconvert(TMPDIR+"/newtype"));
10 cd(pathconvert(TMPDIR+"/newtype"));
11 copyfile(SCI+"/modules/ast/tests/unit_tests/sci_newtype.cpp",pathconvert(TMPDIR+"/newtype/sci_newtype.cpp",%F));
12 copyfile(SCI+"/modules/ast/tests/unit_tests/newtype.hxx",pathconvert(TMPDIR+"/newtype/newtype.hxx",%F));
13 cflags = "-I"+SCI+"/modules/localization/includes";
14 cflags = cflags + " -I"+TMPDIR+"/newtype";
15 ilib_build("gw_newtype",["newtype","sci_newtype", "cppsci"],"sci_newtype.cpp",[],"","",cflags);
16 exec("loader.sce");
17 // toString call
18 a = newtype();
19 // check value
20 assert_checkequal(string(a), "This is my type.");
21 // check scilab display
22 a
23  a  = 
24 This is my type.
25 disp(a)
26 This is my type.
27 l=list(2, a, "test")
28  l  = 
29        l(1)
30    2.
31        l(2)
32 This is my type.
33        l(3)
34   "test"
35 // overload call
36 b = newtype(%f);
37 function %nt_p(h)
38     disp("%nt_p: This is my type.");
39 end
40 b
41  b  = 
42   "%nt_p: This is my type."
43 disp(b)
44   "%nt_p: This is my type."
45 l=list(2, b, "test")
46  l  = 
47        l(1)
48    2.
49        l(2)
50   "%nt_p: This is my type."
51        l(3)
52   "test"