Add ENGLISH IMPOSED sentence in tests.
[scilab.git] / scilab / modules / fileio / tests / unit_tests / copyfile.win.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA - Bruno JOFRET <bruno.jofret@inria.fr>
4 // Copyright (C) 2007-2008 - INRIA - Allan CORNET
5 // Copyright (C) 2009 - DIGITEO - Allan CORNET
6 //
7 //  This file is distributed under the same license as the Scilab package.
8 // =============================================================================
9 // <-- CLI SHELL MODE -->
10 // <-- ENGLISH IMPOSED -->
11 // =============================================================================
12 // Date   : 13/12/2007
13 //
14 // Unitary tests for copyfile function
15 // =============================================================================
16 // TEST 1 : copyfile
17 tab_ref = [
18 "世界您好",
19 "азеазея",
20 "ハロー・ワールド",
21 "เฮลโลเวิลด์",
22 "حريات وحقوق",
23 "프로그램",
24 "프로그램",
25 "תוכנית"];
26 cd TMPDIR;
27 mkdir test_copyfile_source;
28 mkdir test_copyfile_target;
29 cd('test_copyfile_source');
30 for i = 1 : size(tab_ref,"*")
31         filename = tab_ref(i) + '.orig';
32         mputl('I am a dummy String : ' + tab_ref(i), filename);
33         if fileinfo(filename) == [] then bugmes();quit;end
34 end
35 for i = 1 : size(tab_ref,"*")
36         orig = tab_ref(i) + '.orig';
37         dest = tab_ref(i) + '.dest';
38         r = copyfile(TMPDIR+'/test_copyfile_source/' + orig, TMPDIR+'/test_copyfile_target/' + dest);
39         if r <> 1 then bugmes();quit;end
40         if fileinfo(TMPDIR+'/test_copyfile_target/' + dest) == [] then bugmes();quit;end
41 end
42 cd TMPDIR;
43 rmdir('test_copyfile_source', 's');
44 rmdir('test_copyfile_target', 's');
45 // =============================================================================
46 cd TMPDIR;
47 dir1="test dir with space";
48 dir2="test dir with space number 2";
49 file1='dummyFile.dummy';
50 mkdir(dir1);
51 mkdir(dir2);
52 mputl('I am a dummy String', dir1+'/'+file1);
53 copyfile(dir1+'/'+file1,dir2);
54 lsResult = ls(dir2+'/'+file1);
55 if lsResult == [] then bugmes();quit;end
56 // =============================================================================
57 removedir(TMPDIR+'/etc');
58 removedir: Warning: Directory 'TMPDIR\etc' does not exist.
59 ierr = execstr("copyfile(SCI+""etc"",TMPDIR)","errcatch");
60 if ierr <> 999 then bugmes();quit;end
61 // =============================================================================
62 ref_files = ['fileio.start','fileio.quit'];
63 // =============================================================================
64 // copy a directory into a directory
65 a = copyfile(SCI+'/modules/fileio/etc',TMPDIR);
66 if (a <> 1) then bugmes();quit;end
67 if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
68 if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
69 mdelete(TMPDIR + filesep() + ref_files(1));
70 mdelete(TMPDIR + filesep() + ref_files(2));
71 // =============================================================================
72 // copy a directory into a directory  with separator(s)
73 a = copyfile(SCI+'/modules/fileio/etc',TMPDIR + filesep());
74 if (a <> 1) then bugmes();quit;end
75 if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
76 if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
77 mdelete(TMPDIR + filesep() + ref_files(1));
78 mdelete(TMPDIR + filesep() + ref_files(2));
79 // =============================================================================
80 // copy a directory into a directory  with separator(s)
81 a = copyfile(SCI+'/modules/fileio/etc' + filesep(), TMPDIR);
82 if (a <> 1) then bugmes();quit;end
83 if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
84 if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
85 mdelete(TMPDIR + filesep() + ref_files(1));
86 mdelete(TMPDIR + filesep() + ref_files(2));
87 // =============================================================================
88 // copy a directory into a directory  with separator(s)
89 a = copyfile(SCI+'/modules/fileio/etc' + filesep(), TMPDIR  + filesep());
90 if (a <> 1) then bugmes();quit;end
91 if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
92 if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
93 mdelete(TMPDIR + filesep() + ref_files(1));
94 mdelete(TMPDIR + filesep() + ref_files(2));
95 // =============================================================================
96 // copy a file to a file
97 mdelete(TMPDIR + '/scilab.start');
98 a = copyfile(SCI+'/etc/scilab.start', TMPDIR + '/scilab.start');
99 if fileinfo(TMPDIR + '/scilab.start') == [] then bugmes();quit;end
100 mdelete(TMPDIR + '/scilab.start');
101 // =============================================================================
102 // copy a file into a directory
103 mdelete(TMPDIR + '/scilab.quit');
104 a = copyfile(SCI+'/etc/scilab.quit', TMPDIR);
105 if fileinfo(TMPDIR + '/scilab.quit') == [] then bugmes();quit;end
106 mdelete(TMPDIR + '/scilab.quit');
107 // =============================================================================
108 // copy a file into a directory with separator
109 mdelete(TMPDIR + '/modules.xml');
110 a = copyfile(SCI+'/etc/modules.xml', TMPDIR + filesep());
111 if fileinfo(TMPDIR + '/modules.xml') == [] then bugmes();quit;end
112 mdelete(TMPDIR + '/modules.xml');
113 // =============================================================================
114 // copy directory with sub-directories
115 mkdir(TMPDIR + '/copyfile_test');
116 a = copyfile(SCI+'/modules/fileio/tests', TMPDIR + filesep() + 'copyfile_test');
117 if (a <> 1) then bugmes();quit;end
118 if fileinfo(TMPDIR + '/copyfile_test/unit_tests/copyfile.tst') == [] then bugmes();quit;end
119 rmdir(TMPDIR + '/copyfile_test');
120 // =============================================================================