[Rcpp-commits] r769 - in pkg/RcppArmadillo: . R

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-02-22 15:22:08 +0100 (Mon, 22 Feb 2010)
New Revision: 769

Added:
   pkg/RcppArmadillo/R/unit.test.R
Modified:
   pkg/RcppArmadillo/
Log:
ignore files


Property changes on: pkg/RcppArmadillo
___________________________________________________________________
Name: svn:ignore
   + config.log
config.status



Added: pkg/RcppArmadillo/R/unit.test.R
===================================================================
--- pkg/RcppArmadillo/R/unit.test.R	                        (rev 0)
+++ pkg/RcppArmadillo/R/unit.test.R	2010-02-22 14:22:08 UTC (rev 769)
@@ -0,0 +1,29 @@
+# Copyright (C)        2010 Dirk Eddelbuettel and Romain Francois
+#
+# This file is part of RcppArmadillo.
+#
+# RcppArmadillo is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+#
+# RcppArmadillo is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with RcppArmadillo.  If not, see <http://www.gnu.org/licenses/>.
+
+test <- function( output = if( file.exists( "/tmp" ) ) "/tmp" else getwd() ){
+	if( !file.exists( output ) ){ stop( "output directory does not exist" ) }
+	
+	Rscript <- file.path( R.home( component = "bin" ), "Rscript" )
+	if( .Platform$OS.type == "windows" ){
+		Rscript <- sprintf( "%s.exe", Rscript )
+	}
+	test.script <- system.file( "unitTests", "runTests.R", package = "RcppArmadillo" )
+	cmd <- sprintf( '"%s" "%s" --output=%s', Rscript, test.script, output )
+	system( cmd )
+}
+