Add and allow strncmpi tests

nlmixr2 · Jul 12, 2024 · 688d1c7 · 688d1c7
1 parent 0ade393
commit 688d1c7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/init.c b/src/init.c
@@ -341,8 +341,11 @@ double linCmtB(rx_solve *rx, unsigned int id, double t, int linCmt,
 
 SEXP _rxode2_rxQr(SEXP);
 
+SEXP _rxode2_parse_strncmpci(void);
+
 void R_init_rxode2(DllInfo *info){
   R_CallMethodDef callMethods[]  = {
+    {"_rxode2_parse_strncmpci",(DL_FUNC) & _rxode2_parse_strncmpci, 0},
     {"_rxode2_rxParseSetSilentErr", (DL_FUNC) &_rxode2_rxParseSetSilentErr, 1},
     {"_rxode2_etRep_", (DL_FUNC) &_rxode2_etRep_, 7},
     {"_rxode2_etSeq_", (DL_FUNC) &_rxode2_etSeq_, 11},

diff --git a/tests/testthat/test-strncmpi.R b/tests/testthat/test-strncmpi.R
@@ -0,0 +1,4 @@
+test_that("test-strncmpi", {
+  skip_on_cran()
+  expect_equal(.Call(`_rxode2_parse_strncmpci`), 1L)
+})