tests/testthat/test-parse_path.R

In trinker/pathr: Easy Manipulation and Piping of File Paths

context("Checking parse_path")

test_that("parse_path parses both forard and double backslash separators",{

    paths <- c("C:\\Users\\Tyler\\AppData\\Local\\Temp\\Rtmp2Ll9d9", "C:/R/R-3.2.2")

    expect_equal(
        parse_path(paths),
        structure(list(c("C:", "Users", "Tyler", "AppData", "Local",
            "Temp", "Rtmp2Ll9d9"), c("C:", "R", "R-3.2.2")), class = "parse_path")

    )
})

test_that("parse_path prints",{

    paths <- c("C:\\Users\\Tyler\\AppData\\Local\\Temp\\Rtmp2Ll9d9", "C:/R/R-3.2.2")

    expect_true(
        grepl("AppData", paste(capture.output(print(parse_path(paths))), collapse = " "))
    )
})