Tests failure (due to `ps`, apparently): `<os_error/ps_error/error/condition> Error: Operation not supported`

[barracuda156]

Looks like the problem is with ps in fact, not av as such:

R version 4.3.1 (2023-06-16) -- "Beagle Scouts"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: powerpc-apple-darwin10.8.0 (32-bit)

> library(testthat)
> library(av)
> 
> if (ps::ps_is_supported()) {
+   # This sometimes has false positives on MacOS https://github.com/r-lib/ps/issues/90
+   reporter <- ps::CleanupReporter(testthat::CheckReporter)$new(proc_cleanup = FALSE, proc_fail = FALSE, conn_fail = FALSE)
+   test_check("av", reporter = reporter)
+ } else {
+   test_check("av")
+ }
[ FAIL 4 | WARN 0 | SKIP 0 | PASS 0 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-audio.R:5:1'): (code run outside of `test_that()`) ─────────────
<os_error/ps_error/error/condition>
Error: Operation not supported
Backtrace:
    ▆
 1. └─testthat::test_that(...) at test-audio.R:5:0
 2.   └─testthat:::test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
 3.     └─reporter$start_test(context = reporter$.context, test = test)
 4.       └─testthat:::o_apply(self$reporters, "start_test", context, test)
 5.         └─base::lapply(objects, f)
 6.           └─testthat (local) FUN(X[[i]], ...)
 7.             └─x$start_test(...)
 8.               └─ps::ps_open_files(ps_handle())
 9.                 └─ps:::not_null(.Call(psll_open_files, p))
── Error ('test-fft.R:5:1'): (code run outside of `test_that()`) ───────────────
<os_error/ps_error/error/condition>
Error: Operation not supported
Backtrace:
    ▆
 1. └─testthat::test_that(...) at test-fft.R:5:0
 2.   └─testthat:::test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
 3.     └─reporter$start_test(context = reporter$.context, test = test)
 4.       └─testthat:::o_apply(self$reporters, "start_test", context, test)
 5.         └─base::lapply(objects, f)
 6.           └─testthat (local) FUN(X[[i]], ...)
 7.             └─x$start_test(...)
 8.               └─ps::ps_open_files(ps_handle())
 9.                 └─ps:::not_null(.Call(psll_open_files, p))
── Error ('test-formats.R:3:1'): (code run outside of `test_that()`) ───────────
<os_error/ps_error/error/condition>
Error: Operation not supported
Backtrace:
    ▆
 1. └─testthat::test_that(...) at test-formats.R:3:0
 2.   └─testthat:::test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
 3.     └─reporter$start_test(context = reporter$.context, test = test)
 4.       └─testthat:::o_apply(self$reporters, "start_test", context, test)
 5.         └─base::lapply(objects, f)
 6.           └─testthat (local) FUN(X[[i]], ...)
 7.             └─x$start_test(...)
 8.               └─ps::ps_open_files(ps_handle())
 9.                 └─ps:::not_null(.Call(psll_open_files, p))
── Error ('test-video.R:3:1'): (code run outside of `test_that()`) ─────────────
<os_error/ps_error/error/condition>
Error: Operation not supported
Backtrace:
    ▆
 1. └─testthat::test_that(...) at test-video.R:3:0
 2.   └─testthat:::test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
 3.     └─reporter$start_test(context = reporter$.context, test = test)
 4.       └─testthat:::o_apply(self$reporters, "start_test", context, test)
 5.         └─base::lapply(objects, f)
 6.           └─testthat (local) FUN(X[[i]], ...)
 7.             └─x$start_test(...)
 8.               └─ps::ps_open_files(ps_handle())
 9.                 └─ps:::not_null(.Call(psll_open_files, p))

[ FAIL 4 | WARN 0 | SKIP 0 | PASS 0 ]
Error: Test failures
Execution halted