tests/testthat/test-extract_tidy_stats_from_xml.R

In currocam/toolkit4pySCA: A set of useful functions for performing an Statistical Coupling Analysis from scratch in R and using pySCA

test_that("extract tidy df with pdb example", {
  xml2::read_xml("2abl_A_pdb.xml") %>%
    extract_tidy_stats_from_xml() %>%
    expect_s3_class("tbl_df")
})

test_that("extract tidy df with swissprot example", {
  xml2::read_xml("2abl_A_swissprot.xml") %>%
    extract_tidy_stats_from_xml() %>%
    expect_s3_class("tbl_df")
})