tests/testthat/test_simplePath.R

context("NMseed")

test_that("basic",{

    expect_equal(simplePath("hel/wee/ww"),"hel/wee/ww")
    expect_equal(simplePath("hel/wee/../wee/ww"),"hel/wee/ww")
    expect_equal(simplePath("/hel/wee/ww"),"/hel/wee/ww")
    expect_equal(simplePath("//hel/wee/ww"),"/hel/wee/ww")
    expect_equal(simplePath("c://hel/wee/ww"),"c:/hel/wee/ww")
    expect_equal(simplePath("c:/hel/wee/ww"),"c:/hel/wee/ww")
    expect_equal(simplePath("c:/hel/wee/ ww"),"c:/hel/wee/ ww")
    expect_equal(simplePath("c:/hel/wee/  ww"),"c:/hel/wee/  ww")

})

Try the NMsim package in your browser

Any scripts or data that you put into this service are public.

NMsim documentation built on Sept. 9, 2025, 5:33 p.m.