[Rcpp-commits] r4468 - in pkg/Rcpp/vignettes: . notyet

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

Author: edd
Date: 2013-08-31 23:13:14 +0200 (Sat, 31 Aug 2013)
New Revision: 4468

Added:
   pkg/Rcpp/vignettes/notyet/Rcpp-unitTests.Rnw
Removed:
   pkg/Rcpp/vignettes/Rcpp-unitTests.Rnw
Log:
hide currently broken unittests

Deleted: pkg/Rcpp/vignettes/Rcpp-unitTests.Rnw
===================================================================
--- pkg/Rcpp/vignettes/Rcpp-unitTests.Rnw	2013-08-31 20:59:07 UTC (rev 4467)
+++ pkg/Rcpp/vignettes/Rcpp-unitTests.Rnw	2013-08-31 21:13:14 UTC (rev 4468)
@@ -1,69 +0,0 @@
-\documentclass[10pt]{article}
-%\VignetteIndexEntry{Rcpp-unitTests}
-%\VignetteKeywords{R,Rcpp,unit tests}
-%\VignettePackage{Rcpp}
-
-\usepackage{vmargin}
-\setmargrb{0.75in}{0.75in}{0.75in}{0.75in}
-
-\RequirePackage{ae,mathpple}    % ae as a default font pkg works with Sweave
-\RequirePackage[T1]{fontenc}
-
-<<echo=FALSE,print=FALSE>>=
-require(Rcpp)
-prettyVersion <- packageDescription("Rcpp")$Version
-prettyDate <- format(Sys.Date(), "%B %e, %Y")
-library(RUnit)
-@
-
-\usepackage[colorlinks]{hyperref}
-\author{Dirk Eddelbuettel \and Romain Fran\c{c}ois}
-\title{\textbf{Rcpp}: Unit testing results}
-\date{Rcpp version \Sexpr{prettyVersion} as of \Sexpr{prettyDate}}
-
-\begin{document}
-\maketitle
-
-\section*{Test Execution}
-
-<<unitTesting,echo=FALSE,print=FALSE>>=
-pkg <- "Rcpp"
-
-## Make sure we run all tests for the vignette
-Sys.setenv("RunAllRcppTests"="yes")
-
-if (file.exists("unitTests-results")) unlink("unitTests-results", recursive = TRUE)
-dir.create("unitTests-results")
-pathRcppTests <<- system.file("unitTests", package = pkg)
-path <- system.file("unitTests", package=pkg)
-testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), dirs=path)
-tests <- runTestSuite(testSuite)
-err <- getErrors(tests)
-if (err$nFail > 0) stop(sprintf("unit test problems: %d failures", err$nFail))
-if (err$nErr > 0) stop( sprintf("unit test problems: %d errors", err$nErr))
-printHTMLProtocol(tests, fileName=sprintf("unitTests-results/%s-unitTests.html", pkg))
-printTextProtocol(tests, fileName=sprintf("unitTests-results/%s-unitTests.txt" , pkg))
-
-if (file.exists("/tmp")) {
-    invisible(sapply(c("txt", "html"), function(ext) {
-        fname <- sprintf("unitTests-results/%s-unitTests.%s", pkg, ext)
-        file.copy(fname, "/tmp", overwrite=TRUE)
-    }))
-}
-@
-
-\section*{Test Results}
-
-\begin{verbatim}
-<<importResults,echo=FALSE,results=tex>>=
-results <- "unitTests-results/Rcpp-unitTests.txt"
-if (file.exists(results)) {
-    writeLines(readLines(results))
-} else{
-    writeLines( "unit test results not available" )
-}
-@
-
-\end{verbatim}
-
-\end{document}

Copied: pkg/Rcpp/vignettes/notyet/Rcpp-unitTests.Rnw (from rev 4453, pkg/Rcpp/vignettes/Rcpp-unitTests.Rnw)
===================================================================
--- pkg/Rcpp/vignettes/notyet/Rcpp-unitTests.Rnw	                        (rev 0)
+++ pkg/Rcpp/vignettes/notyet/Rcpp-unitTests.Rnw	2013-08-31 21:13:14 UTC (rev 4468)
@@ -0,0 +1,69 @@
+\documentclass[10pt]{article}
+%\VignetteIndexEntry{Rcpp-unitTests}
+%\VignetteKeywords{R,Rcpp,unit tests}
+%\VignettePackage{Rcpp}
+
+\usepackage{vmargin}
+\setmargrb{0.75in}{0.75in}{0.75in}{0.75in}
+
+\RequirePackage{ae,mathpple}    % ae as a default font pkg works with Sweave
+\RequirePackage[T1]{fontenc}
+
+<<echo=FALSE,print=FALSE>>=
+require(Rcpp)
+prettyVersion <- packageDescription("Rcpp")$Version
+prettyDate <- format(Sys.Date(), "%B %e, %Y")
+library(RUnit)
+@
+
+\usepackage[colorlinks]{hyperref}
+\author{Dirk Eddelbuettel \and Romain Fran\c{c}ois}
+\title{\textbf{Rcpp}: Unit testing results}
+\date{Rcpp version \Sexpr{prettyVersion} as of \Sexpr{prettyDate}}
+
+\begin{document}
+\maketitle
+
+\section*{Test Execution}
+
+<<unitTesting,echo=FALSE,print=FALSE>>=
+pkg <- "Rcpp"
+
+## Make sure we run all tests for the vignette
+Sys.setenv("RunAllRcppTests"="yes")
+
+if (file.exists("unitTests-results")) unlink("unitTests-results", recursive = TRUE)
+dir.create("unitTests-results")
+pathRcppTests <<- system.file("unitTests", package = pkg)
+path <- system.file("unitTests", package=pkg)
+testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), dirs=path)
+tests <- runTestSuite(testSuite)
+err <- getErrors(tests)
+if (err$nFail > 0) stop(sprintf("unit test problems: %d failures", err$nFail))
+if (err$nErr > 0) stop( sprintf("unit test problems: %d errors", err$nErr))
+printHTMLProtocol(tests, fileName=sprintf("unitTests-results/%s-unitTests.html", pkg))
+printTextProtocol(tests, fileName=sprintf("unitTests-results/%s-unitTests.txt" , pkg))
+
+if (file.exists("/tmp")) {
+    invisible(sapply(c("txt", "html"), function(ext) {
+        fname <- sprintf("unitTests-results/%s-unitTests.%s", pkg, ext)
+        file.copy(fname, "/tmp", overwrite=TRUE)
+    }))
+}
+@
+
+\section*{Test Results}
+
+\begin{verbatim}
+<<importResults,echo=FALSE,results=tex>>=
+results <- "unitTests-results/Rcpp-unitTests.txt"
+if (file.exists(results)) {
+    writeLines(readLines(results))
+} else{
+    writeLines( "unit test results not available" )
+}
+@
+
+\end{verbatim}
+
+\end{document}