tests/testthat/test-fortify-metaMDS.R

In ggvegan: 'ggplot2' Plots for the 'vegan' Package

# Tests for fortify.metaMDS()

test_that("fortify works for metaMDS objects", {
  expect_snapshot(fortify(dune_mds))
  expect_s3_class(fortify(dune_mds), "tbl_df")
})

test_that("tidy works for metaMDS objects", {
  expect_snapshot(tidy(dune_mds))
  expect_s3_class(tidy(dune_mds), "tbl_df")
})

test_that("fortify & tidy work for metaMDS with dist", {
  expect_snapshot(fortify(dune_mds_no_spp))
  expect_s3_class(fortify(dune_mds_no_spp), "tbl_df")
  expect_snapshot(tidy(dune_mds_no_spp))
  expect_s3_class(tidy(dune_mds_no_spp), "tbl_df")
})