tests/testthat/test_extensionRegExp.R

In thomasWeise/utilizeR: An Utilities Package for R

library("utilizeR")
context("path.extensionRegExp")

test_that("path.extensionRegExp", {
   exp <- path.extensionRegExp(c("html", "jpg"))
   expect_identical(exp, "^.*\\.(html|jpg)$");
   expect_identical(length(grep(exp, "hellojpg")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello.jpg")) > 0L, TRUE);
   expect_identical(length(grep(exp, "hello.html")) > 0L, TRUE);
   expect_identical(length(grep(exp, "hellohtml")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello.htm")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello.html.txt")) > 0L, FALSE);

   exp <- path.extensionRegExp("model", "_all");
   expect_identical(length(grep(exp, "hellojpg")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hellomodel")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello.model")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello_all.model")) > 0L, TRUE);
   expect_identical(length(grep(exp, "hello_all.txt")) > 0L, FALSE);
   expect_identical(length(grep(exp, "hello_all.model.txt")) > 0L, FALSE);
   expect_identical(length(grep(exp, "_all.model")) > 0L, TRUE);
   expect_identical(length(grep(exp, "all.model")) > 0L, FALSE);
})