You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
771 B
27 lines
771 B
library(ulid)
|
|
|
|
x <- ULIDgenerate()
|
|
expect_true(is.character(x))
|
|
expect_true(nchar(x) == 26)
|
|
|
|
x <- ULIDgenerate(20)
|
|
expect_true(is.character(x))
|
|
expect_true(length(x) == 20)
|
|
expect_true(sum(nchar(x)) == 520)
|
|
expect_true(all(rle(x)[["values"]] == x))
|
|
|
|
x <- unmarshal(x)
|
|
expect_true(is.data.frame(x))
|
|
expect_true(nrow(x) == 20)
|
|
expect_true(inherits(x[["ts"]], "POSIXct"))
|
|
expect_true(is.character(x[["rnd"]]))
|
|
expect_true(sum(nchar(x[["rnd"]])) == 320)
|
|
expect_true(all(rle(x[["rnd"]])[["values"]] == x[["rnd"]]))
|
|
|
|
x <- ts_generate(as.POSIXct("2017-11-01 15:00:00", origin="1970-01-01"))
|
|
y <- unmarshal(x)
|
|
|
|
expect_true(is.data.frame(y))
|
|
expect_true(y[["ts"]][[1]] == "2017-11-01 15:00:00")
|
|
expect_true(is.character(y[["rnd"]][[1]]))
|
|
expect_true(nchar(y[["rnd"]][[1]]) == 16)
|
|
|