# Basic Testing-Make sure the package can be loaded
  test_that("MTaP package can be loaded", {
    #Load silently to avoid warnings
    suppressPackageStartupMessages(library(MTaP))
    expect_true("MTaP" %in% .packages())
  })
  
# The main derived function exists
  test_that("All core functions exist", {
    exports <- getNamespaceExports("MTaP")
    
    expected_functions <- c(
      "mtap_config",      #Configure function
      "mtap_analyze",     #Analyze function 
      "mtap_cli",         # CLI Interface
      "mtap_quick",       # Quick Start
      "print.mtap_config" # S3 Methods
    )
    
    # Check each function
    for (func in expected_functions) {
      expect_true(func %in% exports, 
                  info = paste("Function", func, "should be exported"))
    }
  })