test_eidors_var_id

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'); %sha1
0017          fprintf('%s: CORRECT\n', p);
0018       elseif strcmp(id,'id_99AA06D3014798D86001C324468D497F8C010DD2'); % xxHash of []
0019          fprintf('%s: CORRECT\n', p);
0020       else
0021          fprintf('%s: WRONG\n', p);
0022       end
0023    catch err
0024       msg = textscan(err.message,'%s',1,'delimiter','\r\n');
0025       fprintf('%s: ERROR: %s\n', p, msg{1}{1});
0026    end
0027    if ~strcmp(d(i).name,'.')
0028       cd ..
0029    end
0030 end