Limit t_is() display to top 10 toleration violations if > 15.

Author: rdzman

CHANGES.md

@@ -2,6 +2,14 @@ Change history for MP-Test
 ==========================
 
 
+since 8.1
+---------
+
+#### 6/15/26
+  - Limit `t_is()` display to top 10 toleration violations if there are
+    more than 15 elements that do not meet the desired tolerance.
+
+
 Version 8.1 - *July 5, 2024*
 ----------------------------
 

docs/other/MP-Test-Release-Checklist.md

@@ -29,7 +29,7 @@ Pre-release
 Release
 -------
 - Merge latest `prep-for-release` into `master`.
-- Tag with version number, e.g. `8.0`.
+- Tag with version number, e.g. `8.1`.
 - Push `master` to GitHub.
 - Publish new release on GitHub: https://github.com/MATPOWER/mptest/releases/new
 

lib/mptestver.m

@@ -14,17 +14,17 @@
 % release date of the current installation of MP-Test.
 
 %   MP-Test
-%   Copyright (c) 2010-2025, Power Systems Engineering Research Center (PSERC)
+%   Copyright (c) 2010-2026, Power Systems Engineering Research Center (PSERC)
 %   by Ray Zimmerman, PSERC Cornell
 %
 %   This file is part of MP-Test.
 %   Covered by the 3-clause BSD License (see LICENSE file for details).
 %   See https://github.com/MATPOWER/mptest for more info.
 
 v = struct( 'Name',     'MP-Test', ... 
-            'Version',  '8.1', ...
+            'Version',  '8.1+', ...
             'Release',  '', ...
-            'Date',     '05-Jul-2025' );
+            'Date',     '15-Jun-2026' );
 if nargout > 0
     if nargin > 0
         rv = v;

lib/t_is.m

@@ -41,7 +41,7 @@
 % See also t_ok, t_file_match, t_str_match, t_skip, t_begin, t_end, t_run_tests.
 
 %   MP-Test
-%   Copyright (c) 2004-2025, Power Systems Engineering Research Center (PSERC)
+%   Copyright (c) 2004-2026, Power Systems Engineering Research Center (PSERC)
 %   by Ray Zimmerman, PSERC Cornell
 %
 %   This file is part of MP-Test.
@@ -128,9 +128,16 @@
 if ~condition && ~t_quiet
     if max_diff > 0
         k = find(~(abs(got_minus_expected(:)) < 10^(-prec)) & ~isnan(got_minus_expected(:)));
-        [vv, kk] = max(abs(got_minus_expected(k)));
+        nk = length(k);
         fprintf('    index              got             expected      abs(got - exp)\n');
         fprintf('---------------  ----------------  ----------------  ----------------');
+        if nk > 15
+            [~, kk] = sort(abs(got_minus_expected(k)), 'descend');
+            k = k(kk(1:10));
+            kk = 1;
+        else
+            [~, kk] = max(abs(got_minus_expected(k)));
+        end
         for u = 1:length(k)
             if isscalar(expected)
                 ex = expected;
@@ -158,6 +165,9 @@
                 idxstrkk = idxstr;
             end
         end
+        if nk > 15
+            fprintf('\n ... and %d more ...', nk-10);
+        end
         fprintf('\nmax diff @ %s = %g > allowed tol of %g\n\n', ...
             idxstrkk, full(max_diff), 10^(-prec));
     elseif max_diff == -1