From 1718d434efae26de02754c6622c43f4dc9e624b9 Mon Sep 17 00:00:00 2001 From: jranke Date: Thu, 15 Mar 2012 15:54:14 +0000 Subject: Update kinfit and mkin to the latest version published on BerliOS. git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@17 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- tests/doRUnit.R | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) (limited to 'tests') diff --git a/tests/doRUnit.R b/tests/doRUnit.R index e2ad4cd2..ed3ef1df 100644 --- a/tests/doRUnit.R +++ b/tests/doRUnit.R @@ -1,17 +1,10 @@ +# $Id: doRUnit.R 96 2011-04-29 11:10:40Z jranke $ +# Adapted from a version around 2.9 of the rcdk package by Rajarshi Guha if(require("RUnit", quietly=TRUE)) { - ## --- Setup --- - - pkg <- "mkin" # <-- Change to package name! - if(Sys.getenv("RCMDCHECK") == "FALSE") { - ## Path to unit tests for standalone running under Makefile (not R CMD check) - ## PKG/tests/../inst/unitTests - path <- file.path(getwd(), "..", "inst", "unitTests") - } else { - ## Path to unit tests for R CMD check - ## PKG.Rcheck/tests/../PKG/unitTests - path <- system.file(package=pkg, "unitTests") - } + pkg <- "mkin" + path <- system.file(package=pkg, "unitTests") + cat("\nRunning unit tests\n") print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path)) -- cgit v1.2.1