gh-140381: Handle slower machines in test_profiling

While looking at #140028 I found some test failures that are caused by
new tests (from #138122) running too slowly.

This adds an arbitrary heuristic to double the sampling run time.
We could do 10x instead? And/or move the heuristic into test_support.
Thoughts?

Author: stefanor

Lib/test/test_profiling/test_sampling_profiler.py

@@ -10,6 +10,7 @@
 import subprocess
 import sys
 import tempfile
+import timeit
 import unittest
 from collections import namedtuple
 from unittest import mock
@@ -29,6 +30,8 @@
 
 PROCESS_VM_READV_SUPPORTED = False
 
+SLOW_MACHINE = timeit.timeit("2*2", number=10_000) > 0.0001
+
 try:
     from _remote_debugging import PROCESS_VM_READV_SUPPORTED
     import _remote_debugging
@@ -1904,7 +1907,10 @@ def test_sample_target_script(self):
         script_file.flush()
         self.addCleanup(close_and_unlink, script_file)
 
-        test_args = ["profiling.sampling.sample", "-d", "1", script_file.name]
+        duration = 2 if SLOW_MACHINE else 1
+        test_args = [
+            "profiling.sampling.sample", "-d", str(duration), script_file.name
+        ]
 
         with (
             mock.patch("sys.argv", test_args),
@@ -1936,7 +1942,12 @@ def test_sample_target_module(self):
         with open(module_path, "w") as f:
             f.write(self.test_script)
 
-        test_args = ["profiling.sampling.sample", "-d", "1", "-m", "test_module"]
+        duration = 2 if SLOW_MACHINE else 1
+        test_args = [
+            "profiling.sampling.sample",
+            "-d", str(duration),
+            "-m", "test_module"
+        ]
 
         with (
             mock.patch("sys.argv", test_args),