tests/testthat/test_basic_usage.R

In librarysnapshot: Library Snapshot for Packages and Dependencies in Use by Current Session

context("check basic usage works")

test_that(
  "check basic usage works",
  {
    libsnap <- library_snapshot()

    expect_true(
      "data.frame" %in% class(libsnap)
    )

    expect_true(
      ncol(libsnap) > 0
    )

    expect_true(
      nrow(libsnap) > 0
    )
  }
)