Tmc rtestrunner

example_projects/example_project1/tests/testthat/testArithmetics.R

@@ -30,7 +30,7 @@ test("Test with no points", c(), {
   expect_equal(1,1)
 })
 
-test("Dummy test set to fail", c("r1.7"), {
+test("Dummy test set to fail", c(), {
   expect_true(FALSE)
   expect_equal(1,2)
 })

example_projects/example_project1/tmc/result.R

@@ -1,4 +1,4 @@
-library('testthat')
+llibrary('testthat')
 library('jsonlite')
 
 #declaring variables to global environment that for example helperTMC.R can use

tmcRtestrunner/.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

tmcRtestrunner/DESCRIPTION

@@ -0,0 +1,13 @@
+Package: tmcRtestrunner
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1.0
+Author: Who wrote it
+Maintainer: The package maintainer <yourself@somewhere.net>
+Description: More about what it does (maybe more than one line)
+    Use four spaces when indenting paragraphs within the Description.
+License: What license is it under?
+Encoding: UTF-8
+LazyData: true
+Depends:
+  testthat

tmcRtestrunner/NAMESPACE

@@ -0,0 +1,3 @@
+exportPattern("^[[:alpha:]]+")
+
+import(testthat)

tmcRtestrunner/R/RunTests.R

@@ -0,0 +1,20 @@
+
+runTests <- function(project_path, print = FALSE) {
+  # Runs the tests from project directory and writes results JSON to the root of the project
+  # as .tmc_results.json.
+  #
+  # Args:
+  #  project_path: The path to the root of the project being tested.
+  #  print: If TRUE, prints results; if not, not. DEFAULT is FALSE.
+  #
+
+
+}
+
+.hidden_function <- function() {
+}
+
+DummyFunction <- function() {
+  # A dumy function for testthat testing (before real tests)
+  return(TRUE)
+}

tmcRtestrunner/man/hello.Rd

@@ -0,0 +1,12 @@
+\name{hello}
+\alias{hello}
+\title{Hello, World!}
+\usage{
+hello()
+}
+\description{
+Prints 'Hello, world!'.
+}
+\examples{
+
+}

tmcRtestrunner/tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(tmcRtestrunner)
+
+test_check("tmcRtestrunner")

tmcRtestrunner/tests/testthat/testRunTests.R

@@ -0,0 +1,3 @@
+test_that("Dummy test before real tests.", {
+  expect_true(DummyFunction())
+})

tmcRtestrunner/tmcRtestrunner.Rproj

@@ -0,0 +1,20 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source