Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / modules / fileio / tests / unit_tests / fprintf.tst
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 // <-- NO CHECK ERROR OUTPUT -->
9 // =============================================================================
10 wMode = warning("query");
11 warning("off");
12 fprintf(0,'My error which is going to be displayed on the stderr');
13 fprintf(6,'My error which is going to be displayed on the stdout');
14 // =============================================================================
15 u=file('open',TMPDIR + filesep() + 'Fresults','unknown');
16 t=0:0.1:2*%pi;
17 for tk = t
18   fprintf(u,'time = %6.3f value = %6.3f',tk,sin(tk));
19 end
20 file('close',u);
21
22 if fileinfo(TMPDIR + filesep() + 'Fresults') ==  [] then pause,end
23 // =============================================================================
24 fd = mopen(TMPDIR + filesep() + 'Cresults','wt');
25 t=0:0.1:2*%pi;
26 for tk = t
27   fprintf(fd,'time = %6.3f value = %6.3f',tk,sin(tk));
28 end
29 mclose(fd);
30 if fileinfo(TMPDIR + filesep() + 'Fresults') ==  [] then pause,end
31 // =============================================================================
32 t=0:0.1:2*%pi;
33 for tk = t
34   fprintf(TMPDIR + filesep() + 'results2','time = %6.3f value = %6.3f',tk,sin(tk));
35 end
36 if fileinfo(TMPDIR + filesep() + 'results2') ==  [] then pause,end
37 // =============================================================================
38 fprintf(6,"fprintf test 1:%s\n", "simple string");
39 // =============================================================================
40 fprintf(6,"fprintf test 2:%d\n", 42);
41 // =============================================================================
42 fprintf(6,"fprintf test 3:%f\n", 10.0/3);
43 // =============================================================================
44 fprintf(6,"fprintf test 4:%.10f\n", 10.0/3);
45 // =============================================================================
46 fprintf(6,"fprintf test 5:%-10.2f\n", 2.5);
47 // =============================================================================
48 fprintf(6,"fprintf test 6:%-010.2f\n", 2.5);
49 // =============================================================================
50 fprintf(6,"fprintf test 7:%010.2f\n", 2.5);
51 // =============================================================================
52 fprintf(6,"fprintf test 8:<%20s>\n", "foo");
53 // =============================================================================
54 fprintf(6,"fprintf test 9:<%-20s>\n", "bar");
55 // =============================================================================
56 fprintf(6,"fprintf test 10: 123456789012345\n");
57 // =============================================================================
58 fprintf(6,"fprintf test 11:<%15s>\n", "h√łyesterettsjustitiarius");
59 // =============================================================================
60 fprintf(6,"fprintf test 12: 123456789012345678901234567890\n");
61 // =============================================================================
62 fprintf(6,"fprintf test 13:<%30s>\n", "h√łyesterettsjustitiarius");
63 // =============================================================================
64 fprintf(6,"fprintf test 14:%5.2f\n", -12.34);
65 // =============================================================================
66 fprintf(6,"fprintf test 15:%5d\n", -12);
67 // =============================================================================
68 fprintf(6,"fprintf test 16:%x\n", 170);
69 // =============================================================================
70 fprintf(6,"fprintf test 17:%X\n", 170);
71 // =============================================================================
72 fprintf(6,"fprintf test 18:%.5s\n", "abcdefghij");
73 // =============================================================================
74 fprintf(6,"fprintf test 195:%-2s\n", "gazonk");
75 // =============================================================================
76 ierr = execstr('fprintf(6,5,5)','errcatch');
77 if ierr <> 999 then pause,end
78 // =============================================================================
79 ierr = execstr('fprintf(1000,''%d'',5)','errcatch');
80 if ierr <> 999 then pause,end
81 // =============================================================================
82 FILENAMES=[TMPDIR + filesep() + 'results1',TMPDIR + filesep() + 'results2'];
83 ierr = execstr('fprintf(FILENAMES,''%d'',5)','errcatch');
84 if ierr <> 999 then pause,end
85 // =============================================================================
86 FMTS=["%s","%s"];
87 ierr = execstr('fprintf(6,FMTS,5)','errcatch');
88 if ierr <> 999 then pause,end
89 // =============================================================================
90 warning(wMode);