[Logging-commits] r98 - pkg/tests

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

Author: mariotomo
Date: 2011-10-12 22:00:51 +0200 (Wed, 12 Oct 2011)
New Revision: 98

Modified:
   pkg/tests/doSvUnit.R
Log:
failure whenever not all ok

Modified: pkg/tests/doSvUnit.R
===================================================================
--- pkg/tests/doSvUnit.R	2011-09-21 14:23:04 UTC (rev 97)
+++ pkg/tests/doSvUnit.R	2011-10-12 20:00:51 UTC (rev 98)
@@ -7,3 +7,9 @@
 runTest(mypkgSuite, name = pkg)  # Run them...
 runTest(makeTestListFromExamples(pkg, "../../pkg/man/"))
 protocol(Log(), type = "junit", file = "report.xml")  # ... and write report
+results <- table(stats(Log())$kind)
+exitCode <- 0
+if (results['**ERROR**']) exitCode <- exitCode + 1
+if (results['**FAILS**']) exitCode <- exitCode + 2
+if (results['DEACTIVATED']) exitCode <- exitCode + 4
+quit(status=exitCode)