rename C_duplicate to duplicate_

r-lib · Sep 22, 2014 · f38b381 · f38b381
1 parent 3208491
commit f38b381
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -84,5 +84,5 @@ exportClasses(SummaryReporter)
 exportClasses(TapReporter)
 exportClasses(TeamcityReporter)
 importFrom(methods,setRefClass)
-useDynLib(testthat,C_duplicate)
+useDynLib(testthat,duplicate_)
 useDynLib(testthat,reassign_function)
diff --git a/R/mock.r b/R/mock.r
@@ -86,12 +86,12 @@ extract_mocks <- function(new_values, .env) {
   )
 }
 
-#' @useDynLib testthat C_duplicate
+#' @useDynLib testthat duplicate_
 mock <- function(name, env, new) {
   target_value <- get(name, env, mode = "function")
   structure(list(
     env = env, name = name,
-    orig_value = .Call(C_duplicate, target_value), target_value = target_value,
+    orig_value = .Call(duplicate_, target_value), target_value = target_value,
     new_value = new), class = "mock")
 }
 

diff --git a/src/reassign.c b/src/reassign.c
@@ -19,6 +19,6 @@ SEXP reassign_function(SEXP name, SEXP env, SEXP old_fun, SEXP new_fun)
   return R_NilValue;
 }
 
-SEXP C_duplicate(SEXP x) {
+SEXP duplicate_(SEXP x) {
   return duplicate(x);
 }