context("Checking hour") test_that("hour ...",{ })