test_indexed_node.m

Go to the documentation of this file.

function ok = test_indexed_node
  % Consistency tests for the DataTree.IdMapNode class
  %
  % Test cases:
  %  - 2. initialize with cell array
  %  - 3. initialize with struct
  %  - 4. initialize with struct in flat mode (default mergefun)
  %  - 5. initialize with struct in flat mode (custom mergefun)
  %  - 5b. overwrite with given DataTree.IdMapNode object from (3.) in flat
  %        mode with different mergefun than before

  ok = true;

  idmap  = {'a', {'b', {'c','d'}},'e'};
  vals1  = {1, 2, 3};
  vals2  = struct('a', 1, 'b', 2, 'c', 3, 'd', 4, 'e', 5);
  vals2_incomplete  = struct('a', 1, 'b', 2, 'd', 4, 'e', 5);

  ref2   = [1 2 2 2 3]';
  ref3   = (1:5)';
  ref4   = [1 2 2 2 5]';
  ref5a  = [1 4 4 4 5]';
  ref5b  = [1 2.75 2.75 2.75 5]';

  try
    ic2 = DataTree.IdMapNode(idmap, vals1);
    a = get_flat_struct(ic2);
    vals = structfun(@(x) x, a);
    if any(vals ~= ref2)
      disp('Test2 failed');
      ok = false;
    end
    ok = ok & scalar(ic2, @(x)mean([x{:}])) == 2;
  catch exception
    disp('Test2 failed:')
    disp(getReport(exception));
    ok = false;
  end


  try
    ic3 = DataTree.IdMapNode(idmap, vals2);
    a= get_flat_struct(ic3);
    vals = structfun(@(x) x, a);
    if any(vals ~= ref3)
      disp('Test3 failed');
      ok = false;
    end
    ok = ok & scalar(ic3, @(x)mean([x{:}])) == mean([1,5,2.75]);
  catch exception
    disp('Test3 failed:')
    disp(getReport(exception));
    ok = false;
  end

  try
    ic4 = DataTree.IdMapNode(idmap, vals2, []);
    a = get_flat_struct(ic4);
    vals = structfun(@(x) x, a);
    ok = ok & all(vals == ref4);
    if any(vals ~= ref4)
      disp('Test4 failed');
      ok = false;
    end
  catch exception
    disp('Test4 failed:')
    disp(getReport(exception));
    ok = false;
  end

  try
    ic5 = DataTree.IdMapNode(idmap, vals2, @(x) max([x{:}]));
    a = get_flat_struct(ic5);
    vals = structfun(@(x) x, a);
    ok = ok & all(vals == ref5a);
    set(ic5, [], ic3, @(x) mean([x{:}]));
    if any(vals ~= ref5a)
      disp('Test5a failed');
      ok = false;
    end
    a = get_flat_struct(ic5);
    vals = structfun(@(x) x, a);
    if any(vals ~= ref5b)
      disp('Test5b failed');
      ok = false;
    end
  catch exception
    disp('Test5 failed:')
    disp(getReport(exception));
    ok = false;
  end
end