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