tests/testthat/test_meta.R

In thomasWeise/bookbuildeR: An R Package for Building Books or Documents using pandoc

library("bookbuildeR");
library("testthat");
context("meta");

test_that("Test meta.time", {
  t <- meta.time();
  Sys.sleep(16L);
  expect_identical(t, meta.time());
})


test_that("Test meta.date", {
  t <- meta.date();
  Sys.sleep(16L);
  expect_identical(t, meta.date());
  expect_true(startsWith(meta.time(), meta.date()));
})


test_that("Test meta.year", {
  t <- meta.year();
  Sys.sleep(16L);
  expect_identical(t, meta.year());
  expect_true(startsWith(meta.date(), meta.year()));
  expect_true(is.finite(as.integer(meta.year())));
})


test_that("Test meta.repo", {
  v <- Sys.getenv("TRAVIS", unset=NA);
  if((!(is.na(v))) && (v == "true")) {
    c <- Sys.getenv("TRAVIS_REPO_SLUG", unset=NA);
    if(!(is.null(c) || is.na(c))) {
      cat("Found repository slug: '", c, "'.\n", sep="", collapse="");
      expect_identical(c, meta.repository());
    }
    cat("Found no repository slug?\n");
  }
  expect_true(TRUE);
})


test_that("Test meta.commit", {
  v <- Sys.getenv("TRAVIS", unset=NA);
  if((!(is.na(v))) && (v == "true")) {
    c <- Sys.getenv("TRAVIS_COMMIT", unset=NA);
    if(!(is.null(c) || is.na(c))) {
      cat("Found commit: '", c, "'.\n", sep="", collapse="");
      expect_identical(c, meta.commit());
      return(NULL);
    }
    cat("Found no commit?\n");
  }
  expect_true(TRUE);
})