add unit tests to fa2domain

DESCRIPTION

@@ -27,7 +27,7 @@ Depends:
     R (>= 4.4.0)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 VignetteBuilder: knitr
 Imports: 
     ape,
@@ -83,4 +83,7 @@ Imports:
     XVector,
     yaml
 Suggests:
-    knitr
+    knitr,
+    testthat,
+    mockery,
+    readr

R/fa2domain.R

@@ -35,6 +35,16 @@ runIPRScan <- function(
         # destPartition = "LocalQ",
         # destQoS = "shortjobs"
     ) {
+    # Validate inputs
+    if (is.null(filepath_fasta) || filepath_fasta == "") {
+        stop("filepath_fasta cannot be NULL or empty")
+    }
+    if (is.null(filepath_out) || filepath_out == "") {
+        stop("filepath_out cannot be NULL or empty")
+    }
+    if (!all(appl %in% c("Pfam", "Gene3D"))) {
+        stop("Invalid application specified")
+    }
     # construct interproscan command
     cmd_iprscan <- stringr::str_glue(
         "iprscan -i {filepath_fasta} -b {filepath_out} --cpu 4 -f TSV ",
@@ -296,7 +306,7 @@ getDomainsFromFA <- function(
                 if (verbose) {
                     msg <- stringr::str_glue(
                         "accession number: {header} had no domains for the ",
-                        "selected analyes: {paste(analysis, collapse = ',')}\n"
+                        "selected analyses: {paste(analysis, collapse = ',')}\n"
                     )
                     warning(msg)
                 }

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(MolEvolvR)
+
+test_check("MolEvolvR")