report more possible outcomes after RUnit run

Author: eddelbuettel

ChangeLog

@@ -1,10 +1,14 @@
+2014-04-02  Dirk Eddelbuettel  <[email protected]>
+
+	* tests/doRUnit.R: Better RUnit error report with thanks to Murray
+
 2014-03-18  JJ Allaire <[email protected]>
 
         * man/cppFunction.Rd: Correct package header file example to use .h
 
 2014-03-14  Dirk Eddelbuettel  <[email protected]>
 
-	* inst/include/Rcpp/DataFrame.h (Rcpp): Add missing return in Impl method
+	* inst/include/Rcpp/DataFrame.h: Add missing return in Impl method
 
 2014-03-13  Dirk Eddelbuettel  <[email protected]>
 

tests/doRUnit.R

@@ -61,4 +61,10 @@ printTextProtocol(tests)
 if (getErrors(tests)$nFail > 0) {
     stop("TEST FAILED!")
 }
+if (getErrors(tests)$nErr > 0) {
+    stop("TEST HAD ERRORS!")
+}
+if (getErrors(tests)$nTestFunc < 1) {
+    stop("NO TEST FUNCTIONS RUN!")
+}