1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
function success = Files_Test_FileFromFolder
success = true;
% create some files in a directory, for testing
newdir = fullfile(PsychtoolboxRoot,'PsychTests','UnitTests','FileTests');
mkdir(newdir);
fid=fopen(fullfile(newdir,'test1.txt'),'a'); fclose(fid);
fid=fopen(fullfile(newdir,'test2.txt'),'a'); fclose(fid);
fid=fopen(fullfile(newdir,'test1.gif'),'a'); fclose(fid);
fid=fopen(fullfile(newdir,'test3_noext'),'a'); fclose(fid);
mkdir(fullfile(newdir,'testdir'));
try
% test: FileFromFolder
[f,nf]=FileFromFolder(newdir);
if nf~=4
success = false;
fprintf('FileFromFolder didn''t get right number of files, got:\n');
fprintf(' %s\n',f.fname);
elseif any([f.isdir])
success = false;
fprintf('FileFromFolder got directories\n');
end
clear f; clear nf
[f,nf]=FileFromFolder(newdir,'','gif');
if nf~=1 || ~(strcmp(f.name,'test1.gif') && strcmp(f.fname,'test1') && strcmp(f.ext,'gif'))
success = false;
fprintf('FileFromFolder didn''t get the right file when using file extension mask\n');
end
clear f; clear nf
[f,nf]=FileFromFolder(newdir,'','');
if nf~=1 || ~(strcmp(f.fname,'test3_noext') && isempty(f.ext))
success = false;
fprintf('FileFromFolder didn''t get the right file when extension mask to find files without extension\n');
end
clear f; clear nf
% test: FolderFromFolder
[f,nf]=FolderFromFolder(newdir);
if nf~=1 || ~f.isdir || ~strcmp(f.name,'testdir')
success = false;
fprintf('FolderFromFolder didn''t get the right folder\n');
end
catch me
success = false;
fprintf('Unit test %s failed, error ocurred:\n%s\n',mfilename,me.getReport());
end
% cleanup
if IsOctave, OLD_VAL = confirm_recursive_rmdir (false); end
rmdir(newdir,'s');
if IsOctave, confirm_recursive_rmdir(OLD_VAL); end
|
