context("Checking upper")

test_that("upper ...",{


})