context("test utils functions")

library(testthat)
local_edition(3)

test_that(
  desc = "subset_drugbank_dvobject",
  code = {
    dvobj <- readRDS(system.file("two_drugs.RDS",
                                 package = "dbparser"))

     expect_warning(
       new_dvobj <- subset_drugbank_dvobject(dvobject = dvobj,
                                             drug_ids = ""),
      "`drug_ids` is empty. Returning NULL")

    expect_equal(length(new_dvobj), 0)

    new_dvobj <- subset_drugbank_dvobject(dvobject = dvobj,
                                          drug_ids = "DB00007")
    expect_equal(length(new_dvobj), 5)
    expect_equal(NROW(new_dvobj$drugs$general_information), 1)
    expect_equal(length(new_dvobj$cett), 1)
    expect_snapshot(show_dvobject_metadata(new_dvobj))
  }
)

test_that(
  desc = "subset_onsides_dvobject",
  code = {
    dvobj <- readRDS(system.file("onside.RDS",
                                 package = "dbparser"))

    expect_warning(
      new_dvobj <- subset_onsides_dvobject(dvobject       = dvobj,
                                           ingredient_ids = ""),
      "`ingredient_ids` is empty. Returning NULL")

    expect_equal(length(new_dvobj), 0)

    new_dvobj <- subset_onsides_dvobject(
      dvobject        = dvobj,
       ingredient_ids = 613391)
    expect_equal(length(new_dvobj), 8)
    expect_equal(NROW(new_dvobj$high_confidence), 2)
    expect_snapshot(show_dvobject_metadata(new_dvobj))
  }
)