tests/testthat/test_gene_mut_plot.R

In Jiyun1201/CANMutVisual: Analyze and Visualize Cancer Mutation Data

library(testthat)
library(CANMutVisual)

context("Test if the input file is valid")

test_that("Invalid Input", {
  # Incorrect file type input for first argument
  expect_error(plot_top_15("inst/extdata/V95_38_MUTANT.csv", "data/HGNC.tsv"))
  # Incorrect file type for second argument
  expect_error(plot_top_15("data/MutantData.tsv", "inst/extdata/V95_38_MUTANT.csv"))
  # Incorrect input type for first argument
  expect_error(plot_top_15(2, "data/HGNC.tsv"))
  # Incorrect input type for second argument
  expect_error(plot_top_15("data/MutantData.tsv", "Hello"))

})

context("Check if plot is returned")

test_that("test is pie chart is returned", {
  result <- plot_top_15("data/MutantData.tsv", "data/HGNC.tsv")

  # Check if return value is not null
  expect_true(!is.null(result))
})