# HG changeset patch
# User Rik <rik@octave.org>
# Date 1426790925 25200
# Node ID 117ccb5080c13712012d7400da8452e884023e7e
# Parent  28a9e59d07149e2546a73a7daac66179d405961a
Add BIST tests for complex sort/issorted routines with NaN values.

* complex.tst: Add tests for complex sort/issorted routines with NaN values.

diff -r 28a9e59d0714 -r 117ccb5080c1 test/complex.tst
--- a/test/complex.tst	Fri Mar 20 08:44:24 2015 -0400
+++ b/test/complex.tst	Thu Mar 19 11:48:45 2015 -0700
@@ -50,3 +50,15 @@
 %! assert (issorted (xfs));
 %! assert (double (xfs), xs);
 
+## Finally, test that sort and issorted agree on NaNs
+%!test
+%! x = [complex(NaN,-1), complex(NaN,NaN), ...
+%!      complex(-1,0), complex(-1,-0), i, -i, 1, ...
+%!      complex(1,NaN)];
+%! xs = sort (x);
+%! xf = single (x);
+%! xfs = sort (xf);
+%! assert (issorted (xs));
+%! assert (issorted (xfs));
+%! assert (double (xfs), xs);
+