[rkward-cvs] SF.net SVN: rkward:[2555] trunk/rkward/tests/test_framework.R

[tfry at users.sourceforge.net]

Revision: 2555
          http://rkward.svn.sourceforge.net/rkward/?rev=2555&view=rev
Author:   tfry
Date:     2009-06-26 15:13:01 +0000 (Fri, 26 Jun 2009)

Log Message:
-----------
prettier result table, and (untested) support for graph-producing plugins

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

Modified: trunk/rkward/tests/test_framework.R
===================================================================
--- trunk/rkward/tests/test_framework.R	2009-06-26 14:58:57 UTC (rev 2554)
+++ trunk/rkward/tests/test_framework.R	2009-06-26 15:13:01 UTC (rev 2555)
@@ -28,16 +28,16 @@
 setMethod ("show", "RKTestResult", function (object) {
 	stopifnot (inherits (object, "RKTestResult"))
 
-	cat (format ("ID", width=20))
+	cat (format ("ID", width=30))
 	cat (format ("code match", width=15))
 	cat (format ("output match", width=15))
 	cat (format ("message match", width=15))
 	cat (format ("error", width=15))
 	cat (format ("result", width=15))
-	cat ("\n")
+	cat ("\n", rep ("-", 96), "\n", sep="")
 
 	for (i in 1:length (object at id)) {
-		cat (format (object at id[i], width=20))
+		cat (format (object at id[i], width=30))
 		cat (format (object at code_match[i], width=15))
 		cat (format (object at output_match[i], width=15))
 		cat (format (object at message_match[i], width=15))
@@ -45,6 +45,9 @@
 		cat (format (if (object at passed[i]) "pass" else "FAIL", width=15))
 		cat ("\n")
 	}
+
+	cat (rep ("-", 96), "\n", sep="")
+	cat (as.character (sum (object at passed)), " / ", as.character (length (object at passed)), " tests passed\n");
 })
 
 rktest.appendTestResults <- function (objecta, objectb) {
@@ -248,6 +251,9 @@
 # By default .rk.rerun.plugin.link() and .rk.make.hr() are silenced during the test runs
 .rk.rerun.plugin.link <- .rk.make.hr <- function (...) { list (...) }
 
+# This should make the output of rk.graph.on() fixed
+rk.get.tempfile.name <- function (prefix, extension) paste (prefix, extension, sep="")
+
 # HACK: Override date, so we don't get a difference for each call of rk.header ()
 # TODO: implement a clean solution inside rk.header()
 date <- function () {


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