tests/testthat/test_utils.R

In s-fleck/rotor: Log Rotation and Conditional Backups

context("utils")


test_that("utils works as expected", {
  expect_identical(fmt_bytes(0), "0 B")
  expect_identical(fmt_bytes(1024), "1 KiB")
  expect_identical(fmt_bytes(2^20), "1 MiB")
  expect_identical(fmt_bytes(2^30), "1 GiB")
  expect_identical(fmt_bytes(2^40), "1 TiB")
  expect_identical(fmt_bytes(2^50), "1024 TiB")
})




test_that("path_tidy works as expected", {
  expect_identical(
    is_windows_path(c(
      "d:",
      "C:\\Program Files",
      "c:\\Program Files",
      "c",
      "/home/foobar",
      "/")
    ),
    c(TRUE, TRUE, TRUE, FALSE, FALSE, FALSE)
  )


  expect_identical(
    path_tidy(c(
      "c:\\Program Files",
      "~/rpkgs",
      "~/rpkgs/",
      "//foo/bar/",
      "//foo///bar/",
      "c:",
      "/"
    )),
    c(
      "C:/Program Files",
      "~/rpkgs",
      "~/rpkgs",
      "//foo/bar",
      "//foo/bar",
      "C:/",
      "/"
    )
  )

})