diff --git a/R/ModelFit.R b/R/ModelFit.R
index a88037aa..60ec20c4 100644
--- a/R/ModelFit.R
+++ b/R/ModelFit.R
@@ -374,9 +374,15 @@ cacheCyclopsModelForJava <- function(object) {
     return(instance)
 }
 
+#' @title Clear the Cyclops persistent cache
+#'
+#' @description
+#' \code{clearCyclopsModelCache} clears the persistent cache holding
+#' Cyclops model fit objects that may be used across language-barriers.
+#'
 #' @export
 clearCyclopsModelCache <- function() {
-
+    stop("Not yet implemented")
 }
 
 .checkCovariates <- function(cyclopsData, covariates) {
diff --git a/man/clearCyclopsModelCache.Rd b/man/clearCyclopsModelCache.Rd
new file mode 100644
index 00000000..52106086
--- /dev/null
+++ b/man/clearCyclopsModelCache.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/ModelFit.R
+\name{clearCyclopsModelCache}
+\alias{clearCyclopsModelCache}
+\title{Clear the Cyclops persistent cache}
+\usage{
+clearCyclopsModelCache()
+}
+\description{
+\code{clearCyclopsModelCache} clears the persistent cache holding
+Cyclops model fit objects that may be used across language-barriers.
+}
diff --git a/tests/testthat/test-gradient.R b/tests/testthat/test-gradient.R
index 7bfa364e..2068f126 100644
--- a/tests/testthat/test-gradient.R
+++ b/tests/testthat/test-gradient.R
@@ -10,6 +10,8 @@ test_that("gradient", {
     fit <- Cyclops::fitCyclopsModel(data)
 
     gradientAtMode <- gradient(fit)
+
+    expect_equivalent(gradientAtMode, rep(0, length(coef(fit))))
 })