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

[tfry at users.sourceforge.net]

Revision: 3115
          http://rkward.svn.sourceforge.net/rkward/?rev=3115&view=rev
Author:   tfry
Date:     2010-10-07 16:00:22 +0000 (Thu, 07 Oct 2010)

Log Message:
-----------
Make all_tests.R functional, again (this is what gets sourced by 'make plugintests')

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

Modified: trunk/rkward/tests/all_tests.R
===================================================================
--- trunk/rkward/tests/all_tests.R	2010-10-07 15:38:02 UTC (rev 3114)
+++ trunk/rkward/tests/all_tests.R	2010-10-07 16:00:22 UTC (rev 3115)
@@ -1,35 +1,12 @@
-if (!isClass ("RKTestSuite")) source ("test_framework.R")
+library (rkwardtests)
 
 ## 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")
+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)
-cat ("RKWard Version:\n")
-print (.rk.app.version)
-cat ("\n\nR-Version:\n")
-print (R.version)
-cat ("\n\nInstalled packages:\n")
-print (subset(installed.packages(),select=c(LibPath,Version)))
-
-allresults <- new ("RKTestResult")
-for (testsuite in testsuites) {
-	source (testsuite)
-	allresults <- rktest.appendTestResults (allresults, results)
-	rm ("results")
-}
-
-cat ("\n\nOverall results:\n")
-print (allresults)
-
-if (any (is.na (allresults at passed))) {
-	cat ("\nNOTE: Skipped tests due to missing libaries are not an indication of problems.")
-	cat ("\nCurrently, the following R packages are needed in order to run all available tests:")
-	# TODO: Make this list dynamic and / or print only the missing libs
-	cat ('\n"R2HTML", "tseries", "nortest", "outliers", "exactRankTests", "moments", "car", "hdrcde", "qcc", "xtable", "eRm", "ltm"')
-}
-
-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=""))
-
+rktest.makeplugintests (testsuites, getwd (), outfile="make_plugintests.txt")


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