shields unit tests

ComputationalProteomicsUnit · Jan 2, 2017 · 861dcca · 861dcca
1 parent b7c8cef
commit 861dcca
Show file tree

Hide file tree

Showing 5 changed files with 24 additions and 3 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -1,2 +1,3 @@
 .travis.yml
 README.Rmd
+docs
diff --git a/.gitignore b/.gitignore
@@ -1,2 +1,2 @@
 inst/doc
-docs
+
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,10 @@
 Package: cputools
 Title: Various helper functions
-Version: 0.1.2
-Author: Laurent Gatto <[email protected]>
+Version: 0.2.0
+Authors@R: person(given = "Laurent",
+                  family = "Gatto",
+		  email = "[email protected]",
+		  role = c("aut","cre"))
 Maintainer: Laurent Gatto <[email protected]>
 Description: Miscellaneous helper functions aimed at facilitating and
     standardising simple repetitive tasks.

diff --git a/R/pkg.R b/R/pkg.R
@@ -1,5 +1,6 @@
 ##' @title Generates Github URLs
 ##' @return A \code{character} with Github URLs.
+##' @seealso \code{BiocStyle::Githubpkg}
 ##' @examples
 ##' makeGithubUrl("pRoloc", user = "lgatto")
 ##' makeGithubUrl(c("pRoloc", "pRolocGUI"), user = "lgatto")

diff --git a/tests/testthat/test_shields.R b/tests/testthat/test_shields.R
@@ -16,3 +16,19 @@ test_that("Bioconductor covr shields", {
     url <- mrkToUrl(mrk)
     expect_true(validUrl(url))
 })
+
+test_that("Travis shield", {
+    sh <- makeTravisShield("cputools", user = "ComputationalProteomicsUnit")
+    sh0 <- "[![Build Status](https://travis-ci.org/ComputationalProteomicsUnit/cputools.svg?branch=master)](https://travis-ci.org/ComputationalProteomicsUnit/cputools)"
+    expect_identical(sh, sh0)
+    url <- mrkToUrl(sh)
+    expect_true(validUrl(url))
+})
+
+test_that("Codecov shield", {
+    sh <- makeCodecovShield("cputools", user = "ComputationalProteomicsUnit")
+    sh0 <- "[![codecov](https://codecov.io/gh/ComputationalProteomicsUnit/cputools/branch/master/graph/badge.svg)](https://codecov.io/gh/ComputationalProteomicsUnit/cputools)"
+    expect_identical(sh, sh0)
+    url <- mrkToUrl(sh)
+    expect_true(validUrl(url))
+})