tests/testthat/test_ms_drop_var_prefix.R

In MacroSHEDS/macrosheds: Tools for interfacing with the MacroSheds dataset

library(macrosheds)
library(testthat)


test_that('var is character', {
    expect_type(ms_drop_var_prefix('GN_NO3_N'), 'character')
    expect_type(ms_drop_var_prefix('pm_sub_surf_permeability_sd'), 'character')
})

test_that('var is of length 1', {
    expect_equal(length(ms_drop_var_prefix('GN_NO3_N')), 1)
})

test_that('var is correct nchar', {
    expect_equal(nchar(ms_drop_var_prefix('GN_NO3_N')), 5)
})

test_that("underscore didn't get removed", {
    expect_equal(ms_drop_var_prefix('GN_NO3_N'), 'NO3_N')
})