Suppress warnings about obsolete boolean operators in test suites

Author: richcarl

lib/ssh/test/ssh_options_SUITE.erl

@@ -26,6 +26,7 @@
 
 %%% This test suite tests different options for the ssh functions
 
+-compile(nowarn_obsolete_bool_op).
 
 -include_lib("common_test/include/ct.hrl").
 -include_lib("kernel/include/file.hrl").

lib/ssh/test/ssh_pubkey_SUITE.erl

@@ -22,6 +22,8 @@
 %%
 -module(ssh_pubkey_SUITE).
 
+-compile(nowarn_obsolete_bool_op).
+
 %% Note: This directive should only be used in test suites.
 -export([
          suite/0,

lib/stdlib/test/beam_lib_SUITE.erl

@@ -23,6 +23,8 @@
 
 %%-define(debug, true).
 
+-compile(nowarn_obsolete_bool_op).
+
 -ifdef(debug).
 -define(format(S, A), io:format(S, A)).
 -define(line, put(line, ?LINE), ).

lib/stdlib/test/binary_module_SUITE.erl

@@ -21,6 +21,8 @@
 %%
 -module(binary_module_SUITE).
 
+-compile(nowarn_obsolete_bool_op).
+
 -export([all/0, suite/0,
 	 interesting/1,scope_return/1,random_ref_comp/1,random_ref_sr_comp/1,
 	 random_ref_fla_comp/1,parts/1, bin_to_list/1, list_to_bin/1,

lib/stdlib/test/binref.erl

@@ -1,3 +1,23 @@
+%% %CopyrightBegin%
+%% 
+%% SPDX-License-Identifier: Apache-2.0
+%% 
+%% Copyright Ericsson AB 2025. All Rights Reserved.
+%% 
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%% 
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%% 
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
+%% 
+%% %CopyrightEnd%
+
 -module(binref).
 
 -export([compile_pattern/1,match/2,match/3,matches/2,matches/3,
@@ -7,6 +27,7 @@
 	 longest_common_prefix/1,longest_common_suffix/1,bin_to_list/1,
 	 bin_to_list/2,bin_to_list/3,list_to_bin/1]).
 
+-compile(nowarn_obsolete_bool_op).
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% compile_pattern, a dummy

lib/stdlib/test/erl_eval_SUITE.erl

@@ -20,6 +20,9 @@
 %% %CopyrightEnd%
 
 -module(erl_eval_SUITE).
+
+-compile(nowarn_obsolete_bool_op).
+
 -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
 	 init_per_testcase/2, end_per_testcase/2,
 	 init_per_group/2,end_per_group/2]).

lib/stdlib/test/erl_lint_SUITE.erl

@@ -21,6 +21,8 @@
 %%
 -module(erl_lint_SUITE).
 
+-compile(nowarn_obsolete_bool_op).
+
 %%-define(debug, true).
 
 -ifdef(debug).
@@ -623,7 +625,7 @@ unused_vars_warn_fun(Config) when is_list(Config) ->
                           (C == <<A:A>>) and (<<17:B>> == D)
                   end.
            ">>,
-           [warn_unused_vars],
+           [warn_unused_vars,nowarn_obsolete_bool_op],
            {warnings,[{{1,24},erl_lint,{unused_var,'A'}},
                       {{2,23},erl_lint,{unused_var,'A'}},
                       {{2,23},erl_lint,{shadowed_var,'A','fun'}},
@@ -1903,7 +1905,7 @@ guard(Config) when is_list(Config) ->
               t3(A) when is_tuple(A) or is_tuple(A) ->
                   is_tuple.
            ">>,
-           [nowarn_obsolete_guard],
+           [nowarn_obsolete_guard,nowarn_obsolete_bool_op],
            []}],
     [] = run(Config, Ts),
     Ts1 = [{guard5,
@@ -1956,7 +1958,7 @@ guard(Config) when is_list(Config) ->
                [X || X <- [1,#apa{},3], (3+is_record(X, apa)) or 
                                         (is_record(X, apa)*2)].
             ">>,
-            [],
+            [nowarn_obsolete_bool_op],
             []},
 	   {guard8,
 	    <<"t(A) when erlang:is_foobar(A) -> ok;
@@ -3030,7 +3032,7 @@ otp_5878(Config) when is_list(Config) ->
              {{5,30},erl_lint,illegal_guard_expr},
              {{7,30},erl_lint,illegal_guard_expr}],
            []} =
-        run_test2(Config, Ill2, [warn_unused_record]),
+        run_test2(Config, Ill2, [warn_unused_record,nowarn_obsolete_bool_op]),
 
     Ill3 = <<"t() -> ok.">>,
     {errors,[{{1,1},erl_lint,undefined_module}],[]} =

lib/stdlib/test/erl_pp_SUITE.erl

@@ -24,6 +24,8 @@
 %%%-----------------------------------------------------------------
 -module(erl_pp_SUITE).
 
+-compile(nowarn_obsolete_bool_op).
+
 %%-define(debug, true).
 
 -ifdef(debug).

lib/stdlib/test/ets_SUITE.erl

@@ -21,6 +21,8 @@
 %%
 -module(ets_SUITE).
 
+-compile(nowarn_obsolete_bool_op).
+
 -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
 	 init_per_group/2,end_per_group/2]).
 -export([default/1,setbag/1,badnew/1,verybadnew/1,named/1,keypos2/1,

lib/stdlib/test/id_transform_SUITE.erl

@@ -23,7 +23,9 @@
 -author('[email protected]').
 
 -include_lib("kernel/include/file.hrl").
-          
+
+-compile(nowarn_obsolete_bool_op).
+
 -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
 	 init_per_group/2,end_per_group/2,
 	 id_transform/1]).