library(tinycodet)
setwd("D:/D Desktop/Publications/R package tinycodet/tinycodet/inst/tinytest/special")
# create fake packages in temporary directory:
from.dir <- file.path(getwd(), "fakelibs")
to.dir <- tempdir() |> normalizePath()
tinycodet:::.create_fake_packages(from.dir, to.dir)
expect_true(file.exists(file.path(to.dir, "fake_lib1")))
expect_true(file.exists(file.path(to.dir, "fake_lib2")))
expect_true(file.exists(file.path(to.dir, "fake_lib3")))
library(tinytest)
expect_true(file.exists(file.path(to.dir, "fake_lib1")))
expect_true(file.exists(file.path(to.dir, "fake_lib2")))
expect_true(file.exists(file.path(to.dir, "fake_lib3")))
print(getwd())
expect_true(dir.exists("foo1"))
expect_true(dir.exists("foo2"))
# set-up ====
from.dir <- file.path(getwd(), "fakelibs")
to.dir <- tempdir() |> normalizePath()
# tinycodet:::.create_fake_packages(from.dir, to.dir)
lib.loc1 <- file.path(to.dir, "fake_lib1")
lib.loc2 <- file.path(to.dir, "fake_lib2")
lib.loc3 <- file.path(to.dir, "fake_lib3")
print(lib.loc1)
print(lib.loc2)
print(lib.loc3)
# this is to be checked BEFORE loading tinycodetfakepkg1
#(hence the "aaa" in the test file name)
check <- utils::compareVersion(
pversion_report("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")),
utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2"))
)
rlang::global_entrace()
pversion_report("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2"))
tinycodet:::.pversion_installed("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2"))
utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2"))
out <-  as.numeric(tinycodet:::.pversion_installed("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
out <-  as.character(tinycodet:::.pversion_installed("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
expected <- utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2"))
expected <- as.chaeacter(utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
expected <- as.character(utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
?utils::compareVersion()
out <-  as.character(tinycodet:::.pversion_installed("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
expected <- as.character(utils::packageVersion("tinycodetfakepkg1", c("foo1", lib.loc1, "foo2")))
check <- utils::compareVersion(
out, expected
)
expect_true(
check == 0L
)
# remove fake package files from temporary directory:
to.dir <- tempdir() |> normalizePath()
dir2remove <- file.path(to.dir, list.files(to.dir)) |> normalizePath()
unlink(dir2remove, recursive = TRUE, force = TRUE)
expect_false(any(file.exists(dir2remove)))
