Add explicit warning tolerance to tests

Now that the testsuite check for warnings in all of gnatcov commands,
rather than only instrumentation.

Author: Jugst3r

testsuite/tests/IA22-004-same-basename/test.py

@@ -63,7 +63,9 @@ def hostify(path):
             "main.elf.trace",
             "--output-dir=tmp",
         ]
-        + rebase_args
+        + rebase_args,
+        # The files generated by the binder are not available at coverage time
+        tolerate_messages="warning: can't open",
     )
 
     for slug in ("d1-func.c", "d2-func.c"):

testsuite/tests/L929-006/test.py

@@ -25,14 +25,18 @@ def to_object(sfile):
     out_actual = target + "-actual.out"
     out_expected = "../" + target + "-expected.out"
 
-    xcov(["scan-objects"] + ofiles, out=out_actual)
+    xcov(["scan-objects"] + ofiles, out=out_actual, tolerate_messages=".")
 
     thistest.fail_if(
         diff(out_actual, out_expected),
         "%s != %s, using explicit list" % (out_actual, out_expected),
     )
 
-    xcov(["scan-objects", "@" + list_to_file(ofiles)], out=out_actual)
+    xcov(
+        ["scan-objects", "@" + list_to_file(ofiles)],
+        out=out_actual,
+        tolerate_messages=".",
+    )
 
     thistest.fail_if(
         diff(out_actual, out_expected),

testsuite/tests/U211-014-setup/ext_rt/gnatcov_rts-base_io.adb

@@ -37,8 +37,10 @@ package body GNATcov_RTS.Base_Io is
    ---------
 
    procedure Put (S : GNATcov_RTS_String) is
+      pragma Warnings (Off);
       Str : String (1 .. Integer (S.Length));
       for Str'Address use S.Str;
+      pragma Warning (On);
    begin
       Print_Tag;
       GNAT.IO.Put_Line (Str);