Set svn:eol-style to native
[scilab.git] / scilab / modules / graphics / tests / unit_tests / xlfont.tst
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
8
9 // <-- TEST WITH GRAPHIC -->
10
11 fonts = xlfont();
12 if size(fonts,'*') <> 11 then pause,end
13
14 default_fonts = [ "Monospaced" , ..
15 "Symbol" , ..
16 "Serif" , ..
17 "Serif" , ..
18 "Serif" , ..
19 "Serif" , ..
20 "SansSerif" , ..
21 "SansSerif" , ..
22 "SansSerif" , ..
23 "SansSerif" , ..
24 "SansSerif" ];
25
26 if ~MSDOS then 
27 default_fonts = strsubst(default_fonts,'Symbol','OpenSymbol');
28 end
29
30 if ( or(fonts <> default_fonts) ) then pause,end
31
32 availablefonts = xlfont('AVAILABLE_FONTS');
33 if size(availablefonts,'*') < 11 then pause,end
34
35 for i=0:size(fonts,'*')-1
36   xlfont(default_fonts(1),i);
37 end  
38 ref = emptystr(1:size(fonts,'*')) + default_fonts(1);
39 fonts = xlfont();
40
41 if ( and(fonts <> default_fonts) ) then pause,end
42
43 for i=0:size(fonts,'*')-1
44   xlfont(default_fonts(2),i,%t);
45 end  
46 ref = emptystr(1:size(fonts,'*')) + default_fonts(2);
47 fonts = xlfont();
48
49 if ( and(fonts <> default_fonts) ) then pause,end
50
51 for i=0:size(fonts,'*')-1
52   xlfont(default_fonts(2),i,%t,%t);
53 end  
54 ref = emptystr(1:size(fonts,'*')) + default_fonts(2);
55 fonts = xlfont();
56
57 if ( and(fonts <> default_fonts) ) then pause,end
58