[rkward-cvs] SF.net SVN: rkward:[2826] trunk/rkward/tests/all_tests.R

[kapatp at users.sourceforge.net]

Revision: 2826
          http://rkward.svn.sourceforge.net/rkward/?rev=2826&view=rev
Author:   kapatp
Date:     2010-04-21 08:11:28 +0000 (Wed, 21 Apr 2010)

Log Message:
-----------
Capture plugintest output

Modified Paths:
--------------
    trunk/rkward/tests/all_tests.R

Modified: trunk/rkward/tests/all_tests.R
===================================================================
--- trunk/rkward/tests/all_tests.R	2010-04-20 16:40:15 UTC (rev 2825)
+++ trunk/rkward/tests/all_tests.R	2010-04-21 08:11:28 UTC (rev 2826)
@@ -3,6 +3,9 @@
 ## add your test suite files, to this vector:
 testsuites <- c ("rkward_application_tests.R", "import_export_plugins.R", "item_response_theory.R", "analysis_plugins.R", "distributions.R", "plots.R")
 
+plugintest.outfile <- 'make_plugintests.txt'
+sink (file = plugintest.outfile, append=FALSE, type="output", split=TRUE)
+
 allresults <- new ("RKTestResult")
 for (testsuite in testsuites) {
 	source (testsuite)
@@ -10,5 +13,12 @@
 	rm ("results")
 }
 
-print ("Overall results:")
+cat ("\n\nOverall results:\n")
 print (allresults)
+
+cat ("\n\nInstalled packages:\n")
+print (subset(installed.packages(),select=c(LibPath,Version)))
+sink()
+
+cat (paste ("\n\nThese output are saved in: ", paste (getwd(), plugintest.outfile, sep=.Platform$file.sep), ".\nIf needed, send them to rkward-devel at lists.sourceforge.net\n", sep=""))
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.