tests/testthat/test-meter-provider-stdout.R

In otelsdk: 'R' 'SDK' and Exporters for 'OpenTelemetry'

test_that("meter_provider_stdout", {
  tmp <- tempfile()
  on.exit(unlink(tmp), add = TRUE)
  mp <- meter_provider_stdstream_new(list(output = tmp))
  on.exit(mp$shutdown(), add = TRUE)
  mtr <- mp$get_meter()
  ctr <- mtr$create_counter("ctr")
  ctr$add(1)
  ctr$add(10)
  mp$flush()
  lns <- readLines(tmp)
  expect_snapshot(
    writeLines(lns),
    transform = transform_meter_provider_file
  )
})

test_that("meter_provider_stdstream_options", {
  expect_snapshot({
    meter_provider_stdstream_options()
  })
})