test_that("time_labels creates correct vector of labels", {
  x<-time_labels()
  expect_equal(length(x),1440)
  expect_equal(min(x),"00:00")
  expect_equal(max(x),"23:59")
})