tests/testthat/test_is_windows.R

library(scriptexec)
context("is_windows")

describe("execute", {
    it("is_windows", {
        windows <- scriptexec::is_windows()
        expect_equal(windows, .Platform$OS.type == "windows")
    })
})
sagiegurari/scriptexec documentation built on Oct. 5, 2020, 6:42 p.m.