tests/testthat/test-instant-metrics-format.R

In glenn-m/promR: Prometheus API Client

context("Instant metrics data is formatted correctly")

test_that(desc = "Instant metrics results are data frame",
          code = expect_is(object = metrics_current,
                           class = "data.frame"))

test_that(desc = "Instant metrics are named",
          code = expect_named(object = metrics_current))

test_that(desc = "Instant metrics are not empty",
          code = expect_gte(object = nrow(metrics_current),
                            expected = 2))