From dfe198983f78c6387de40994df75ae137e5de720 Mon Sep 17 00:00:00 2001 From: Jeroen Ooms Date: Fri, 24 Jan 2025 18:30:25 +0100 Subject: [PATCH] Workaround limitation in Fedora --- tests/testthat/test-audio.R | 2 +- tests/testthat/test-fft.R | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-audio.R b/tests/testthat/test-audio.R index 118001c..1b51d7e 100644 --- a/tests/testthat/test-audio.R +++ b/tests/testthat/test-audio.R @@ -10,7 +10,7 @@ test_that("Audio can be converted to various formats", { input_info <- av_media_info(wonderland) # Convert mp3 to mkv (defaults to libvorbis audio) - expect_equal(av_audio_convert(wonderland, tmp_mkv, verbose = FALSE), tmp_mkv) + expect_equal(av_audio_convert(wonderland, tmp_mkv, verbose = FALSE, sample_rate = 24000), tmp_mkv) expect_true(file.exists(tmp_mkv)) mkv_info <- av_media_info(tmp_mkv) expect_equal(input_info$duration, mkv_info$duration, tolerance = 0.1) diff --git a/tests/testthat/test-fft.R b/tests/testthat/test-fft.R index 10b90ea..3a2e65b 100644 --- a/tests/testthat/test-fft.R +++ b/tests/testthat/test-fft.R @@ -7,10 +7,11 @@ test_that("Audio FFT", { av_log_level(16) # muffle some warnings about ac3 vbr for(ext in extensions){ filename <- paste0('wonderland.', ext) - av_audio_convert(wonderland, filename, verbose = FALSE) + # libopus on fedora does not do support input sample_rate 44100 + av_audio_convert(wonderland, filename, verbose = FALSE, sample_rate = 48000) data <- read_audio_fft(filename, window = hanning(2048)) expect_equal(dim(data)[1], 1024) - expect_equal(dim(data)[2], 2584, tol = 0.001) + expect_equal(dim(data)[2], 2813, tol = 0.001) unlink(filename) } })