Updated travis build skipping tests that use samplepkg

PRL-PRG · May 6, 2018 · 875d075 · 875d075
1 parent f089987
commit 875d075
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 4 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -1,6 +1,8 @@
 language: r
 cache: packages
 warnings_are_errors: false
+r:
+  - 3.4
 
 env:
   global:

diff --git a/tests/testthat/test-decorate.R b/tests/testthat/test-decorate.R
@@ -155,11 +155,11 @@ test_that("decorator works with S4 methods", {
         standardGeneric("sides")
     })
 
-    setClass("Shape")
-    setClass("Polygon", representation(sides = "integer"), contains = "Shape")
-    setClass("Triangle", contains = "Polygon")
+    setClass("Shape", where=environment())
+    setClass("Polygon", where=environment(), representation(sides="integer"), contains="Shape")
+    setClass("Triangle", where=environment(), contains="Polygon")
 
-    setMethod("sides", where=environment(), signature(object = "Polygon"), function(object) object@sides)
+    setMethod("sides", where=environment(), signature(object="Polygon"), function(object) object@sides)
     setMethod("sides", where=environment(), signature("Triangle"), function(object) 3)
 
     tracer <- create_sequence_tracer()

diff --git a/tests/testthat/test-extract-package-code.R b/tests/testthat/test-extract-package-code.R
@@ -2,6 +2,7 @@ context("extract-package-code")
 
 test_that("extract package code work on sample package", {
     skip_on_cran()
+    skip_on_travis()
 
     tmp <- tempfile()
     on.exit(unlink(tmp, recursive=TRUE))

diff --git a/tests/testthat/test-genthat-samplepkg.R b/tests/testthat/test-genthat-samplepkg.R
@@ -2,6 +2,8 @@ context("genthat on sample package")
 
 test_that("trace_package works on a single file from sample package", {
     skip_on_cran()
+    skip_on_travis()
+
     with_test_pkgs({
         output_dir <- tempfile()
         f1 <- tempfile()
@@ -26,6 +28,8 @@ test_that("trace_package works on a single file from sample package", {
 
 test_that("trace_package works on a sample package", {
     skip_on_cran()
+    skip_on_travis()
+
     with_test_pkgs({
         output_dir <- tempfile()
         f1 <- tempfile()
@@ -84,6 +88,8 @@ test_that("trace_package works on a sample package", {
 
 test_that("gen_from_package works on a sample package", {
     skip_on_cran()
+    skip_on_travis()
+
     with_test_pkgs({
         output_dir <- tempfile()
 
@@ -106,6 +112,8 @@ test_that("gen_from_package works on a sample package", {
 
 test_that("gen_from_package works on a sample package", {
     skip_on_cran()
+    skip_on_travis()
+
     with_test_pkgs({
         output_dir <- tempfile()