tests/testthat/test_utils.R

In markgene/mutils: Mark's utility functions

library(testthat)
library(mutils)
context("Utilities")


test_that("Pipe operator", {
  expect_silent(iris %>% head())
})


test_that("load_object()", {
  x <- seq(10)
  tmpfile <- tempfile(fileext = ".Rda")
  save(list = "x", file = tmpfile)
  expect_silent(load_object(rda = tmpfile, name = "x"))
  expect_error(load_object(rda = tmpfile, name = "y"))
})


test_that("split_path()", {
  if (Sys.info()['sysname'] %in% c("Darwin", "Linux"))
    expect_true(all(split_path("/home/foo/stats/index.html") == c("index.html", "stats", "foo", "home", "/")))
  else
    expect_true(all(split_path("C:\\Windows\\System32") == c("System32", "Windows", "C:/")))
})