tests/testthat/test-FUN.R

In shutinet/metabSeek: Search in several databases metabolites masses or spectras

test_that("formatting text entries", expect_identical(
    format_text(c("test", " test", " test ", 'test"', "NA", "NaN", "", NA)), 
    c("test", "test", "test", "test'", NA, NA, NA, NA)))

test_that("formatting integers", expect_identical(
    format_int(c(42, "42", "42.0", 42.0, NA)), 
    c(42, 42, 42, 42, NA)))
    
test_that("omit na in dataframes", expect_identical(
    na_row_omit(data.frame(a = c(1, 2), b = c(3, NA))),
    data.frame(a = 1, b = 3)))