Mercurial > hg > octave-lyh
changeset 16930:c2a57f9c6a2e
maint: Move tests for JIT compiler into separate .tst file.
* libinterp/corefcn/pt-jit.cc: Remove built-in tests to jit.tst file.
* test/jit.tst: New file with %!tests.
* test/Makefile.am: Add jit.tst to build system.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 09 Jul 2013 12:19:37 -0700 |
parents | a75a521e5993 |
children | bf4c95a3bba2 |
files | libinterp/corefcn/pt-jit.cc test/Makefile.am |
diffstat | 2 files changed, 1 insertions(+), 366 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/corefcn/pt-jit.cc +++ b/libinterp/corefcn/pt-jit.cc @@ -2325,369 +2325,3 @@ #endif } -/* -Test some simple cases that compile. - -%!test -%! for i=1:1e6 -%! if i < 5 -%! break -%! else -%! break -%! endif -%! endfor -%! assert (i, 1); - -%!test -%! while 1 -%! if 1 -%! break -%! else -%! break -%! endif -%! endwhile - -%!test -%! for i=1:1e6 -%! if i == 100 -%! break -%! endif -%! endfor -%! assert (i, 100); - -%!test -%! inc = 1e-5; -%! result = 0; -%! for ii = 0:inc:1 -%! result = result + inc * (1/3 * ii * ii); -%! endfor -%! assert (abs (result - 1/9) < 1e-5); - -%!test -%! inc = 1e-5; -%! result = 0; -%! for ii = 0:inc:1 -%! # the ^ operator's result is complex -%! result = result + inc * (1/3 * ii ^ 2); -%! endfor -%! assert (abs (result - 1/9) < 1e-5); - -%!test -%! temp = 1+1i; -%! nan = NaN; -%! while 1 -%! temp = temp - 1i; -%! temp = temp * nan; -%! break; -%! endwhile -%! assert (imag (temp), 0); - -%!test -%! temp = 1+1i; -%! nan = NaN+1i; -%! while 1 -%! nan = nan - 1i; -%! temp = temp - 1i; -%! temp = temp * nan; -%! break; -%! endwhile -%! assert (imag (temp), 0); - -%!test -%! temp = 1+1i; -%! while 1 -%! temp = temp * 5; -%! break; -%! endwhile -%! assert (temp, 5+5i); - -%!test -%! nr = 1001; -%! mat = zeros (1, nr); -%! for i = 1:nr -%! mat(i) = i; -%! endfor -%! assert (mat == 1:nr); - -%!test -%! nr = 1001; -%! mat = 1:nr; -%! mat(end) = 0; # force mat to a matrix -%! total = 0; -%! for i = 1:nr -%! total = mat(i) + total; -%! endfor -%! assert (sum (mat) == total); - -%!test -%! nr = 1001; -%! mat = [3 1 5]; -%! try -%! for i = 1:nr -%! if i > 500 -%! result = mat(100); -%! else -%! result = i; -%! endif -%! endfor -%! catch -%! end -%! assert (result == 500); - -%!function result = gen_test (n) -%! result = double (rand (1, n) > .01); -%!endfunction - -%!function z = vectorized (A, K) -%! temp = ones (1, K); -%! z = conv (A, temp); -%! z = z > K-1; -%! z = conv (z, temp); -%! z = z(K:end-K+1); -%! z = z >= 1; -%!endfunction - -%!function z = loopy (A, K) -%! z = A; -%! n = numel (A); -%! counter = 0; -%! for ii=1:n -%! if z(ii) -%! counter = counter + 1; -%! else -%! if counter > 0 && counter < K -%! z(ii-counter:ii-1) = 0; -%! endif -%! counter = 0; -%! endif -%! endfor -%! -%! if counter > 0 && counter < K -%! z(end-counter+1:end) = 0; -%! endif -%!endfunction - -%!test -%! test_set = gen_test (10000); -%! assert (all (vectorized (test_set, 3) == loopy (test_set, 3))); - -%!test -%! niter = 1001; -%! i = 0; -%! while (i < niter) -%! i = i + 1; -%! endwhile -%! assert (i == niter); - -%!test -%! niter = 1001; -%! result = 0; -%! m = [5 10]; -%! for i=1:niter -%! result = result + m(end); -%! endfor -%! assert (result == m(end) * niter); - -%!test -%! ndim = 100; -%! result = 0; -%! m = zeros (ndim); -%! m(:) = 1:ndim^2; -%! i = 1; -%! while (i <= ndim) -%! for j = 1:ndim -%! result = result + m(i, j); -%! endfor -%! i = i + 1; -%! endwhile -%! assert (result == sum (sum (m))); - -%!test -%! ndim = 100; -%! m = zeros (ndim); -%! i = 1; -%! while (i <= ndim) -%! for j = 1:ndim -%! m(i, j) = (j - 1) * ndim + i; -%! endfor -%! i = i + 1; -%! endwhile -%! m2 = zeros (ndim); -%! m2(:) = 1:(ndim^2); -%! assert (all (m == m2)); - -%!test -%! ndim = 2; -%! m = zeros (ndim, ndim, ndim, ndim); -%! result = 0; -%! i0 = 1; -%! while (i0 <= ndim) -%! for i1 = 1:ndim -%! for i2 = 1:ndim -%! for i3 = 1:ndim -%! m(i0, i1, i2, i3) = 1; -%! m(i0, i1, i2, i3, 1, 1, 1, 1, 1, 1) = 1; -%! result = result + m(i0, i1, i2, i3); -%! endfor -%! endfor -%! endfor -%! i0 = i0 + 1; -%! endwhile -%! expected = ones (ndim, ndim, ndim, ndim); -%! assert (all (m == expected)); -%! assert (result == sum (expected (:))); - -%!function test_divide () -%! state = warning ("query", "Octave:divide-by-zero").state; -%! unwind_protect -%! warning ("error", "Octave:divide-by-zero"); -%! for i=1:1e5 -%! a = 1; -%! a / 0; -%! endfor -%! unwind_protect_cleanup -%! warning (state, "Octave:divide-by-zero"); -%! end_unwind_protect -%!endfunction - -%!error <division by zero> test_divide () - -%!test -%! while 1 -%! a = 0; -%! result = a / 1; -%! break; -%! endwhile -%! assert (result, 0); - -%!test -%! m = zeros (2, 1001); -%! for i=1:1001 -%! m(end, i) = i; -%! m(end - 1, end - i + 1) = i; -%! endfor -%! m2 = zeros (2, 1001); -%! m2(1, :) = fliplr (1:1001); -%! m2(2, :) = 1:1001; -%! assert (m, m2); - -%!test -%! m = [1 2 3]; -%! for i=1:1001 -%! m = sin (m); -%! break; -%! endfor -%! assert (m == sin ([1 2 3])); - -%!test -%! i = 0; -%! while i < 10 -%! i += 1; -%! endwhile -%! assert (i == 10); - -%!test -%! i = 0; -%! while i < 10 -%! a = ++i; -%! endwhile -%! assert (i == 10); -%! assert (a == 10); -%!test -%! i = 0; -%! while i < 10 -%! a = i++; -%! endwhile -%! assert (i == 10); -%! assert (a == 9); - -%!test -%! num = 2; -%! a = zeros (1, num); -%! i = 1; -%! while i <= num -%! a(i) = norm (eye (i)); -%! ++i; -%! endwhile -%! assert (a, ones (1, num)); - -%!function test_compute_idom () -%! while (li <= length (l1) && si <= length (s1)) -%! if (l1 (li) < s1 (si)) -%! if (li == si) -%! break; -%! endif; -%! li++; -%! else -%! si++; -%! endif; -%! endwhile - -%!error test_compute_idom () - -%!function x = test_overload (a) -%! while 1 -%! x = a; -%! break; -%! endwhile -%!endfunction - -%!assert (test_overload (1), 1); -%!assert (test_overload ([1 2]), [1 2]); - -%!function a = bubble (a = [3 2 1]) -%! swapped = 1; -%! n = length (a); -%! while (swapped) -%! swapped = 0; -%! for i = 1:n-1 -%! if a(i) > a(i + 1) -%! swapped = 1; -%! temp = a(i); -%! a(i) = a(i + 1); -%! a(i + 1) = temp; -%! endif -%! endfor -%! endwhile -%!endfunction - -%!assert (bubble (), [1 2 3]); - -%!test -%! a = 0; -%! b = 1; -%! for i=1:1e3 -%! for j=1:2 -%! a = a + b; -%! endfor -%! endfor -%! assert (a, 2000); -%! assert (b, 1); - -%!test -%! a = [1+1i 1+2i]; -%! b = 0; -%! while 1 -%! b = a(1); -%! break; -%! endwhile -%! assert (b, a(1)); - -%!function test_undef () -%! for i=1:1e7 -%! XXX; -%! endfor -%!endfunction - -%!error <undefined near> (test_undef); - -%!shared id -%! id = @(x) x; - -%!assert (id (1), 1); -%!assert (id (1+1i), 1+1i) -%!assert (id (1, 2), 1) -%!error <undefined> (id ()) - - -*/