#' Test version string reading
context("AmCAT-R version tests")
test_that("Version can be read", {
v = .read.version("3.4.1")
expect_equal(v, c(major=3, minor=4, patch=1))
v = .read.version("2.06.12dev0")
expect_equal(v, c(major=2, minor=6, patch=12))
v = .read.version("3.42dev0")
expect_equal(v, c(major=0, minor=0, patch=0))
})
test_that("has_version works", {
expect_true(.has.version("3.4.1", "3.4.1"))
expect_true(.has.version("3.4.1", "3.4.0"))
expect_true(.has.version("3.4.1", "2.7.12"))
expect_false(.has.version("xxx", "2.7.12"))
expect_false(.has.version(NULL, "2.7.12"))
expect_false(.has.version("3.4.2", "3.4.11"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.