diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml
index 13db31cd925e276ec06b5fd313c04aecf74a35f2..209116a4f50cedc9a48f755c317cb81a41014379 100644
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -2,8 +2,6 @@ image: rocker/verse:latest
 
 stages:
   - build
-  - test
-  - deploy
 
 buildpkg:
   stage: build
@@ -20,14 +18,6 @@ buildpkg:
     # generate Documentation
     - R -e 'roxygen2::roxygenize(".", roclets=c("rd", "collate", "namespace"))'
     - R -e 'devtools::build(binary = TRUE)'
-
-checkpkg:
-  stage: test
-  script:
     - R -e 'devtools::check(document = FALSE, args = "--no-tests", error_on = c("error"))'
-
-installpkg:
-  stage: deploy
-  script:
     - R -e 'devtools::install(build_vignettes=TRUE,dependencies = TRUE)'
 
diff --git a/tests/testthat/test_outputPlot.R b/tests/testthat/test_outputPlot.R
new file mode 100644
index 0000000000000000000000000000000000000000..048e3f83a10606175c348f4f245a59a3a31eb027
--- /dev/null
+++ b/tests/testthat/test_outputPlot.R
@@ -0,0 +1,46 @@
+test_that("kfino - ggplot produced correctly - quali", {
+  data(spring1)
+  param1<-list(m0=41,
+               mm=45,
+               pp=0.5,
+               aa=0.001,
+               expertMin=30,
+               expertMax=75,
+               sigma2_m0=1,
+               sigma2_mm=0.05,
+               sigma2_pp=5,
+               K=2,
+               seqp=seq(0.5,0.7,0.1))
+  resu1<-kfino_fit(datain=spring1,
+                   Tvar="dateNum",Yvar="Poids",
+                   param=param1,
+                   doOptim=FALSE)
+
+  p1<-kfino_plot(resuin=resu1,typeG="quali",
+                 Tvar="Day",Yvar="Poids",Ident="IDE")
+  # Output type
+  expect_s3_class(p1$data,"data.frame")
+  expect_s3_class(p1$layers[[1]]$geom,"GeomPoint")
+  expect_s3_class(p1$layers[[2]]$geom,"GeomLine")
+  expect_s3_class(p1$layers[[3]]$geom,"GeomLine")
+  expect_s3_class(p1$layers[[4]]$geom,"GeomLine")
+
+  p2<-kfino_plot(resuin=resu1,typeG="quanti",
+                 Tvar="Day",Yvar="Poids",Ident="IDE")
+  # Output type
+  expect_s3_class(p2$data,"data.frame")
+  expect_s3_class(p2$layers[[1]]$geom,"GeomPoint")
+  expect_s3_class(p2$layers[[2]]$geom,"GeomLine")
+  expect_s3_class(p2$layers[[3]]$geom,"GeomLine")
+  expect_s3_class(p2$layers[[4]]$geom,"GeomLine")
+
+  p3<-kfino_plot(resuin=resu1,typeG="prediction",
+                 Tvar="Day",Yvar="Poids",Ident="IDE")
+  # Output type
+  expect_s3_class(p3$data,"data.frame")
+  expect_s3_class(p3$layers[[1]]$geom,"GeomPoint")
+  expect_s3_class(p3$layers[[2]]$geom,"GeomLine")
+  expect_s3_class(p3$layers[[3]]$geom,"GeomLine")
+  expect_s3_class(p3$layers[[4]]$geom,"GeomLine")
+
+})