tests/testthat/test_asymptotic_test.R

In benmarwick/cvequality: Tests for the Equality of Coefficients of Variation from Multiple Groups

library(cvequality)

context("asymptotic_test")

  test_that("asymptotic_test", {
    expect_equal(asymptotic_test(mtcars$disp, mtcars$am),
    list(D_AD = 2.344839,
         p_value = 0.1256985),
    tolerance = .002)
  })