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