test_eidors_var_id

PURPOSE ^

SYNOPSIS ^

This is a script file.

DESCRIPTION ^

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 d = dir;
0002 idx = cell2mat({d(:).isdir});
0003 d = d(idx);
0004 
0005 ver
0006 
0007 for i = 1:numel(d)
0008    if strcmp(d(i).name,'..')
0009       continue
0010    end
0011 %    fprintf('%s\n', d(i).name);
0012    cd(d(i).name);
0013    p = which('eidors_var_id');
0014    try
0015       id = eidors_var_id([]);
0016       if strcmp(id,'id_DA39A3EE5E6B4B0D3255BFEF95601890AFD80709');
0017          fprintf('%s: CORRECT\n', p);
0018       else
0019          fprintf('%s: WRONG\n', p);
0020       end
0021    catch err
0022       msg = textscan(err.message,'%s',1,'delimiter','\r\n');
0023       fprintf('%s: ERROR: %s\n', p, msg{1}{1});
0024    end
0025    if ~strcmp(d(i).name,'.')
0026       cd ..
0027    end
0028 end

Generated on Wed 21-Jun-2017 09:29:07 by m2html © 2005