From 002ad12ed443bf0d47aabe658a2d82b0a878cd1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= Date: Thu, 21 Sep 2023 16:46:56 -0500 Subject: [PATCH] Test installedok standard for linux binaries --- tests/testthat/test-type-standard.R | 30 +++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/tests/testthat/test-type-standard.R b/tests/testthat/test-type-standard.R index 879b7d99..b8c0322a 100644 --- a/tests/testthat/test-type-standard.R +++ b/tests/testthat/test-type-standard.R @@ -432,3 +432,33 @@ test_that("installedok", { sol )) }) + +test_that("installedok Linux binaries", { + solution <- list( + package = "package", + version = "1.0.0", + platform = "x86_64-pc-linux-gnu-ubuntu-22.04" + ) + installed <- list( + package = "package", + version = "1.0.0", + platform = "x86_64-pc-linux-gnu", + built = "R 4.3.1; x86_64-pc-linux-gnu; 2023-09-21 14:53:54 UTC; unix" + ) + + expect_true(installedok_remote_standard(installed, solution)) + + solution2 <- list( + package = "package", + version = "1.0.0", + platform = "x86_64-pc-linux-gnu-ubuntu-22.04" + ) + installed2 <- list( + package = "package", + version = "1.0.0", + remotepkgplatform = "x86_64-pc-linux-gnu-ubuntu-22.04", + platform = "x86_64-pc-linux-gnu" + ) + + expect_true(installedok_remote_standard(installed2, solution2)) +})