Test cases for round()

Ricardo <[email protected]> Thu, 27 Aug 2020 11:43:20 -0300

Newsgroups	gmane.comp.gnu.octave.maintainers
Message-ID	<CAJT6sjaWer_hbKHOroQyQMwd75-NDPL6y8EYqcDn_JZ-243GSQ@mail.gmail.com>

Hello.
I want to improve round function to support extra parameters.

Can someone run the appended file in Matlab and send me the output
assert_round.m file?

Thank you,
Ricardo.

test_round.m (text/x-objcsrc, 977 B)

% test to be run in MATLAB
a = [-5090.543 -100 -3 0 1.11111 8.888888];
b = [-13i -7i 0 1i 2i 9.99999999i];
N = [-10 -5 -1 0 1 2 7];
T = {'decimals';'significant'};
F = fopen('assert_round.m', 'w')
for ti = 1:length(T)
  for ni = 1:length(N)
    if strcmp(cell2mat(T(ti)), 'significant') && N(ni) <= 0
      continue
    end
    print_assert(a, N(ni), cell2mat(T(ti)), F);
    print_assert(b, N(ni), cell2mat(T(ti)), F);
    print_assert(a+b, N(ni), cell2mat(T(ti)), F);
    print_assert(single(a), N(ni), cell2mat(T(ti)), F);
    print_assert(single(b), N(ni), cell2mat(T(ti)), F);
    print_assert(single(a+b), N(ni), cell2mat(T(ti)), F);
    print_assert(a.*i, N(ni), cell2mat(T(ti)), F);
    print_assert(b.*i, N(ni), cell2mat(T(ti)), F);
  end
end

function [] = print_assert(X, N, T, F)
  result = num2str(round(X, N, T));
  arguments = ['[' num2str(X) '], ' num2str(N) ', "' T '"'];
  str = ['%!assert (round (', arguments ,'), [', result, ']);\n'];
  fwrite(F, str);
end