test_options <- list(scipen = 0, digits = 4, width = 90, max.print = 10000)
# fixt_path <- testthat::test_path("fixtures", sysnm())
# #
# lm_plot.infl_cars <- lm_plot.infl_cars_bld(test_options)
# #
# test_that("lm_plot.infl plot attributes for cars data are ok", {
#   withr::local_options(test_options)
#   expect_equal(
#     (lm_plot.infl_cars.new <- attributes(lm_plot.infl_cars)),
#     (lm_plot.infl_cars.old <- readRDS(
#       file = file.path(fixt_path, "lm_plot.infl_cars.rds")))
#   )
# })
#
test_that("lm_plot.infl plot graphics for cars data are ok", {
  withr::local_options(test_options)
  vdiffr::expect_doppelganger(
    title = "lm-plot-infl-cars",
    fig = lm_plot.infl_cars_bld(test_options),
    variant = sysnm())
})