wrapped test in test_that