# HG changeset patch
# User Rik <rik@octave.org>
# Date 1682894672 25200
# Node ID 13362cd35b72c61d4785d966513184c46eeb6464
# Parent  b169404050776281ff8115db5898d8e20e059590
Suppress unexpected warning messages when running .tst files in test/ dir (bug #64123)

* bug-53579.tst: Temporarily disable 'Octave:global-local-conflict' warning.

* leftdiv.tst: Change 4 %!assert tests to %!warning tests looking for
'Octave:singular-matrix' warning.

* parser.tst: Temporarily disable 'Octave:colon-nonscalar-argument' warning.

* range.tst: Temporarily disable 'Octave:colon-complex-argument' warning.

* struct.tst: Temporarily disable 'Octave:empty-index' warning.

diff -r b16940405077 -r 13362cd35b72 test/bug-53579.tst
--- a/test/bug-53579.tst	Sun Apr 30 16:55:20 2023 +0200
+++ b/test/bug-53579.tst	Sun Apr 30 15:44:32 2023 -0700
@@ -13,6 +13,7 @@
 %! assert (isglobal ("bb"));
 %! aa = 3;
 %! xx = 5;
+%! warning ('off', 'Octave:global-local-conflict', 'local');
 %! [raa, rbb, igaa, igbb] = sub1 (aa, xx);
 %! assert (raa, 1);
 %! assert (rbb, []);
diff -r b16940405077 -r 13362cd35b72 test/leftdiv.tst
--- a/test/leftdiv.tst	Sun Apr 30 16:55:20 2023 +0200
+++ b/test/leftdiv.tst	Sun Apr 30 15:44:32 2023 -0700
@@ -30,8 +30,15 @@
 %#!assert (0 \ i, Inf)
 %#!assert (0 \ single (i), single (Inf))
 
-%!assert ([Inf, 0; 0, 0] \ [1; 1], zeros (2,1))
-%!assert ([Inf, 0; 0, 0] \ single ([1; 1]), zeros (2,1, "single"))
-%!assert ([Inf, 0; 0, 0] \ [i; 1], zeros (2,1))
-%!assert ([Inf, 0; 0, 0] \ single ([i; 1]), zeros (2,1, "single"))
-
+%!warning <matrix singular to machine precision>
+%! warning ('on', 'Octave:singular-matrix', 'local');
+%! assert ([Inf, 0; 0, 0] \ [1; 1], zeros (2,1));
+%!warning <matrix singular to machine precision>
+%! warning ('on', 'Octave:singular-matrix', 'local');
+%! assert ([Inf, 0; 0, 0] \ single ([1; 1]), zeros (2,1, "single"));
+%!warning <matrix singular to machine precision>
+%! warning ('on', 'Octave:singular-matrix', 'local');
+%! assert ([Inf, 0; 0, 0] \ [i; 1], zeros (2,1));
+%!warning <matrix singular to machine precision>
+%! warning ('on', 'Octave:singular-matrix', 'local');
+%! assert ([Inf, 0; 0, 0] \ single ([i; 1]), zeros (2,1, "single"));
diff -r b16940405077 -r 13362cd35b72 test/parser.tst
--- a/test/parser.tst	Sun Apr 30 16:55:20 2023 +0200
+++ b/test/parser.tst	Sun Apr 30 15:44:32 2023 -0700
@@ -61,6 +61,7 @@
 %! assert (!a .b, logical ([1 0]));
 %! assert (3*a .b, [0 3]);
 %! assert (a. b-1, [-1 0]);
+%! warning ('off', 'Octave:colon-nonscalar-argument', 'local'); 
 %! assert (a. b:3, 0:3);
 %! assert (a. b>0.5, logical ([0 1]));
 %! assert (a. b&0, logical ([0 0]));
diff -r b16940405077 -r 13362cd35b72 test/range.tst
--- a/test/range.tst	Sun Apr 30 16:55:20 2023 +0200
+++ b/test/range.tst	Sun Apr 30 15:44:32 2023 -0700
@@ -31,7 +31,9 @@
 %!assert (full (9:-1:1), [ 9 8 7 6 5 4 3 2 1 ])
 %!assert (full (1:-1:9), zeros (1,0))
 %!assert (full (1:1:1), 1)
-%!assert (full (i:2i:10i), zeros (1,0))
+%!test
+%! warning ('off', 'Octave:colon-complex-argument', 'local');
+%! assert (full (i:2i:10i), zeros (1,0));
 
 ## Test mixing integer range with other types
 
diff -r b16940405077 -r 13362cd35b72 test/struct.tst
--- a/test/struct.tst	Sun Apr 30 16:55:20 2023 +0200
+++ b/test/struct.tst	Sun Apr 30 15:44:32 2023 -0700
@@ -247,6 +247,7 @@
 %! y = x;
 %! assert (! isempty (y));
 %! assert (y, x);
+%! warning ('off', 'Octave:empty-index', 'local');
 %! z = x();
 %! assert (! isempty (z));
 %! assert (z, x);