test_cacheable_object.m

Go to the documentation of this file.

function OK = test_cacheable_object
  % function OK = test_cacheable_object
  % test for the CacheableObject class

  OK = true;

  matfile = fullfile(rbmatlabtemp, 'cacheable_object_test');
  comatfile = fullfile(rbmatlabtemp, 'cacheable_object_test_co');

  tobj.large_data = rand(100, 100);
  tobj.string = 'string';
  tobj.xyz    = 12345;

  save(matfile, 'tobj');

  co1 = CacheableObject(matfile);

  oldobj = co1.obj;

  save(comatfile, 'co1');

  load(comatfile);

  OK = OK & structcmp(co1.obj, oldobj);

  tobj.xyz = 123;
  save(matfile, 'tobj');

  try
    load(comatfile);
    OK = OK & isempty(co1.obj);
  catch
  end

  delete([matfile,'.mat']);
  delete([comatfile,'.mat']);

end